Wolfgang Chien's Homepage | Delphi學習筆記 - 問答篇 |
請問如何取得某一目錄內的所有檔案, 然後放在 TString 或 TStringList 中?
在元件盤的 System 這頁的 FileListBox 這個元件的主要功能就可以達到您的需要
或者, 您也可以參考以下的程式, 先以 FindFirst() 取得第一個檔案並建立TSearchRec的搜尋記錄,然後以TSearchRec傳入FindNext()繼續找下一個就可以逐一找出所有檔案.
procedure TForm1.Button1Click(Sender: TObject); var iFindResult: integer; SearchRec: TSearchRec; begin iFindResult := FindFirst('d:\temp\temp6\*.*', faAnyFile, SearchRec); while iFindResult = 0 do begin ListBox1.Items.Add(SearchRec.Name); iFindResult := FindNext(SearchRec); end; FindClose(SearchRec); end;
首頁 | 學習筆記 | 主題公園 | 軟體下載 | 關於本站 | 討論信群 | 相約下次 |