Запуск процесса с помощью 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

Оцени полезность:

15   голосов , оценка 4 из 5
Похожие ответы