Hi,

我有幾個問題.

1. 在一目錄 (folder)下有幾個檔案 (PDA_TEXT.txt, PDA_COM.zip, etc.)
請問要如何讀取檔案名? 沒有extend name.
PDA_TEXT.txt => PDA_TEXT;
PDA_COM.zip => PDA_COM;

2. 請問如何能知道有多少Files 在一目錄folder?


謝謝!

void __fastcall TForm1::Button1Click(TObject *Sender)
{
TSearchRec sr;
int iAttributes = 0;
int FileCount = 0;
char *SearchFileName = "*"; // 要找的檔案名稱
// char *SearchFileName = "PDA_TEXT"; // 要找的檔案名稱
Memo1->Clear();
iAttributes |= faReadOnly ;
iAttributes |= faHidden ;
iAttributes |= faSysFile ;
// iAttributes |= faVolumeID ;
// iAttributes |= faDirectory ;
iAttributes |= faArchive ;
// iAttributes |= faAnyFile ;
if (FindFirst(SearchFileName, iAttributes, sr) == 0)
{
do
{
if ((sr.Attr & iAttributes) == sr.Attr)
{
FileCount = FileCount 1;
Memo1->Lines->Add(sr.Name);
}
} while (FindNext(sr) == 0);
FindClose(sr);
}
Memo1->Lines->Add("共有 " IntToStr(FileCount) " 個檔案");
}

------
能力不足，求助於人；有能力時，幫幫別人；如果您滿意答覆，請適時結案！

子曰：問有三種，不懂則問，雖懂有疑則問，雖懂而想知更多則問！

謝謝!