Скрипт для удаления файлов в определенной папке

Скрипт для удаления файлов в определенной папке. Можно добавить в планировщик задач, чтобы удалять файлы из папок по расписанию.




On Error Resume Next
Set WshShell = WScript.CreateObject("WScript.Shell")
Set objFSO = WScript.CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.GetFolder("D:\Обмен")
Set colSubfolders = objFolder.Subfolders
For Each objSubfolder in colSubfolders
errResults = objSubfolder.Delete
Next
Set files_col = objFolder.files
For each file_obj in files_col
file_obj.delete(true)
Next


Где D:\Обмен - путь к папке, где нужно удалить файлы.