如何取得某個資料夾的所有檔案名稱呢? |
尚未結案
|
aSDFGHH77
一般會員 發表:7 回覆:4 積分:2 註冊:2007-12-14 發送簡訊給我 |
|
taishyang
站務副站長 發表:377 回覆:5490 積分:4563 註冊:2002-10-08 發送簡訊給我 |
|
max5020
資深會員 發表:30 回覆:277 積分:321 註冊:2003-06-04 發送簡訊給我 |
|
Ktop_Robot
站務副站長 發表:0 回覆:3511 積分:0 註冊:2007-04-17 發送簡訊給我 |
|
zhouying82
高階會員 發表:150 回覆:272 積分:189 註冊:2004-03-16 發送簡訊給我 |
[code delphi] function TForm_MakeInstall.GetAllfile(source_path: string): Tstringlist; var filelist: Tstringlist; procedure FindAll(const Path: string); var sr: TSearchRec; fr: Integer; temp_str: string; begin fr := FindFirst(Path '\*.*', faAnyFile, sr); while fr = 0 do begin if (sr.Attr = faDirectory) and (sr.Name <> '.') and (sr.Name <> '..') then FindAll(Path '\' sr.Name) //递归查找下一个目录 else if (sr.Name <> '.') and (sr.Name <> '..') then begin filelist.Append(copy(path, length(source_path) 1, length(path) - length(source_path)) '\' sr.name); // showmessage(copy(path,length(source_path) 1,length(path)-length(source_path)) '\' sr.name); end; temp_str := sr.name; FindNext(sr); if temp_str = sr.Name then break; end; FindClose(sr); end; begin filelist := Tstringlist.Create; FindAll(source_path); result := filelist; // filelist.Free; end; [/code]
------
断断续续的学了几年,还是一个初学者,永远支持Delphi ! |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |