|
|
|
Автоматизация удаления файлов с помощью пакетного файла
|
|||
|---|---|---|---|
|
#18+
http://msdn.microsoft.com/library/default.asp?url=/downloads/list/webdev.asp -- Posted via ActualForum NNTP Server 1.3 ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 14.11.2006, 12:15 |
|
||
|
Автоматизация удаления файлов с помощью пакетного файла
|
|||
|---|---|---|---|
|
#18+
Ребята, какие вы все молодцы. Огромное вам спасибо. Если бы не вы, то я бы никогда бы не узнала о таких прекрасных языках, как 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 и засунула его в Планировщик задач для ежедневного выполнения. Всё работает. Что бы я без вас делала!!!! ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 15.11.2006, 13:51 |
|
||
|
Автоматизация удаления файлов с помощью пакетного файла
|
|||
|---|---|---|---|
|
#18+
KsuhaМожно добавить, что передавать фолдер, из которого удалять лучше как параметр. Тогда получится более-менее универсальный скрипт. Код: plaintext Код: plaintext 1. 2. 3. 4. 5. 6. 7. 8. 9. 10. ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 15.11.2006, 18:47 |
|
||
|
|

start [/forum/topic.php?fid=26&msg=34126546&tid=1508967]: |
0ms |
get settings: |
9ms |
get forum list: |
14ms |
check forum access: |
2ms |
check topic access: |
2ms |
track hit: |
149ms |
get topic data: |
12ms |
get forum data: |
3ms |
get page messages: |
56ms |
get tp. blocked users: |
1ms |
| others: | 223ms |
| total: | 471ms |

| 0 / 0 |
