记账软件版1楼: 如何获得目录及目录下子目录下的所有文件,并循环出来？

2楼: 下面是一个进行目录搜索的例程，经过修改你可以搜索需要的文件类型

procedure searchpath(path:string);
var
SearchRec : TSearchRec;
ext : string; //后缀
begin
//在路径后面加上＇＇＼＇＇
if path[Length(path)] <> ＇＇＼＇＇ then path := path + ＇＇＼＇＇;
if FindFirst(path + ＇＇*.*＇＇, faAnyFile, SearchRec) <> 0 then Exit;
//判断是否为目录，是目录则循环
if (SearchRec.Attr and faDirectory) <> 0 then
begin
if (SearchRec.name<>＇＇.＇＇) and (SearchRec.Name<>＇＇..＇＇) then
SearchPath(path+searchrec.name);
end
else
begin
{ 此处加上你自已的判断文件后缀的代码
ext := LowerCase(ExtractFileExt( SearchRec.Name ));
if (ext=＇＇.bmp＇＇) or (ext=＇＇.jpg＇＇) then
begin
...
end;}
end;
while FindNext(SearchRec)=0 do
begin
if (SearchRec.Attr and faDirectory) <> 0 then
begin
if (SearchRec.Name<>＇＇.＇＇) and (SearchRec.Name<>＇＇..＇＇) then

SearchPath(path+SearchRec.Name);
end
else
begin
{ 此处加上你自已的判断文件后缀的代码
ext := LowerCase(ExtractFileExt( SearchRec.Name ));
if (ext=＇＇.bmp＇＇) or (ext=＇＇.jpg＇＇) then
begin
...
end;}
end;
end;
FindClose(SearchRec);
end; 如零售管理

3楼: 朋友，谢了，

4楼: 用递归代码少多了~~~

5楼: 简单迭代就OK了

6楼: 楼上的朋友，简单就给段代码，谢了

记账软件版7楼: 我的一段代码.删除路径及路径下所有文件,和你的要求差不多,希望对你有帮助

{ 删除文件夹及子文件夹中的文件 }
{ 2005-10-14 14:23 by muhx}
procedure DeleteDir(const ADirName: string);
var
tmpSearchRec: TSearchRec;
tmpDir: string;
begin
tmpDir := IncludeTrailingPathDelimiter(ADirName);
if not DirectoryExists(tmpDir) then
Exit;
if FindFirst(tmpDir + ＇＇*.*＇＇, faAnyFile , tmpSearchRec) = 0 then
begin
repeat
if ((tmpSearchRec.Attr and SysUtils.faReadOnly) <> 0) or
((tmpSearchRec.Attr and SysUtils.faHidden) <> 0) then
SetFileAttributes(PChar(tmpDir + tmpSearchRec.Name), FILE_ATTRIBUTE_NORMAL);
if (tmpSearchRec.Attr = faDirectory + SysUtils.faReadOnly) or
(tmpSearchRec.Attr = faDirectory + SysUtils.faHidden) or
((tmpSearchRec.Attr = faDirectory) and (tmpSearchRec.Name <> ＇＇.＇＇) and (tmpSearchRec.Name <> ＇＇..＇＇)) then
begin
System.ChDir(tmpSearchRec.Name);
DeleteDir(tmpDir + tmpSearchRec.Name);
System.ChDir(＇＇..＇＇);
end;
Windows.DeleteFile(PChar(tmpDir + tmpSearchRec.Name));
until FindNext(tmpSearchRec) <> 0;

Windows.FindClose(tmpSearchRec.FindHandle);
RemoveDir(tmpDir);
end;
end;

8楼: 偶也贴个..在窗体上换一个ListBox1和Button1控件.就可以目录下所有文件路径显示在ListBox1列表里面.


unit Unit1;

interface

uses

Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls;

type
TForm1 = class(TForm)
ListBox1: TListBox;
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

TSearchFileThread=class(TThread)
private
MyFileName: string;
procedure SearchFile(DirName: string);
procedure DeelWithFile;
procedure SearchComplete;
public
MyDirName: string;
protected
procedure Execute; override;

end;

var
Form1: TForm1;

implementation

{$R *.DFM}

procedure TSearchFileThread.DeelWithFile;
begin
Form1.ListBox1.Items.Insert(0, MyFileName);
end;

procedure TSearchFileThread.SearchFile(DirName: String);
Var
Found: integer;
SearchRec: TSearchRec;
begin
Found := FindFirst(DirName + ＇＇*.*＇＇,faAnyFile,searchrec);
while Found = 0 do
begin
if ((SearchRec.Attr and faDirectory)<>0) then //directory
begin
if(SearchRec.Name <> ＇＇.＇＇)and(SearchRec.Name <> ＇＇..＇＇) then
SearchFile(DirName + SearchRec.Name + ＇＇＼＇＇)
end
else //file
begin
MyFileName := DirName + SearchRec.Name;
Synchronize(DeelWithFile);
end;
Found := FindNext(SearchRec);
end;
FindClose(SearchRec);
end;

procedure TSearchFileThread.SearchComplete;
begin
ShowMessage(＇＇搜索完毕，共找到＇＇ + inttostr(Form1.ListBox1.Items.Count) + ＇＇个文件＇＇);
end;

procedure TSearchFileThread.Execute;
begin
SearchFile(MyDirName);
Synchronize(SearchComplete);
end;

procedure TForm1.Button1Click(Sender: TObject);
var
SearchFileThread: TSearchFileThread;
begin
SearchFileThread := TSearchFileThread.Create(true);
SearchFileThread.MyDirName := ＇＇F:＼＇＇; //必须以 ＇＇＼＇＇ 结尾
SearchFileThread.Resume;
end;

end.

9楼: 谢谢楼上的兄弟

10楼: 对了,下次问问题记得给分

11楼: 谢谢楼上的兄弟，我给你加份还想问个问题？
Found := FindFirst(DirName + ＇＇*.*＇＇,faAnyFile,searchrec);//如果只打*.doc等，就找不到子目录的文件了，

12楼: 答案写在你的新贴子里.自已去看. 如服装进销存软件