powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Windows [игнор отключен] [закрыт для гостей] / Автоматизация удаления файлов с помощью пакетного файла
3 сообщений из 28, страница 2 из 2
Автоматизация удаления файлов с помощью пакетного файла
    #34126546
Фотография Green2
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
...
Рейтинг: 0 / 0
Автоматизация удаления файлов с помощью пакетного файла
    #34130136
Ksuha
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Ребята, какие вы все молодцы. Огромное вам спасибо. Если бы не вы, то я бы никогда бы не узнала о таких прекрасных языках, как VBScript и JScript. Я нарыла энное количество документации, полазила там и написала замечательнейший скрипт по удалению файлов недельной давности. Он оказался не таким уж страшным :) :

Dim fs, f, f1, fc, s
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFolder("Z:\")
Set fc = f.Files
For Each f1 in fc
If datediff("d",f1.DateCreated,date)>7 Then
f1.Delete
End If
Next

Вот и всё. Сохранила этот текст в файле с расширением .vbs и засунула его в Планировщик задач для ежедневного выполнения.

Всё работает. Что бы я без вас делала!!!!
...
Рейтинг: 0 / 0
Автоматизация удаления файлов с помощью пакетного файла
    #34131391
Фотография Relic Hunter
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
KsuhaМожно добавить, что передавать фолдер, из которого удалять лучше как параметр. Тогда получится более-менее универсальный скрипт.

Код: plaintext
dele.vbs Z:\
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
Dim fs, f, f1, fc, sFolder
sFolder = WScript.Arguments( 0 )
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFolder(sFolder)
Set fc = f.Files
For Each f1 in fc
  If datediff("d", f1.DateCreated, date) >  62  Then
    f1.Delete
    'WScript.echo f1.name
  End If
Next
...
Рейтинг: 0 / 0
3 сообщений из 28, страница 2 из 2
Форумы / Windows [игнор отключен] [закрыт для гостей] / Автоматизация удаления файлов с помощью пакетного файла
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]