deletefile('c:/temp/abc.txt')
//刪除了abc.txt
檔案。我如何一下子把c：/temp目錄下的檔案自動乙個接乙個的刪除。如何做迴圈判斷？？？
function tmainform.deletedirectory(nowpath: string): boolean; //刪除整個目錄
var
search: tsearchrec;
ret: integer;
key: string;
begin
if nowpath[length(nowpath)] <> '/' then
nowpath := nowpath + '/';
key := nowpath + '*.*';
ret := findfirst(key, faanyfile, search);
while ret = 0 do begin
if ((search.attr and fadirectory) = fadirectory)
then begin
if (search.name <> '.') and (search.name <> '..') then
deletedirectory(nowpath + search.name);
end else begin
if ((search.attr and fadirectory) <> fadirectory) then begin
deletefile(nowpath + search.name);
end;
end;
ret := findnext(search);
end;
findclose(search);
removedir(nowpath);
result := true;
end;
用TreeView顯示某一資料夾下的所有目錄和檔案
網路上居然找不到現成的 特此補充一篇 關鍵字 treeview,asp.net2.0,c 檔案,目錄 public partial class admin filelist test system.web.ui.page 迴圈遍歷獲得某一目錄下的所有檔案資訊 目錄名 樹節點 private stat...
Python執行某一資料夾下的所有py檔案
記一段 是使用python執行某一資料夾下的所有py檔案 coding utf 8 import os 當前指令碼所在的檔案絕對路徑 cur path os.path.dirname os.path.realpath file 將當前路徑設定為python的臨時環境變數，用於命令執行,需要設定是因為...
修改統一資料夾下的檔名字尾
前兩天遇到乙個小小的問題，在網上爬了很多小姐姐的，但都是以.jpg結尾的，想把它改為以.png結尾的檔案。於是就敲了敲 只用簡簡單單幾行 就實現了。import os import re 資料夾的位置 path c users administrator pictures 籃球 列出目錄下所有檔案的...