Запуск процесса с помощью WScript.Shell - VB
Формулировка задачи:
здравствуйте если в бат файл записать:
и выполнить его то нужное мне действие происходит
если пробую:
то процесс в консоли запускается, а нужного результата нет, почему? где то ошибся? или неправильный подход? спасибо
Решение задачи: «Запуск процесса с помощью WScript.Shell»
textual
Листинг программы
Option Explicit
Private Sub Form_Load()
Dim CMDLine As String
Dim Program As String
Dim Arg As String
Dim ResultFile As String
Dim sFP As String
Dim sResult As String
Dim ff As Long
sFP = "??????????" '// TODO
ResultFile = "output.txt"
Program = "C:\SmartIDReader\bin\smartid_sample.exe"
Arg = """" & sFP & """" & " " & "..\data-zip\bundle_passport_drvlicrus.zip"
CMDLine = Program & " " & Arg
ChDrive "C"
ChDir "C:\SmartIDReader\bin"
sResult = CreateObject("WScript.Shell").Exec(CMDLine).StdOut.ReadAll()
ff = FreeFile()
Open ResultFile For Output As #ff
Print #ff, sResult
Close #ff
CreateObject("Shell.Application").ShellExecute ResultFile, "", "", "", 1
End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д