Скрипт для файлов
Всем привет! Помогите мне пожалуйста! Нужно написать скрипт для перемещения старых из одной папки в другую.
(что-то наподобие удаления старых файлов:
TargetFolder = "Диск:\Путь"
ControlDate = Date-Количество дней(-14)
On Error Resume Next
Set objFSO = CreateObject("Scripting.FileSystemObject")
For Each objFile In objFSO.GetFolder(TargetFolder).Files
If objFile.DateLastModified < ControlDate Then
objFSO.DeleteFile objFile.Path
End If
Next
)
|