目錄的傳輸 |
尚未結案
|
G_D
一般會員 發表:6 回覆:5 積分:2 註冊:2004-12-19 發送簡訊給我 |
|
jow
尊榮會員 發表:66 回覆:751 積分:1253 註冊:2002-03-13 發送簡訊給我 |
節錄之前回答問題的程式片段,函式是用來抓取特定目錄下的所有檔案(Full Path)
不過是用delphi寫的,你可以改寫看看.
function TForm1.CreateFileList(Dir: string): TStringList; procedure CreatingFileList(SubDir: string); var F: TSearchRec; begin if FindFirst(SubDir '\*.*', faAnyFile, F) = 0 then repeat if (F.Name<>'.') and (F.Name<>'..') then begin if F.Attr and faDirectory = faDirectory then CreatingFileList(SubDir '\' F.Name) else//限定FileExt='.TXT'// if Pos('.TXT', UpperCase(F.Name)) > 0 then Result.Add(SubDir '\' F.Name); end; until FindNext(F) <> 0; FindClose(F); end; begin Result := TStringList.Create; CreatingFileList(Dir); end; |
G_D
一般會員 發表:6 回覆:5 積分:2 註冊:2004-12-19 發送簡訊給我 |
|
jow
尊榮會員 發表:66 回覆:751 積分:1253 註冊:2002-03-13 發送簡訊給我 |
TStringList* __fastcall TForm1::CreateFileList(AnsiString Dir) { TStringList* P = new TStringList(); CreatingFileList(P, Dir); return P; } //--------------------------------------------------------------------------- void __fastcall TForm1::CreatingFileList(TStringList* P, AnsiString SubDir) { TSearchRec F; if(FindFirst(SubDir "\\*.*", faAnyFile, F)==0){ do{ if(F.Name!="." && F.Name!=".."){ if((F.Attr & faDirectory)==faDirectory) CreatingFileList(P, SubDir "\\" F.Name); else if(F.Name.UpperCase().Pos(".TXT")) P->Add(SubDir "\\" F.Name); } }while(FindNext(F)==0); FindClose(F); } } //--------------------------------------------------------------------------- void __fastcall TForm1::Button1Click(TObject *Sender) { TStringList *P = CreateFileList("C:\\TEMP"); ListBox1->Items->Text = P->Text; delete P; } //--------------------------------------------------------------------------- |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |