Black_Lung Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору strFldr = Wscript.arguments.Item(0)   et objFSO = CreateObject("Scripting.FileSystemObject")       ClearFolder strFldr       Function ClearFolder(sFldr)       Dim oD, cF, cD, oI       Set oD = objFSO.GetFolder(sFldr)   Set cF = oD.Files   Set cD = oD.SubFolders   on error resume next       For Each oI In cF          wscript.echo oi.path        oI.Attributes = 0       oI.Delete       Next         For Each oI In cD         ClearFolder oI.Path         oI.Attributes = 0         oI.Delete       Next   End Function Всего записей: 275 | Зарегистр. 09-10-2008 | Отправлено: 15:46 27-06-2012

На первую страницу • к этому сообщению • к последнему сообщению

Компьютерный форум Ru.Board » Компьютеры » Прикладное программирование » Программирование "удобняшек" на VBScript (Часть 2)

Переход по форумам  Закладки   » Компьютеры Цифровое изображение Программы Microsoft Windows UNIX Другие OS Hardware В помощь сисадмину Прикладное программирование Игры Форумные игры   » Интернет Web-программирование В помощь вебмастеру Графика Хостинг Зацените-ка!   » Тематические Ikonboard v.2 Ikonboard v.3 Invision Board Другие форумы PHP-Nuke и другие порталы Мобила   » Общие Спорт Флейм Темы по региональным встречам Музыка и Кино Юмор Литература и Живопись   » Ru.Board Новости Помощь по форуму   » Андеграунд eBookz Варезник Раздачи и акции Мобильный варезник Андеграунд Игры и фильмы   » Специальные Тестирование