各位大大:
如何把指定路徑下所有檔案及子目錄下所有檔案的檔名及其路徑列於MEMO物件

In Delphi, first you need three components:  DriverComboBox, DirectoryListBox, and FileListBox.
Then, write a top-down recursive function to go through the whole directory.

PS. I used StringGrid instead of Memo, but it is similar.

[code delphi]
procedure TForm1.DriveComboBox1Change(Sender: TObject);
begin
try
DirectoryListBox1.Drive := DriveComboBox1.Drive;
except
showmessage('裝置錯誤或無資料');
exit;
end;
DirectoryListBox1.ItemIndex := 0;
DirectoryListBox1.OpenCurrent;
FileListBox1.Drive := DriveComboBox1.Drive;
FileListBox1.Directory := DirectoryListBox1.Directory;
end;

procedure TForm1.DirectoryListBox1Change(Sender: TObject);
begin
FileListBox1.Directory := DirectoryListBox1.Directory;
end;

procedure TForm1.ButtonClick(Sender: TObject);
begin
StringGrid1.Visible := true;
StringGrid1.RowCount := 1;
StringGrid1.Cells[1,0] := '路徑';
StringGrid1.Cells[0,0] := '檔名';
DirectoryListBox1.OpenCurrent;
finddir(DirectoryListBox1.ItemIndex,DirectoryListBox1.Items.count,DirectoryListBox1.Directory,sender);
Button3.Click;
end;

procedure TForm1.finddir(level:integer;total:integer;nowpath:string;Sender: TObject);
var i:integer;
begin
appfile( StringGrid1.RowCount, sender );
for i:=level 1 to total-1 do
begin
DirectoryListBox1.ItemIndex := i;
DirectoryListBox1.OpenCurrent;
finddir(level 1,DirectoryListBox1.Items.count,DirectoryListBox1.Directory,sender);
DirectoryListBox1.ItemIndex := level;
DirectoryListBox1.OpenCurrent;
end;
end;

function TForm1.appfile(s:integer;sender:Tobject):integer;
var i: integer;
begin
if FileListBox1.Items.Count > 0 then
begin
Result := FileListBox1.Items.Count;
for i:=0 to (FileListBox1.Items.Count-1) do
begin
FileListBox1.ItemIndex := i;
StringGrid1.RowCount := StringGrid1.RowCount 1;
s := StringGrid1.RowCount-1;
StringGrid1.Cells[1,s] := FileListBox1.Directory;
StringGrid1.Cells[0,s] := cutfilename(FileListBox1.FileName);
StringGrid1.FixedRows := 1;
inc(s);
end;
end
else
begin
Result := 0;
end;
end;

[/code]


===================引 用 甘蔗夫 文 章===================
各位大大:
如何把指定路徑下所有檔案及子目錄下所有檔案的檔名及其路徑列於MEMO物件

------
===波士頓夜未眠===
What a wonderful world!!
Jazz up the world with jazz!!
==================

When I am not programming...
you can find me here:
http://www.holy-war.de/EN/World3/bin/?advertiser=63190

試試...
[code cpp]
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
AnsiString dir = "C:\\TEMP";
TStringList *L = FindFiles(dir);
try{
Memo1->Lines->Text = L->Text;
}
__finally{
delete L;
}
}
//---------------------------------------------------------------------------
TStringList* __fastcall TForm1::FindFiles(AnsiString dir)
{
TSearchRec F;
AnsiString S;
TStringList *Result = new TStringList();
if(FindFirst(dir "\\*.*", faAnyFile|faDirectory, F)==0){
do{
if(F.Name!="."&&F.Name!=".."){
S.sprintf("%s\\%s",dir,F.Name);
if(F.Attr!=faDirectory) Result->Add(S);//Add FileName to Result List
else{
TStringList *L = FindFiles(S);
try{
Result->Text = Result->Text L->Text;
}
__finally{
delete L;
}
}
}
}
while(FindNext(F)==0);
FindClose(F);
}
return Result;
}
//---------------------------------------------------------------------------
[/code]

謹供參考...

編輯記錄

Jow,
Thank you,too. But yubad2000 first