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

Вниз

Как написать прогу которая бы искала указаный файл на винте???   Найти похожие ветки 

← →
igorr   (2002-03-24 07:25) [9]

Вот жадные дядьки :))
Бери


procedure TForm1.FindFiles(APath:String);
var FSearchRec,DSearchRec: TSearchRec;
FindResult: Integer;

Function IsDirNotation(ADirName:String):Boolean;
begin {passing to high level?}
Result:=(ADirName=".") or (ADirName="..");
end;

begin
APath:=GetDirectoryName(APath);
FindResult:=FindFirst(APath+FFileName,faAnyFile,FSearchRec);
try
while FindResult=0 do {while success do}
begin
lbFiles.Items.Add(LowerCase(APath+FSearchRec.Name));
LFiles.Caption:=IntToStr(StrToInt(LFiles.Caption)+1);
FindResult:=FindNext(FSearchRec);
end;

FindResult:=FindFirst(APath+"*.*",faDirectory,DSearchRec);
while FindResult=0 do
begin
if (DSearchRec.Attr=faDirectory) and not IsDirNotation(DSearchRec.Name)
then begin
LDir.Caption:=IntToStr(StrToInt(LDir.Caption)+1);
FindFiles(APath+DSearchRec.Name);
end;
FindResult:=FindNext(DSearchRec);
end;
finally
FindClose(FSearchRec);
end;
end;


У меня же такой вопрос.
Как найденные файлы удалить?
См. сабж: Удаление файлов (24.03.02 7:11)
http://delphi.mastak.ru/cgi-bin/forum.pl?look=1&id=1016943076&n=0

---

Страницы: 1 вся ветка

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

Наверх

Память: 0.44 MB
Время: 0.005 c