Т.е. ниже приведенный скрипт сохраняем в файл с расширением .vbs
Код: Выделить всё
Option Explicit
Dim FSO, Folder, subFolder
Dim strSource
Dim intErrLevel
strSource = "F:\disk" ' папка содержащая каталоги для проверки
intErrLevel = 0
Set FSO = WScript.CreateObject("Scripting.FileSystemObject")
If FSO.FolderExists(strSource) Then
Set Folder = FSO.GetFolder(strSource)
For Each subFolder In Folder.subFolders
if DateDiff("D", subFolder.DateLastModified, Now) > 10 Then
subFolder.Delete
End If
Next
Else
WScript.Echo "папка " & strSource & " не найдена."
intErrLevel = 1
End If
Set FSO = Nothing
WScript.Quit intErrLevel
Код: Выделить всё
cscript c:\filename.vbs