Форум: "Основная";
Поиск по всему сайту: 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.73 MB
Время: 0.034 c
1-66523           Сергей Якименко       2002-02-07 10:14  2002.02.21  
Excel; PrintPreview


14-66658          DarkPark              2002-01-01 03:01  2002.02.21  
Грустно...


1-66536           SemFLY                2002-02-04 22:02  2002.02.21  
Как передать значение переменной из одного модуля в другой ?


1-66540           maks_f                2002-02-04 11:24  2002.02.21  
Пароль на изменение в листе Excel


1-66610           foxbad                2002-02-06 12:47  2002.02.21  
Help !!! Как использовать TADO в своей DLL !!!