Cкрипт для поиска и удаления определенной папки
Вторник, 1 ноября 2011 г.Рубрика: Познавательное -> В помощь сисадмину
Метки: script | vbscript
Просмотров: 23572
Подписаться на комментарии по RSS
Может кому еще пригодиться, небольшой скрипт для поиска определенной папки и ее удаления.
думаю что комментировать не надо, и так все понятно.
'==============================================
Option Explicit
On Error Resume Next
'==============================================
ShowFolderList("C:\Documents and Settings")
Function ShowFolderList(folderspec)
Dim fso, f, f1, s, sf
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.GetFolder(folderspec)
Set sf = f.SubFolders
For Each f1 in sf
ShowFolderList(f1.path)
if strcomp(f1.name,"1CvXX") = 0 then
fso.deletefolder f1.path, true
Exit for
Exit function
End if
Next
End Function
'===============================================
Еще записи по теме
- Проброс портов (port forwarding) для удаленного администрирования
- Поднимаем NAT в Windows 2003 Server
- Настраиваем proxy-сервер SQUID c авторизацией по LDAP (AD Windows) и web-интерфейсом для администрирования SAMS (часть 2)
- Настройка модема ZTE ZXV10 W300 для ByFly с включением Wi-fi.
- Rsync: утилита для быстрого удаленного или локального копирования файлов
- Запуск административных команд из консоли (cmd) Microsoft Windows
- Откатываемся с php 5.3.X на php 5.2 (downgrade )
Оставьте комментарий!