Серый форум — VBScript: Как удалять файлы по имени и двухнедельной давности

Re: VBScript: Как удалять файлы по имени и двухнедельной давности

2011-11-30T16:02:34Z

Не будем спорить, ибо давно определено, что… В общем, здесь правы greg zakharov и Rumata.

Re: VBScript: Как удалять файлы по имени и двухнедельной давности

2011-11-30T15:45:55Z

dab00 пишет:

не вижу особой разницы:
менять аргументы запуска или менять константу/переменную в коде, по мне так проще второе, но это, как говорится, на вкус и цвет

Большая разница.
Во-первых, замена константы/переменной в коде - это модификация приложения. Недопустимо менять какую-либо часть программы, находящейся в промышленной эксплуатации. Во-вторых, запуск с параметром - это гибкость в эксплуатации..

Re: VBScript: Как удалять файлы по имени и двухнедельной давности

2011-11-30T14:40:39Z

Не заметил никакого моветона, чесслово
Стопудово скрипт будет запускаться через планировщик, поэтому не вижу особой разницы:
менять аргументы запуска или менять константу/переменную в коде, по мне так проще второе, но это, как говорится, на вкус и цвет

Re: VBScript: Как удалять файлы по имени и двухнедельной давности

2011-11-30T13:54:57Z

If InStr(i.Name,"искомая_строка") Then
If fso.GetExtensionName(i.Path) = "искомое_расширение" Then

Re: VBScript: Как удалять файлы по имени и двухнедельной давности

2011-11-30T13:43:20Z

как удалять старше даты я понял, и привел скрипт. Вопрос в том как объединить удаление файла с определенным именем и расширением которое старше 2 недель.

Re: VBScript: Как удалять файлы по имени и двухнедельной давности

2011-11-30T13:38:11Z

OlderThanDate = DateAdd("d", -14, Date) ' дата, старше которой необходимо удалять
If i.DateLastModified < OlderThanDate Then ...
По именам - можно парсить имена файлов например функцией InStr
По расширениям - тоже можно парсить имя файла или получать расширения файлов с помощью, например, fso.GetExtensionName

VBScript: Как удалять файлы по имени и двухнедельной давности

2011-11-30T12:46:00Z

Всем добрый день.

Есть вот такой скрипт:

Dim fso, WshShell
Dim oFolder, oFile
Const DPath = "E:\Backup\"

Set fso = createobject("Scripting.FileSystemObject")
Set WshShell = CreateObject("WScript.Shell")
Set oFolder = fso.GetFolder(DPath)

Set oFile = oFolder.Files

If (Not fso.FolderExists(DPath)) Then
WSH.Echo("Отсутствует директория или не назначен диск")
Else
For Each i In oFile 
file =  oFolder.Path & i.Name

If (i.DateLastModified < (Date - 14)) Then
fso.DeleteFile file, true
End If
next
End if

Подскажите, каким образом можно переделать данный скрипт, чтобы удалялись файлы которые старше 2 недель по определенным именам и расширениям.