删除服务器上文件 脚本

 

Dim d,fso,files,file   '声明变量名（不做也可以）
Set d = CreateObject("Scripting.Dictionary")
d.Add "0", "E:\***\"   '把目录路径添加到d这个数组中,0,1是数组的索引（index）
d.Add "1", "\\IP****\e$\*****\"  

 

For Each i in d
       Set FSO = wscript.CreateObject("Scripting.FileSystemObject")
  Set Folder = FSO.GetFolder(d.Item(i))
  Set Files = Folder.Files
  If Files.Count <> 0 Then
   For Each File In Files
    If File.DateLastModified < Now - 0.05 Then   '判断是否超过N天
    FSO.DeleteFile(file)
    End If
   Next
  End If
Next