¿Cómo ingresar múltiples parámetros en un programa DOS y ejecutar el programa DOS en VB?
ws.run "cmd /c aa.exe " amp; a amp; amp d amp; "gt;tmp.txt", 0, Verdadero
Establecer FSO = CreateObject("Scripting.FileSystemObject")
Establecer f = FSO.OpenTextFile("tmp) .txt", 1)
Si no es f.AtEndOfStream, entonces strReturn = f.ReadAll 'Obtener resultado
Eliminar "tmp.txt" 'Eliminar archivo temporal
Solo si el contenido del archivo está vacío, la entrada irá más allá del final del archivo. No había pensado antes que el programa DOS no podría generar ningún resultado.
Debes saber cómo leer datos de archivos de texto en variables en VB.
Asigne "33, 64, 55, 86" a a, b, cy d
x=Split("33, 64, 55, 86", "," )
a=x(0):b=x(1):c=x(2):d=x(3)
Si desea utilizar "33, 64 , 55, 86 "Como parámetro del programa DOS, puede cambiar
a amp; " amp; b amp " amp; c amp; " d
a. Reemplazar(" 33, 64, 55, 86","",")