原創 清空目錄 附原始碼

2021-04-01 00:36:51 字數 958 閱讀 5412

刪除目錄,必須要保證該目錄為空,即不能存在任何檔案和子目錄,才能刪除該目錄,否則刪除不掉該目錄。以下**就是用來清空目錄的,刪除乙個目錄裡的所有檔案包括子目錄。使用了遞迴呼叫。

procedure  cleardir(path: string);

varfsearchrec: tsearchrec;

findresult: shortint;

begin

findresult := findfirst(path + '*.*', faanyfile, fsearchrec);

trywhile findresult = 0 do

begin

if ((fsearchrec.attr and fadirectory) = fadirectory)

and (fsearchrec.name <> '.') and (fsearchrec.name <> '..') then

begin

cleardir(path + fsearchrec.name + '/');

removedir(path + fsearchrec.name);

endelse if (fsearchrec.attr and fadirectory) <> fadirectory then

deletefile(path + fsearchrec.name);

findresult := findnext(fsearchrec);

end;

finally

findclose(fsearchrec);

end;

end;

findfirst:命令對指定的檔名及屬性搜尋目錄。

findnext:命令返回與檔名及屬性匹配的下一入口。

removedir:刪除目錄,要保證該目錄為空。

deletefile:刪除檔案。

關於這些函式詳細解釋請參考delphi幫助。

C盤滿了,清空目錄

清除電腦垃圾 執行 temp 1 temp 電腦臨時檔案的歸放處,這些臨時檔案一般存在時效性,過了時間段基本不會用,並且將該檔案刪除並不會對電腦造成影響。操作 此電腦 c盤 windows temp 注意事項 不要刪除資料夾本身。2 prefetch 系統執行產生的快取垃圾,一般將裡面的內容進行清理...

dos命令應用 啟動程式 清空目錄

start可以用來在桌面設定一鍵快捷啟動多個程式的功能 start命令預設不等待程式執行即執行下一條命令,即命令不會阻塞。另存以下文本文bat檔案,放在桌面,按 1 鍵定位到檔案,enter 鍵執行。rem 啟動qq start min d program files x86 tencent qq ...

如何實現鍵盤的模擬輸入(附原創原始碼)

void ckeyboarddlg onp 上面這兩行 就實現了模擬按下字母p,根據這樣的原理 我們可以模擬按下了一些組合的快捷鍵 好實現一些不容易實現的功能。我們知道 按下鍵盤上windows的標誌鍵和字母r 就可以開啟執行對話方塊。我們可以在程式中模擬按下這兩個按鍵,在上面的程式中加入乙個按鈕。...