引言: void __fastcall TForm1::Button1Click(TObject *Sender) { String FileName; TSearchRec SearchRec; int iAttributes_01 = 0; int iAttributes_02 = 0; iAttributes_01 |= faReadOnly * true; //只找唯讀 iAttributes_02 |= faAnyFile * true; //全部檔案 String Dir=ExtractFilePath(Application->ExeName); if (FindFirst(Dir "*.*", iAttributes_01, SearchRec) == 0) //尋找全部檔案中屬性為唯讀的檔案 { do { if ((SearchRec.Attr & iAttributes_02) == SearchRec.Attr) //真正的屬性比對是這一行 { Memo1->Lines->Add(SearchRec.Name); //結果Memo顯示全部檔案而不管屬性是否唯讀 } } while (FindNext(SearchRec) == 0); FindClose(SearchRec); } } /*但結果是秀出全部檔案不管屬性是否唯讀,因為FindFirst與FindNext根本不比對屬性 !! 真正的屬性比對是我們的程式在比對,那這樣的話FindFirst的第二個參數根本沒作用 而且顯得很多餘 是這樣子嗎??? 再問第二個問題 TSearchRec結構中用一個int型別(32bit)來表示檔案的 size 這是否暗示一個檔案的大小不能超過4G ??? */

builder78 你好: (1)請改成以下這樣看看 < class="code"> void __fastcall TForm1::Button1Click(TObject *Sender) { String FileName; TSearchRec SearchRec; int iAttributes_01=faReadOnly; int iAttributes_02=faAnyFile; if(FindFirst("C:\\*.*", iAttributes_02, SearchRec)==0) { do { if(SearchRec.Attr & iAttributes_01) { Memo1->Lines->Add(SearchRec.Name); } } while (FindNext(SearchRec)==0); FindClose(SearchRec); } } (2)理論上應該是這樣子的(不過這點我不是很確定) --

引言: 謝謝版主的回答~ 不過你給的程式並無法證明FindFirst的屬性參數有無作用? 不過卻讓我知道了下列: (1) //表示檔案屬性只要符合所設定屬性中的任何一個屬性即可 if(SearchRec.Attr & iAttributes_01) (2) //表示檔案屬性一定要符合所設定屬性中的全部屬性才可以 ??? <= 這第二點的程式碼 要怎表示呢??

builder78 你好:
(2)如果想要符合全部的屬性，請參考以下的做法
   >    -- 
        

void __fastcall TForm1::Button1Click(TObject *Sender)
{
  String FileName;
  TSearchRec SearchRec;
  String Dir=ExtractFilePath(Application->ExeName);
  if (FindFirst(Dir "*.*", faAnyFile, SearchRec) == 0) //尋找全部屬性的檔案
  {
    do
    {
      if ((SearchRec.Attr | faReadOnly | faHidden) == SearchRec.Attr) //尋找唯讀加隱藏的檔案
      {
        Memo1->Lines->Add(SearchRec.Name);
      }
    } while (FindNext(SearchRec) == 0);
  FindClose(SearchRec);
  }
}