Форум: "Основная";
Текущий архив: 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)
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2002.02.21;
Скачать: [xml.tar.bz2];
Память: 0.46 MB
Время: 0.004 c