全國最多中醫師線上諮詢網站-台灣中醫網
發文 回覆 瀏覽次數:2744
推到 Plurk!
推到 Facebook!

BCB如何搜索指定文件夾里的TXT文檔?

答題得分者是:taishyang
xiangyou0017
一般會員


發表:7
回覆:5
積分:2
註冊:2011-11-27

發送簡訊給我
#1 引用回覆 回覆 發表時間:2011-12-14 20:25:35 IP:119.39.xxx.xxx 訂閱
想问下大侠们,有没有什么方法,可以搜索指定文件夹(包括子文件夹)里的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
回覆:5486
積分:4552
註冊:2002-10-08

發送簡訊給我
#2 引用回覆 回覆 發表時間:2011-12-15 11:15:11 IP:114.32.xxx.xxx 訂閱
站上已有範例供您參考 ^^
xiangyou0017
一般會員


發表:7
回覆:5
積分:2
註冊:2011-11-27

發送簡訊給我
#3 引用回覆 回覆 發表時間:2011-12-19 23:16:30 IP:119.39.xxx.xxx 訂閱
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
回覆:5486
積分:4552
註冊:2002-10-08

發送簡訊給我
#4 引用回覆 回覆 發表時間:2011-12-20 11:34:22 IP:114.32.xxx.xxx 訂閱
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

發送簡訊給我
#5 引用回覆 回覆 發表時間:2011-12-28 19:39:46 IP:110.52.xxx.xxx 訂閱
谢谢大大了~~问题已解决了~~呵呵!!!
系統時間:2017-12-17 12:20:20
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!