Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.02.21;
Скачать: [xml.tar.bz2];




Вниз

Удаление файлов. 


sammy   (2002-02-07 08:38) [0]

Мне необходимо удалить файлы в определенной папке.
проблема в том, что их имена и типы неизвестны.
findfirst и findnext-ом у меня ничего не выходит.
памагите люди добрые!



panov   (2002-02-07 08:46) [1]

Приводи пример кода, который не работает...



Chris   (2002-02-07 08:52) [2]

ты хоть определись, что ты хочешь...
Могу предложить такой набросок.
RootPath - путь к определенной папке с конечным backslash
ListBox1.Items - список файлов-смертников
TSR: TSearchRec;

for i:=0 to ListBox1.Items.Count-1 do
if FindFirst(RootPath+ListBox1.Items.Strings[i],$3F,TSR)=0 then
DeleteFile(RootPath+ListBox1.Items.Strings[i])
else
ListBox1.Items.Strings[i]:="Файл не найден "+ListBox1.Items.Strings[i];



vl_chel   (2002-02-07 10:51) [3]

FindFirst(RootPath+"\*.*", ....



Леонид Федьков   (2002-02-07 11:04) [4]

Это проверено и работает !


procedure TDataModule1.EmptyDir(Const Path : String);
{Удаление всех файлов из каталога}
var
SearchRec: TSearchRec;
Found : Integer;
If_tmp : array[0..80] of Char;
begin
Found := FindFirst(Path+"*.*", faAnyFile, SearchRec);
while Found = 0 do
begin
StrPCopy(If_tmp,Path+SearchRec.Name);
DeleteFile(If_tmp);
Found := FindNext(SearchRec);
end;
FindClose(SearchRec);
end;



amamed_3071   (2002-02-07 11:20) [5]

WINEXEC("DEL C:\FOLDERNAME\FOLDER2\*.*");



DOS Session   (2002-02-07 11:34) [6]

amamed_3071 © (07.02.02 11:20)

Я дико извиняюсь конечно, но это:
WINEXEC("DEL C:\FOLDERNAME\FOLDER2\*.*");
нельзя назвать правильным советом
1. Если уж пишете пример использования функции с параметрами, то параметры желательно ставить ВСЕ.
2. Если собираетесь использовать DOS-овскую функцию, то безусловно ее запуск должен происходить ПРАВИЛЬНО:
c:\command.com /c функция
3. Если в указанной папке окажется более 1000 файлов например, то не замучаетесь ли Вы подтверждать удаление каждого ? Безусловно при таком методе нужно ставить команду
DELTREE /Y *.*

4. И зачем вообще переходить на DOS там где значительно проще реализовать все WIN-дусовыми методами по примеру Леонид Федьков (07.02.02 11:04)




Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.02.21;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.72 MB
Время: 0.029 c
3-66496           RAVEN                 2002-01-28 15:29  2002.02.21  
Глюки ADO часть 1-ая


1-66614           antoniz               2002-02-06 12:16  2002.02.21  
Как сохранить ветку системного реестр в файл


1-66612           dim2001               2002-02-04 23:19  2002.02.21  
как сделать shareware-версию программы


14-66667          Гаечка                2001-12-20 15:30  2002.02.21  
Нужна помощь


1-66508           UnDISCOvery           2002-02-04 16:54  2002.02.21  
Уважаемые ! Объясните разницу, плиз !