怎样在VB中调用DOS程序??
我在vb中调用fortran编译程序时,for1步骤没有问题,但是在for2时
出现以下提示‘File access error in file f:pasibf.sym,error code 1032'
在link时提示‘can't find file f:\jj.obj'
以下是我的部分源代码:Private Sub CmdTran_Click()
'编译程序
Dim AppToLaunch As String
ChDir "f:\for77"
AppToLaunch = "f:\for1.exe f:\jj.for"
Call ExecuteAndWait(AppToLaunch)
AppToLaunch = "f:\for2.exe f:\jj.for"
Call ExecuteAndWait(AppToLaunch)
AppToLaunch = "f:\link.exe f:\jj.obj"
Call ExecuteAndWait(AppToLaunch)
End Sub
Public Sub ExecuteAndWait(cmdline$)
Dim NameOfProc As PROCESS_INFORMATION
Dim NameStart As STARTUPINFO
Dim X As Long
NameStart.cb = Len(NameStart)
X = CreateProcessA(0&, cmdline$, 0&, 0&, 1&, NORMAL_PRIORITY_CLASS, _
0&, 0&, NameStart, NameOfProc)
X = WaitForSingleObject(NameOfProc.hProcess, INFINITE)
X = CloseHandle(NameOfProc.hProcess)
End Sub
请各位高手帮忙,怎么使fortran 编译程序正常运行。我的fortran编译程序和fortran
源程序均在f: