ComradG
Silver Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
ChiStiK_XaSeR
чтобы выполнить определенные консольные команды используется конструкция вроде:
Код: Set objShell = CreateObject("WScript.Shell")
objShell.Run "%comspec% /c [команда]", 0, False |
для вывода текста используется команда WScript.Echo, например, так:
Код: Set objShell = CreateObject("WScript.Shell")
objShell.Run "%comspec% /k test.bat", 0, True
WScript.Echo "Чего-то там сделано, - принимай работу, хозиян!"
Set objShell = Nothing |
как видно, ничего сложного, чтобы препятствовало пониманию сих простых в общем-то конструкций, нет.
едем далее. как запустить файл? опять-таки использовать Run или Exec(применение зависит от обстоятельств).
далее, копирование. копирование файлов - это по сути действие над файловой системой, а раз так, то простейший пример копирования файла из одной в папки в другую выглядит так:
Код: 'возможно ли будет перезаписывать уже существующие файлы
Const OverwriteExisting = True
'далее создаем экземпляр объекта
Set objFSO = CreateObject("Scripting.FileSystemObject")
objFSO.CopyFile "C:\root\file_1.txt", "E:\docs\", OverwriteExisting
Set objFSO = Nothing |
ну, а если не нужно, чтобы перезаписывались файлы и при этом не выводились какие-либо сообщения, то придется написать что-то вроде:
Код: On Error Resume Next
Set objFSO = CreateObject("Scripting.FileSystemObject")
objFSO.CopyFile "C:\root\file_1.txt", "E:\docs\"
objFSO.CopyFile "C:\root\file_2.txt", "E:\docs\"
... |
если используются каталоги вроде Application Data или Temp, то для этих целей можно юзать константы, определенные для командной оболочки.
а вот на счет второго пункта, дай немного времени подумать. |
