欧美bbbwbbbw肥妇,免费乱码人妻系列日韩,一级黄片

一個(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)文章

最新評(píng)論