VPF::Поиск и удаление файлов - Форум программистов

mjpg

Дата 15.7.2007, 19:35 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 26
Регистрация: 21.5.2007

Репутация: нет
Всего: 1

Здравствуйте! Неподскажете мне такую вешь: Надо чтобы принажатии на кнопку в компе производился поиск файлов определённого формата (tmp), Если нашёл - удалил а процесс отображался на guage.
Заранее спасибо!

m0ro

Дата 15.7.2007, 20:28 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Награды: 1

Профиль
Группа: Завсегдатай
Сообщений: 800
Регистрация: 19.5.2007

Репутация: нет
Всего: 68

погугли. "Поиск файлов по маске".

lukas

Дата 15.7.2007, 20:33 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 771
Регистрация: 23.2.2007

Репутация: 3
Всего: 15

рекурсивный поиск файлов... + deletefile , все это давно известно и обсуждалось....

--------------------

http://code.google.com/p/orionphp/ - opensource скриптовой язык Orion (аналог PHP) для freepascal/delphi.

Cashey

Дата 16.7.2007, 10:59 (ссылка)

(нет голосов)

Загрузка ...

Бессмертный

Профиль
Группа: Завсегдатай
Сообщений: 3441
Регистрация: 13.11.2002
Где: в столице

Репутация: нет
Всего: 60

поиск файлов в дериктории по маске. помоему даже с этого форума взято smile

Код


procedure ScanDir (Path:string;SearchMask:TStrings;ScanSub:boolean);
var
SearchRec:TSearchrec;
a,i:integer;
F : File;
begin
if ScanSub then
begin
    if FindFirst(path+'\*.*',faDirectory,SearchRec) = 0 then begin{. found}
    FindNext(SearchRec); {.. found}
    a:=FindNext(SearchRec);
    while a=0 do
    begin
       if (SearchRec.Attr and faDirectory)>0 then  begin
           if Form1.Progress.Progress = 100 then Form1.Progress.Progress := 0 ;
           Form1.Progress.Progress := Form1.Progress.Progress+1;
           ScanDir(Path+'\'+SearchRec.Name,SearchMask,ScanSub);
       end;
       a:=FindNext(SearchRec);
application.ProcessMessages;
    end;{while}
FindClose(SearchRec);
end;
end;{if}

for i:=0 to SearchMask.Count-1 do
begin
a:=FindFirst(Path+'\*.'+SearchMask[i],faAnyFile,SearchRec);
while a=0 do
begin
    {operation on file}
    midifile(Path+'\'+SearchRec.name);
    a:=FindNext(SearchRec);
//    application.ProcessMessages;
    end;{while}
FindClose(SearchRec); 
end;{for}
end; {ScanDir}

--------------------

библия учит любить ближнего, а камасутра обучает как именно

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Для новичков \| Следующая тема »