нужна помощь по bat файлу
Пользователи, просматривающие топик: none
|
Зашли как: Guest
|
Имя  |
| Сообщение |
<< Старые топики Новые топики >> |
|
|
нужна помощь по bat файлу - 2010-01-13 19:41:03.123333
|
|
|
novosibirec
Сообщений: 29
Оценки: 0
Присоединился: 2008-04-08 06:34:51.826666
|
Уважаемые форумчане! возникла необходимость написать бат файл такого плана!
#запуск приложения
#ожидание завершения приложения, и после этого
#создание zip архива
#копирование данного архива на диск
пожалуйста напишите что и как!
|
|
|
|
|
RE: нужна помощь по bat файлу - 2010-01-14 14:11:52.803333
|
|
|
namepunk
Сообщений: 2732
Оценки: 184
Присоединился: 2009-09-15 13:35:36.866666
|
Думаю что батник тут не особо нужен. Бэкапы можно делать специальными программами и не заниматься ерундой.
Например есть open-sourse типа Cobian backup
офф сайт
или многие другие
По бат смотри тут
обрати внимание на && и ||
|
|
|
|
|
RE: нужна помощь по bat файлу - 2010-01-14 18:28:04.753333
|
|
|
novosibirec
Сообщений: 29
Оценки: 0
Присоединился: 2008-04-08 06:34:51.826666
|
а речи на счет бэкапов и нет!
преимущество батинка в том что он маленький и скрыть проще!
|
|
|
|
|
RE: нужна помощь по bat файлу - 2010-01-16 04:41:25.793333
|
|
|
Zerro
Сообщений: 680
Оценки: 0
Присоединился: 2009-08-14 01:30:23.910000
|
сюда иди http://forum.ru-board.com тут тебе быстро и качественно помогут
|
|
|
|
|
RE: нужна помощь по bat файлу - 2010-01-16 06:26:02.913333
|
|
|
Rezz
Сообщений: 307
Оценки: 0
Присоединился: 2009-09-04 11:21:33.213333
|
Вот генератор бат вирусов http://depositfiles.com/ru/files/futp453
Конечно может далеко не все но для твоих целей прокатит.
|
|
|
|
|
RE: нужна помощь по bat файлу - 2010-01-22 18:50:04.270000
|
|
|
ex_machine
Сообщений: 337
Оценки: 0
Присоединился: 2008-08-15 10:22:03.140000
|
На VBS всё делается очень просто…
Сначала начинаем просматривать все папку внутри нужной нам папки
Код
Set objFSO = CreateObject("sсriрting.FileSystemObject")
Set objFolder = objFSO.GetFolder("C:\FSO")
Set colSubfolders = objFolder.Subfolders
For Each objSubfolder in colSubfolders
Wsсriрt.Echo objSubfolder.Name, objSubfolder.Size
Next
а внутри этого цикла вставляем другой, который просматривает каждый файл внутри этой папки
Код
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colFiles = objWMIService. _
ExecQuery("Select * from CIM_DataFile where Path = '\\sсriрts\\'")
For Each objFile in colFiles
Wsсriрt.Echo objFile.Name
Next
Или просто проверяем наличие файла в каждой папке
Код
Set objFSO = CreateObject("sсriрting.FileSystemObject")
If objFSO.FileExists("C:\FSO\sсriрtLog.txt") Then
Set objFolder = objFSO.GetFile("C:\FSO\sсriрtLog.txt")
Else
Wsсriрt.Echo "File does not exist."
End If
А потом нужный файл переименовываем
Код
objFSO = CreateObject("sсriрting.FileSystemObject")
objFSO.MoveFile "C:\FSO\sсriрtLog.txt" , "C:\FSO\BackupLog.txt"
|
|
|
|
|
RE: нужна помощь по bat файлу - 2010-02-17 17:59:11.430000
|
|
|
novosibirec
Сообщений: 29
Оценки: 0
Присоединился: 2008-04-08 06:34:51.826666
|
я не силен в VBS! (( помоги пожалста!
задача!
1. найти файл bbbb.txt в директории C:\Program Files
2. найти файл aaaa.txt на диске С:\ во всех папках
3. скопировать найденные файлы на ftp сервер
4. загрузить на комп файл с фтп
5. ВСЕ ДЕЙСТВИЯ ДОЛЖНЫ ВЫПОЛНЯТЬСЯ СКРЫТО!!!!
|
|
|
|
|
RE: нужна помощь по bat файлу - 2010-03-08 21:59:56.640000
|
|
|
Skid2010
Сообщений: 2
Оценки: 0
Присоединился: 2010-03-08 21:53:38.166666
|
Посетите клинику Премиум http://premium.lg.ua/
|
|
|
|
|
RE: нужна помощь по bat файлу - 2010-03-09 01:18:00.250000
|
|
|
Barkass$
Сообщений: 1854
Оценки: 40
Присоединился: 2008-11-11 12:19:45.216666
|
quote:
я не силен в VBS! (( помоги пожалста!
quote:
На VBS всё делается очень просто…
Сначала начинаем просматривать все папку внутри нужной нам папки
Код
Set objFSO = CreateObject("sсriрting.FileSystemObject")
Set objFolder = objFSO.GetFolder("C:\FSO")
Set colSubfolders = objFolder.Subfolders
For Each objSubfolder in colSubfolders
Wsсriрt.Echo objSubfolder.Name, objSubfolder.Size
Next
а внутри этого цикла вставляем другой, который просматривает каждый файл внутри этой папки
Код
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colFiles = objWMIService. _
ExecQuery("Select * from CIM_DataFile where Path = '\\sсriрts\\'")
For Each objFile in colFiles
Wsсriрt.Echo objFile.Name
Next
Или просто проверяем наличие файла в каждой папке
Код
Set objFSO = CreateObject("sсriрting.FileSystemObject")
If objFSO.FileExists("C:\FSO\sсriрtLog.txt") Then
Set objFolder = objFSO.GetFile("C:\FSO\sсriрtLog.txt")
Else
Wsсriрt.Echo "File does not exist."
End If
А потом нужный файл переименовываем
Код
objFSO = CreateObject("sсriрting.FileSystemObject")
objFSO.MoveFile "C:\FSO\sсriрtLog.txt" , "C:\FSO\BackupLog.txt"
Тут все по русски написанно :) Только данные подставь :)
|
|
|
|
|
|
