BCB如何搜索指定文件夾里的TXT文檔？ |
|
答題得分者是：taishyang
|
|
xiangyou0017
一般會員   發表：7 回覆：5 積分：2 註冊：2011-11-27 發送簡訊給我 |
想问下大侠们，有没有什么方法，可以搜索指定文件夹（包括子文件夹）里的TXT文档？要是能将找到的TXT挡的文件路径保存下来就更好了！！谢谢了！~~
不知道这种方法指定文件夹行不： AnsiString Dir; SelectDirectory (AnsiString("选定文件夹？","",Dir)); if (Dir!="") ShowMessage(Dir); Memo1->Lines->Text="Dir"; 就是想通過一個Button（RUN）鍵，開始搜尋指定目錄內（包括子文件夾）內的所有TXT文檔，并將完整的檔案路徑（包括檔案名）顯示到Memo上； 求助~謝謝了！~ 編輯記錄
xiangyou0017 重新編輯於 2011-12-14 07:25:51， 註解 無‧
|
|
taishyang
站務副站長   發表：377 回覆：5490 積分：4563 註冊：2002-10-08 發送簡訊給我 |
|
|
xiangyou0017
一般會員 發表：7 回覆：5 積分：2 註冊：2011-11-27 發送簡訊給我 |
void File(AnsiString Dir,TStringList*FileList)
{ TSearchRec Sr; if(FindFirst(Dir "\\*.txt",faAnyFile,Sr)==0) { do { FileList->Add(Dir "\\" Sr.Name); } while(FindNext(Sr)==0); FindClose(Sr); } } void __fastcall TForm1::Button1Click(TObject *Sender) { TStringList*FileList=new TStringList(); File("F:",FileList); Memo1->Lines->Assign(FileList); } 你好，我現在這樣只能搜尋指定文件夾里的文檔，子目錄還是不能進行搜尋！！要如何才能搜尋子目錄呢？謝謝您能在百忙中回答我的問題，呵呵~~~ |
|
taishyang
站務副站長 發表：377 回覆：5490 積分：4563 註冊：2002-10-08 發送簡訊給我 |
FYR
如何得到資料夾裡所有的檔案名稱 http://delphi.ktop.com.tw/board.php?cid=168&fid=912&tid=74870
編輯記錄
taishyang 重新編輯於 2011-12-19 20:34:52， 註解 無‧
|
|
xiangyou0017
一般會員 發表：7 回覆：5 積分：2 註冊：2011-11-27 發送簡訊給我 |
發表時間：2011-12-14 20:25:35
IP:119.39.xxx.xxx 訂閱
系統時間：2024-11-21 22:20:29
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |