Тема: VBScript: удаление папок +1 от указанного корня
Здравствуйте уважаемые знающие люди. В интернете много скриптов по удалению файлов по истечении времени, но там нет важной для меня функции.
Есть место, расположенное в сети, либо же можно физически на сервере, папка SCAN, в этой папке находятся еще много папок - по "логину в винде юзера".
Есть такой скрипт, который удаляет файлы страше 2_х дней в папке, нужно добавить в него в папке +1
Т.е. чтобы удаление происходило не в path = "C:\Temp" а ВНУТРИ директорий находящихся в этой папке.
Например "C:\Temp\Sidorov", "C:\Temp\Petrov", "C:\Temp\Ivanov"
path = "C:\Temp"
killdate = date() - 7
arFiles = Array()
set fso = createobject(«scripting.filesystemobject»)
SelectFiles path, killdate, arFiles, truenDeleted = 0
for n = 0 to ubound(arFiles)
on error resume next
arFiles(n).delete true
if err.number <> 0 then
wscript.echo "Unable to delete: " & arFiles(n).path
else
nDeleted = nDeleted + 1
end if
on error goto 0
next
msgbox nDeleted & " of " & ubound(arFiles)+1 _
& " eligible files were deleted"
sub SelectFiles(sPath,vKillDate,arFilesToKill,bIncludeSubFolders)
on error resume next
set folder = fso.getfolder(sPath)
set files = folder.files
for each file in files
dtlastmodified = null
on error resume Next
dtlastmodified = file.datelastmodified
on error goto 0
if not isnull(dtlastmodified) Then
if dtlastmodified < vKillDate then
count = ubound(arFilesToKill) + 1
redim preserve arFilesToKill(count)
set arFilesToKill(count) = file
end if
end if
next
if bIncludeSubFolders then
for each fldr in folder.subfolders
SelectFiles fldr.path,vKillDate,arFilesToKill,true
next
end if
end sub
