以下程式碼是利用版上先進提供的架構梢做修改
void __fastcall TForm1::Button1Click(TObject *Sender)
{
//*************自動搜尋目錄******************
if (edtDir_name->Text != "")
{ //***********目錄_1,不可空白****************
AnsiString szDir=ExtractFilePath(Application->ExeName) edtDir_name->Text;
//AnsiString s_1="\\";
TSearchRec SearchRec;
int iAttr=faAnyFile;//檔案
int iDir=faDirectory;//目錄(測試)
int iFound=0;
int iCount=0;//檔案數量
AnsiString szFile="";

//*********Class 物件*********
//read_summary read_1;
//****************************

if(!DirectoryExists(szDir))
{
Memo1->Lines->Add("此目錄不存在");
return;
}

else if (DirectoryExists(szDir))
{ //**********目錄存在*****************

//********開始時間**************
edt_str_time->Text=Time();
//******************************

if(szDir.SubString(szDir.Length(), 1)!="\\")
{
szDir=szDir "\\";
}
//iFound=FindFirst(szDir "*.*", iAttr, SearchRec);
iFound=FindFirst(szDir "*.", iDir, SearchRec);//****************
while(iFound==0)
{
if(SearchRec.Attr!=faDirectory)
{
szFile=(AnsiString)SearchRec.Name;//szDir (AnsiString)SearchRec.Name;
Memo1->Lines->Add(szFile);
iCount ;//檔案數量
}
iFound=FindNext(SearchRec);
Application->ProcessMessages();
}
FindClose(SearchRec);

//********結束時間**************
edt_end_time->Text=Time();
//******************************

ShowMessage("Total " IntToStr(iCount) " files!");
//Memo1->Lines->Add(iCount);//除錯用


}
}
else
{
Memo1->Lines->Add("請輸入目錄名稱");
}
}

以上
將原本藍色部份(讀取檔案)改為紅色,還是無法搜尋到任何目錄...
是缺了什麼嗎?
請大家多多指教

要找目錄的話，只要改以下(原來的 *.* 不用改)

if(SearchRec.Attr!=faDirectory) // 只找不是目錄
改成
if(SearchRec.Attr==faDirectory) // 只找是目錄

如果您檔案及目錄都要找，就不需要這個 if 判斷了。



■ Seednet ShareMe 免費網路硬碟, 申請送2G, 用 MSN 幫她打廣告加 10G, 推薦1人加 1G, 活動只到 9 月底, 請把握時機 ■

------
http://www.ViewMove.com

謝謝你
可以使用
原來是自己沒將程式碼看完全... >誠心感謝^__^