如何刪除資料夾，整個 Delete ，不管資料夾下是否有檔案 |
|
答題得分者是：erutluv
|
|
流
中階會員   發表：36 回覆：142 積分：70 註冊：2003-07-24 發送簡訊給我 |
可以建立資料夾後，我在想是不是能夠刪除？
原本我以為可以再建立一個同名的資料夾而覆蓋舊有的
不過這方法倒是失敗了。
請問一下有沒有可以刪除整個資料夾，包括底下的檔案
我有搜尋過之前的文章 Button1Click
{
SHFILEOPSTRUCT oFile;
ZeroMemory(&oFile, sizeof(SHFILEOPSTRUCT));
oFile.hwnd=Form1->Handle;
oFile.wFunc=FO_DELETE;
oFile.pFrom="C:\\TESTDIR";
oFile.fFlags=FOF_ALLOWUNDO | FOF_NOCONFIRMATION;
SHFileOperation(&oFile);
} 可是小弟就一直試不出來，並會出現如下之 message 視窗警告
『無法刪除檔案:無法讀取來源檔案或磁碟』
是不是我少 include 什麼了呢，或是．．． 感謝回答
|
|
CHIWW
初階會員 發表：8 回覆：16 積分：29 註冊：2002-09-15 發送簡訊給我 |
|
|
erutluv
一般會員  發表：7 回覆：7 積分：7 註冊：2003-04-22 發送簡訊給我 |
void __fastcall TForm1::_DelTree(String dir)
{
String d=dir;
String FileName;
TSearchRec SearchRec; if (!DirectoryExists(dir)) return; // 要 #include "FileCtrl.hpp" 才有這個函式 if (d.SubString(d.Length(),1)!="\\")
d=d "\\"; if (FindFirst(d "*.*", faAnyFile, SearchRec) == 0){
do {
if (SearchRec.Attr == faDirectory){
if ((SearchRec.Name!=".") && (SearchRec.Name!="..")){
_DelTree(d SearchRec.Name); //遞迴呼叫
RemoveDir(d SearchRec.Name);
}
}else{
FileSetAttr(d SearchRec.Name,faArchive);
DeleteFile(d SearchRec.Name);
}
} while (FindNext(SearchRec) == 0); FindClose(SearchRec); } RemoveDir(d); } 以上為擷取自某篇回應文章,感謝該作者
|
發表時間：2003-08-14 01:19:09
IP:218.163.xxx.xxx 未訂閱
系統時間：2024-05-03 16:14:20
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |