Total Commander (часть 4) - [9] :: Программы :: Компьютерный форум Ru.Board

magnetics

Цитата:

Требуется регулярно удалять все файлы с текущей папки и с огромного количества вложенных папок.

А я предлагаю сделать это таким образом (натолкнул ты меня на мысль - может и самому пригодится

):
Создай в блокноте файл такого содержания -
Код:

If WScript.Arguments.Count = 1 Then
ClearDirs WScript.Arguments.Item(0)
End If
WScript.Quit
Sub ClearDirs(ParentDir)
On Error Resume Next
Dim FSO, PDir, ColSubDirs, SubDir
Set FSO = CreateObject("Scripting.FileSystemObject")
Set PDir = FSO.GetFolder(ParentDir)
Set ColSubDirs = PDir.SubFolders
For Each SubDir In ColSubDirs
FSO.DeleteFile SubDir & "\*.*", True
ClearDirs SubDir.Path
Next
End Sub

назови, например, clearDirs.vbs. Положи куда-нибудь.
Ну и еще два файла - 1) reg_clearDirs.reg
Код:

Windows Registry Editor Version 5.00

[HKEY_CLASSES_ROOT\Directory\shell\Очистить папку]

[HKEY_CLASSES_ROOT\Directory\shell\Очистить папку\command]
@="wscript.exe \"c:\\Маршрут скрипта\\clearDirs.vbs\" \"%L\" //B"

2) unreg_clearDirs.reg
Код:

Windows Registry Editor Version 5.00

[-HKEY_CLASSES_ROOT\Directory\shell\Очистить папку]

После регистрации появится в контекстном меню пункт "Очистить папку". И чисти сколько угодно...

Поскольку такой способ небезопасный - то же самое в виде приложения с запросом:
http://www.filespace.org/Rush/ClearDirs.zip

Модерирует : gyra, Maz
Widok (24-11-2008 12:57): лимит страниц. продолжаем здесь	Версия для печати • Подписаться • Добавить в закладки
Страницы: 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119