刪除Log資料夾內的所有檔案及資料夾，檔名為fileName.vbs，可設定為排程。 Dim fso, oFld, oSubFlds, oSubFld, sFolderName '建立 FileSystemObject 物件 Set fso = CreateObject("Scripting.FileSystemObject") '傳回對應到指定路徑中資料夾的 Folder 物件 sFolderName= "C:\Log" Set oFld = fso.GetFolder(sFolderName) '傳回Folder物件的子目錄集合，其中包含設定隱藏和系統檔案屬性的資料夾 Set oSubFlds = oFld.SubFolders '逐一取出子目錄集合內的子目錄 For Each oSubFld in oSubFlds '刪除子目錄 fso.DeleteFolder(oSubFld) Next '刪除該目錄所有檔案 fso.DeleteFile(sFolderName & "\*.*")