各位好 小弟在爬了不少文之後 寫了以下的程式碼 問題是我無法刪除判斷過後需刪除的資料夾 煩請各位大大幫小弟看一下 謝謝! <textarea class="cpp" rows="10" cols="60" name="code">//--------------------------------------------------------------------------- TStringList* __fastcall TForm1::CreateFileList(AnsiString Dir) { TStringList* P = new TStringList(); CreatingFileList(P, Dir); return P; } //--------------------------------------------------------------------------- void __fastcall TForm1::CreatingFileList(TStringList* P, AnsiString SubDir) { TSearchRec F; AnsiString szFileName,szFileTime,str,dmonth,dday; SYSTEMTIME SystemTime; FILETIME FileTime; int dataLen,LastLen; //FindFirst returns 0 if a file was successfully located if(FindFirst(SubDir "\\*.*", faAnyFile, F)==0) { do{ if(F.Name!="." && F.Name!=".." && F.Name!="ABC")//不搜尋資料夾ABC { if((F.Attr & faDirectory)==faDirectory) { CreatingFileList(P, SubDir "\\" F.Name); } else if(F.Name.UpperCase().Pos(".TXT") ) { P->Add(SubDir "\\" F.Name); szFileName=SubDir "\\" F.Name; szFileTime = FormatDateTime("yyyy-mm-dd",FileDateToDateTime(FileAge(szFileName))); ListBox2->Items->Add(szFileName); dataLen=szFileTime.Length(); dmonth=szFileTime.SubString(6,2); dday=szFileTime.SubString(9,2); GetSystemTime(&SystemTime); if (StrToInt(dday)==13) { DeleteFile(szFileName); RemoveDir(SubDir); ListBox3->Items->Add(SubDir); } } } }while(FindNext(F)==0); FindClose(F); } } void __fastcall TForm1::Button3Click(TObject *Sender) { TStringList *P = CreateFileList("C:\\TEMP"); ListBox1->Items->Text = P->Text; delete P; } </textarea>

------
學海無崖

BCB新手 請各位多多指教 謝謝!

編輯記錄

上述問題小弟我已經知道如何解決了 但因為要刪除的檔案量非常大時 使用檔案判斷的方式會花掉一些時間 想使用判斷資料夾的修改時間來做整個資料夾刪除的動作 要怎麼做呢? 目前看到有一篇文章寫了一個函數 "GetDirTime" 但是我在BCB的HELP怎麼找不到這個函式呢? 請問各位大大有其他解決方式嗎? 謝謝!

------
學海無崖

BCB新手 請各位多多指教 謝謝!

刪除過期的檔案嗎？
我的作法是，如果目錄是由程式自行建立處理的話，那麼檢查今天的日期，假設為20070214，如果以DirectorExists找不到，那麼就建立一個20060214的目錄，其後將本日產生的檔案都放在裡面；依此類推，如果檢查指定目錄下的目錄時間超過了自訂的時間範圍時(找一下DateUtils，裡面有很多的時間相關函數可用)，就將該目錄刪除而無須搜尋該目錄下的檔案了，至於刪除目錄的方法KTOP裡面很多，有遞迴的方法，也有呼叫WINAPI的，找一下吧～

首先謝謝Stallion的回應，但因為目前資料夾的名稱並不是以日期來取的(目前也無法改成以日期來命名)，所以才必須取得資料夾的最後修改日期來做判斷。

我也爬了許多KTOP上的文章，也會使用遞迴的方式去搜尋檔案、取得檔案的修改日期並刪除檔案了。

而我現在希望能透過判斷資料夾修改時間的方式來刪除資料夾的話，相信會節省許多的時間。但小弟找不到可以取得目錄修改時間的函式，希望知道的大大能告知，謝謝。

------
學海無崖

BCB新手 請各位多多指教 謝謝!

看看這篇吧(取得與設定文件目錄的時間)～雖然是VC++的，但是CONSOLE程式，寫法大同小異。
http://www.pcdog.com/p/html/20041122/221120042691_1.htm

謝謝Stallion，我已經了解此問題如何解決了。再次感謝唷~!

------
學海無崖

BCB新手 請各位多多指教 謝謝!

//刪除C:\temp下過時的檔案
AnsiString dir="C:\\temp\\";
int res=3;//保留三天
if(DirectoryExists(dir))
{
FileListBox1->Directory=dir;
FileListBox1->Mask="*.*";
FileListBox1->Update();
for(int i=0;i小於FileListBox1->Items->Count;i )
{
AnsiString file=dir FileListBox1->Items->Strings[i];
TDateTime FDate=FileDateToDateTime(FileAge(file));
TDateTime RDate=Date()-res;
if(RDate>FDate)DeleteFile(file);
}
}

P.S.未驗證

提問者您好:


以上回應是否已得到滿意的答覆？


若已得到滿意的答覆，請在一週內結案，否則請在一週內回覆還有什麼未盡事宜，不然，
將由版主(尚無版主之區域將由副站長或站長)採自由心證,選擇較合適之解答予以結案處理，
被選上之答題者同樣會有加分獎勵，同時發問者將受到扣 1 分的處分。不便之處，請見諒。


有問有答有結案，才能有良性的互動，良好的討論環境需要大家共同維護，感謝您的配合。

------
我是機器人,我不接受簡訊.