一個(gè)可以刪除指定天數(shù)文件的vbs腳本
更新時(shí)間:2007年02月26日 00:00:00 作者:
復(fù)制代碼 代碼如下:
Const FilePath = "E:\log" '定義目錄
Set FSO = CreateObject("Scripting.FileSystemObject")
ShowSubfolders FSO.GetFolder(filepath)
Sub ShowSubFolders(Folder)
For Each Subfolder in Folder.SubFolders
Set Files = subfolder.Files
If Files.Count <> 0 Then
For Each File In Files
If File.DateLastModified < Now - 30 Then '判斷是否超過30天
FSO.DeleteFile(Subfolder.Path & "\" & File.Name) '刪除
'Wscript.Echo Subfolder.Path & "\" & File.Name '顯示
End If
Next
End If
ShowSubFolders Subfolder
Next
End Sub
相關(guān)文章
從一個(gè)VBS腳本學(xué)習(xí)一點(diǎn)點(diǎn)東西
從一個(gè)VBS腳本學(xué)習(xí)一點(diǎn)點(diǎn)東西...2006-09-09