怎样在VB中调用DOS程序？？

[giagia]

我在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:

[TopHead]

感觉是for1第一步还没有执行完毕就开始执行了for2！

[Un1]

使用Shell(cmdline$)代替CreateProcessA试试。

[Chen_Lin]

感觉与TopHead 相同.
使用Shell试试
至于关闭Shell打开的程序,见:
http://expert.csdn.net/Topic/9882.shtm

[giagia]

胡说八道