Помогите создать VBScript для удаления файлов
Модератор: Модераторы
Сообщений: 2
• Страница 1 из 1
feodul » 21 июл 2006, 09:50
Я создал написал скрипт который запускает WinRar и архивирует нужные мне файлы
Имя файла такого рода "Arhiv_2006-07-21.rar"
Подскажите как написать файл который будет оставлять последние 3 архива по дате?
Имя файла такого рода "Arhiv_2006-07-21.rar"
Подскажите как написать файл который будет оставлять последние 3 архива по дате?
- slz
- Активный пользователь
- Сообщения: 1229
- Зарегистрирован: 08 июл 2004, 06:17
- Откуда: Новосибирск
slz » 21 июл 2006, 11:29
Ну примерно так:
| Код |
| on error resume next
dayD=day(now-3) if dayD<10 Then dayD="0" & dayD end if monthM=month(now) if mountM<10 Then monthM="0" & MonthM end if yearY=year(now) arch="C:\Arch_"&yearY&"-"&monthM & "-" & dayD&".rar" WScript.echo "Сегодня " & currdate & " Три дня назад " & currdate-3 WScript.echo yearY & "-" & monthM & "-" & dayD WScript.echo arch Dim fso Set fso = CreateObject("Scripting.FileSystemObject") fso.DeleteFile(arch) [/code] Если будешь сам имена файлов архивов создавать, а не полагаться на RAR, то можно проще.
Сообщений: 2
• Страница 1 из 1
Вернуться в Автоматизация процесса управления Кто сейчас на конференцииСейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 9 |