[Snake22]

Сообщение от StudentMarat

У меня по заданию нужно, чтобы все файлы с расширением *.txt из папки Мои документы удалялись. И я только что попробовал сделать вот так:

Код:

procedure TForm1.Button1Click(Sender: TObject);
begin
  DeleteFiles(GetMyDoc+'\*.txt');
end;

И у меня все работает. Не знаю, может есть еще другой способ???????

Тьфу ты! извиняюсь ,перепутал стандартную функцию DeleteFile с пользовательской DeleteFileS