| |
|
|
| | Нужно создать скрипт просмотра содержимого папки и удалить все файлы старше 2х дней от роду.
Ой промах с тематикой.....
Звиняюся  | |
| |
| |
| |
|
|
| | vbscript
используй FSO
я тебе пример кидал, который про версии, помнишь? :) | |
| |
| |
| |
|
|
| | Помню....
Где он блин - поди найди
==============================
' Начало основной секции. Отсюда начнется выполнение при запуске скрипта.
Set FSO = CreateObject("Scripting.FileSystemObject")
' директория, где будут храниться бэкапы. Вы должны вписать свою директорию
' вместо "C:\1_Текущее\Склад_ПВХ\1_PROGRAMS\ARHIV"
sDir ="C:\1_Текущее\Склад_ПВХ\1_PROGRAMS\ARHIV"
Set objDir = GetFolder(sDir)
DeleteOlderFiles(objDir)
' ---------- Секция функций
' Получить папку
Function GetFolder (sFolder)
On Error Resume Next
Set GetFolder = FSO.GetFolder(sFolder)
if err.number <> 0 then
WScript.Echo "Error Opening folder " & sFolder & VBlf & "["&Err.Description&"]"
Wscript.Quit Err.number
end if
End Function
' Удалить файлы старше 2 дней
Sub DeleteOlderFiles(objDir)
' просматриваем все файлы в директории
for each efile in objDir.Files
' используем DateLastModified, а не DateCreated, поскольку
' DateCreated не всегда возвращает правильную дату
FileDate = efile.DateLastModified
Age = DateDiff("d",Now,FileDate)
' в данном случае возраст файла не больше семи дней
If Abs(Age)>2 Then
DeleteFile(efile)
End If
next
End Sub
|
Вот имеется я его подправил, а спускать боюсь - вдруг всё нах... по удаляет или ....
Как думаешь - не опасен вирус? | |
| |
| |
| |
|
|
| | ну потренируйся на одной папочке  | |
| |
| |
| |
|
|
| | два дня маловато будет. (по опыту поддержки). | |
| |
| |
|
|
| |
|
|
| | я вполне серьезно советовал тренироваться на папочке :)
а смайлики я давно ставлю
они вместо знаков препинания....
я так смутно помню, но кажется эту хрень можно запускать в режиме отладки.... | |
| |
| |
|
|
| |
|
|
| | Есть какой то Microsoft Script Debugger
http://www.potolook.ru/blog/p,33/ | |
| |
| |
| |
|
|
| | Как Сопоставить скрипт программе запуска скриптов, а то я открыл в стуудио и забыл убрать галку - всегда открывать с помощью этой программы.
А нашёл какая то Baset script Host
Эти америкосы блин такие трудные названия пишут......  | |
| |
| |
