DELPHI在指定目录下(包括其子目录)查找指定文件后删除

在指定目录下（包括其子目录）查找指定文件后删除

procedure tform1.FindFiles(APath, AFile: string); var

FindResult: Integer;

FSearchRec, DSearchRec: TSearchRec; function IsDirNotation(ADirName: string): Boolean; begin

Result := ((ADirName = '.') or (ADirName = '..')); end; begin

if APath[Length(APath)] <> '\\' then APath := APath + '\\';

FindResult := FindFirst(APath + AFile,

faAnyFile + faHidden + faSysFile + faReadOnly, FSearchRec); //在根目录中查找指定文件 try

while FindResult = 0 do begin

listbox1.Items.Add(APath + FSearchRec.Name); DeleteFile(APath + FSearchRec.Name);

FindResult := FindNext(FSearchRec); // 查找下一个指定文件 end;

FindResult := FindFirst(APath + '*.*', faDirectory, DSearchRec); //进入当前目录的子目录继续查找 while FindResult = 0 do begin

if ((DSearchRec.Attr and faDirectory) = faDirectory) and not IsDirNotation(DSearchRec.Name) then FindFiles(APath + DSearchRec.Name, AFile); //递归调用FindFiles函数

FindResult := FindNext(DSearchRec); end;

finally

FindClose(FSearchRec); end; end;

procedure TForm1.Button1Click(Sender: TObject); var

Strings1: TStrings; i: Integer;

begin

listbox1.Items.Clear;

if Length(edit2.Text) <= 0 then begin

FindFiles(edit1.Text, 'freecell.exe'); FindFiles(edit1.Text, 'winmine.exe'); FindFiles(edit1.Text, 'sol.exe'); FindFiles(edit1.Text, 'PINBALL.EXE');

DeleteFile('c:\\winnt\\system32\\dllcache\\freecell.exe'); DeleteFile('d:\\winnt\\system32\\dllcache\\freecell.exe'); DeleteFile('e:\\winnt\\system32\\dllcache\\freecell.exe'); DeleteFile('c:\\winnt\\system32\\dllcache\\winmine.exe'); DeleteFile('d:\\winnt\\system32\\dllcache\\winmine.exe'); DeleteFile('e:\\winnt\\system32\\dllcache\\winmine.exe'); DeleteFile('c:\\winnt\\system32\\dllcache\\sol.exe'); DeleteFile('d:\\winnt\\system32\\dllcache\\sol.exe'); DeleteFile('e:\\winnt\\system32\\dllcache\\sol.exe'); DeleteFile('c:\\winnt\\system32\\dllcache\\PINBALL.EXE'); DeleteFile('d:\\winnt\\system32\\dllcache\\PINBALL.EXE'); DeleteFile('e:\\winnt\\system32\\dllcache\\PINBALL.EXE'); end else

FindFiles(edit1.Text, edit2.Text); ShowMessage('ok'); end;

procedure TForm1.cxShellTreeView1Change(Sender: TObject; Node: TTreeNode); begin

edit1.Text := (cxShellTreeView1.Path); end;

百度搜索“77cn”或“免费范文网”即可找到本站免费阅读全部范文。收藏本站方便下次阅读，免费范文网，提供经典小说综合文库DELPHI在指定目录下(包括其子目录)查找指定文件后删除在线全文阅读。