刪除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 & "\*.*")
留言
張貼留言