VB6 Execute DOS program
VB6 Execute DOS program
(OP)
I am trying to wrap VB code around a DOS program, and would like to be able to capture the output (stdout).
I can execute some of the functions of the program (Swish-E) using VB, but not all, and can not access the search results.
Any help appreciated
Cheers
Derrick
I can execute some of the functions of the program (Swish-E) using VB, but not all, and can not access the search results.
Any help appreciated
Cheers
Derrick





RE: VB6 Execute DOS program
<nbucska@pcperipherals.com>
RE: VB6 Execute DOS program
Private Sub Form_Load()
Dim temp As String, tmp As String
Shell "dos_program > c:\output.txt", vbHide
MsgBox "Do not click OK until your DOS program is done."
Open "C:\output.txt" For Input As #1
Do While Not EOF(1)
Input #1, tmp
temp = temp & tmp
Loop
Close #1
Kill "C:\output.txt"
MsgBox temp
End Sub