目錄是固定, 目錄下檔案是文字檔,檔名是變數(依日期 時間 流水號 丟出來) 檔名不是每分鐘丟出(不固定), 請問目錄下如何判斷有幾個files, 並可知它的檔名 我要努力,誰指點我謝謝

void __fastcall TForm1::Button1Click(TObject *Sender)
{
  TSearchRec sr;      String path = "c:\\xxx\\";
  String mask = "*.*";      int iAttributes = 0;
//  iAttributes |= faReadOnly;
//  iAttributes |= faHidden;
//  iAttributes |= faSysFile;
//  iAttributes |= faVolumeID;
//  iAttributes |= faDirectory;
  iAttributes |= faArchive;
//  iAttributes |= faAnyFile;      if (FindFirst(path   mask, iAttributes, sr) == 0)
  {
    do
    {
      if ((sr.Attr & iAttributes) == sr.Attr)
      {
        Memo1->Lines->Add(path   sr.Name);
      }
    } while (FindNext(sr) == 0);
    FindClose(sr);
  }
}

發表人 - allenchan 於 2004/12/10 18:28:32

引言:

void __fastcall TForm1::Button1Click(TObject *Sender)
{
  TSearchRec sr;      String path = "c:\\xxx\\";
  String mask = "*.*";      int iAttributes = 0;
//  iAttributes |= faReadOnly;
//  iAttributes |= faHidden;
//  iAttributes |= faSysFile;
//  iAttributes |= faVolumeID;
//  iAttributes |= faDirectory;
  iAttributes |= faArchive;
//  iAttributes |= faAnyFile;      if (FindFirst(path   mask, iAttributes, sr) == 0)
  {
    do
    {
      if ((sr.Attr & iAttributes) == sr.Attr)
      {
        Memo1->Lines->Add(path   sr.Name);
      }
    } while (FindNext(sr) == 0);
    FindClose(sr);
  }
}

發表人 - allenchan 於 2004/12/10 18:28:32

??????????????????????? 這是delphi 語法嗎 ?

哈哈，沒注意，這是 BCB 的，Delphi 請參考 http://delphi.ktop.com.tw/topic.php?topic_id=40171 http://delphi.ktop.com.tw/topic.php?TOPIC_ID=20345    Delphi 的 Code 大概應該長下面這樣吧：

var
  sr : TSearchRec;
  path, mask : String
begin
  path = 'c:\xxx\';
  String mask = '*.*';      if FindFirst(path   mask, faArchive, sr) = 0 then
  begin
    Repeat
        Memo1->Lines->Add(path   sr.Name);
    Until FindNext(sr) <> 0;
    FindClose(sr);
  end;
end;

發表人 - allenchan 於 2004/12/10 20:17:13

嗨 allenchan 我懂了, 謝謝這麼熱心 假日愉快稱心 發表人 - nick167 於 2004/12/10 20:27:30