Black_Lung Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Код:   Set exc = Shl.Exec("cmd /c dir /ad /b /s *.05.2010] > 1.dir") Do Loop Until exc.Status = 1   Set flst = FSO.OpenTextFile(MyPath + "1.dir")   Do l = flst.ReadLine     s = clng(left(right(l,12),2))     if s >= 14 then Set exc = Shl.Exec("cmd /c rd /s /q "+l) Do Loop Until exc.Status = 1 Loop Until flst.AtEndOfLine = True   flst.Close     Всего записей: 275 | Зарегистр. 09-10-2008 | Отправлено: 18:05 14-05-2010

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

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

ShIvADeSt (12-07-2011 15:12): http://forum.ru-board.com/topic.cgi?forum=33&topic=11963#1

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