![]() |
Внимание, важное сообщение: Дорогие Друзья!
В ноябре далекого 2001 года мы решили создать сайт и форум, которые смогут помочь как начинающим, так и продвинутым пользователям разобраться в операционных системах. В 2004-2006г наш проект был одним из самых крупных ИТ ресурсов в рунете, на пике нас посещало более 300 000 человек в день! Наша документация по службам Windows и автоматической установке помогла огромному количеству пользователей и сисадминов. Мы с уверенностью можем сказать, что внесли большой вклад в развитие ИТ сообщества рунета. Но... время меняются, приоритеты тоже. И, к сожалению, пришло время сказать До встречи! После долгих дискуссий было принято решение закрыть наш проект. 1 августа форум переводится в режим Только чтение, а в начале сентября мы переведем рубильник в положение Выключен Огромное спасибо за эти 24 года, это было незабываемое приключение. Сказать спасибо и поделиться своей историей можно в данной теме. С уважением, ваш призрачный админ, BigMac... |
|
Компьютерный форум OSzone.net » Программирование, базы данных и автоматизация действий » Скриптовые языки администрирования Windows » VBS/WSH/JS - [решено] Проверка на наличие файлй |
|
VBS/WSH/JS - [решено] Проверка на наличие файлй
|
Новый участник Сообщения: 7 |
Добрый день. Помогите решить проблему.
Есть vbs скрипт который раскидывает файлы по папкам. Set FSO = WScript.CreateObject("Scripting.FileSystemObject") Set Shell = WScript.CreateObject("WScript.Shell") If Not FSO.FolderExists("Дата") ' Если папки Дата не существует ' Then FSO.CreateFolder("Дата") ' Создаем папку Дата ' FSO.CreateFolder("Дата\12") ' Создаем папку Дата\12 ' FSO.CreateFolder("Дата\13") ' Создаем папку Дата\13 ' End If ' Начинаем распределение ' Const OverwriteExisting = True Set FSO = CreateObject("Scripting.FileSystemObject") FSO.CopyFile "1.txt" , "Дата\" , OverwriteExisting FSO.CopyFile "2.txt" , "Дата\" , OverwriteExisting FSO.CopyFile "3.txt" , "Дата\12\" , OverwriteExisting FSO.CopyFile "4.txt" , "Дата\12\" , OverwriteExisting FSO.MoveFile "5.txt" , "Дата\13\" Set Shell = Nothing Set FSO = Nothing WScript.Quit Подскажите, как написать скрипт, чтоб при отсутствии файла он его пропускал и переходил к следующему. Если следующего нет, к следующему. И так до последнего. |
|
Отправлено: 15:30, 20-01-2011 |
Ветеран Сообщения: 1001
|
Профиль | Отправить PM | Цитировать Цитата peretc001:
On Error Resume Next |
|
Отправлено: 15:41, 20-01-2011 | #2 |
Для отключения данного рекламного блока вам необходимо зарегистрироваться или войти с учетной записью социальной сети. Если же вы забыли свой пароль на форуме, то воспользуйтесь данной ссылкой для восстановления пароля. |
Новый участник Сообщения: 7
|
Профиль | Отправить PM | Цитировать Спасибо, работает
А можно еще как-нибудь создать прогресс-бар, чтоб в процентах показывал насколько выполнены все команды. У меня там на час-два времени точно. Или хотя бы во время копирования показывал типа 1.txt OK 2.txt OK 3.txt OK и т.д. |
Отправлено: 16:00, 20-01-2011 | #3 |
![]() |
Участник сейчас на форуме |
![]() |
Участник вне форума |
![]() |
Автор темы |
![]() |
Сообщение прикреплено |
| |||||
Название темы | Автор | Информация о форуме | Ответов | Последнее сообщение | |
[решено] Полная проверка HDD на наличие сбоев,битых секторов,ошибок,сбоев.. | Expo37 | Хочу все знать | 1 | 05-10-2010 18:46 | |
CMD/BAT - Проверка на наличие какого-то текста | Magniy | Скриптовые языки администрирования Windows | 4 | 20-04-2010 18:26 | |
CMD/BAT - [решено] Наличие диска | Devils0411 | Скриптовые языки администрирования Windows | 10 | 03-07-2009 12:06 | |
[решено] Проверка на наличие пишушего привода в системе. | Keeper2006 | Автоматическая установка Windows 2000/XP/2003 | 1 | 03-11-2008 11:27 | |
Тестирование на наличие уязвимостей | YDen | Защита компьютерных систем | 3 | 28-04-2007 00:48 |
|