BCB資料夾與檔案搜尋與處理－nineaddnine的部落格

1.搜尋該資料夾內的資料夾與檔案
2.判斷是檔案還是資料夾

TStringList *lstFiles = new TStringList;
AnsiString str = "C:\\path1\\path2";
TSearchRec sr;

str += "\\*.*"; //尋找資料夾內的內容

if (FindFirst(str, faAnyFile, sr) == 0){
  do{
    lstFiles->Add( sr.Name );
  } while (FindNext(sr) == 0);
  FindClose(sr);
}

//到此已經取得該資料夾內的所有資料夾與檔案的名稱
//利用lstFiles->Strings[x]取得該名稱,
//lstFiles->Count則為該資料夾內的檔案的數目

for(int i=2;iCount;i++){
  if (FindFirst(str, faDirectory, sr) == 0){
    if(sr.Attr==faDirectory){ //判斷是否為資料夾
      //資料夾處理程式碼
    }else{
      //檔案處理程式碼
    }
  }
}

delete lstFiles;

參考資料：
http://www.programmer-club.com/pc2020v5/forum/showSameTitleN.asp?board_pc2020=cb&id=12081&keyword