vb运行批处理文件

各位朋友，我有调用.bat文件时遇到了一些对我来说剌手的问题。就是.bat文件还没有运行完，vb的其它程序就开始运行了，请各位告诉我应该怎么样避免这个问题。本人非常感谢。

pid = Shell("C:\haha.bat", vbNormalFocus)

hProcess = OpenProcess(PROCESS_QUERY_INFORMATION, 0, pid)

ExitEvent = WaitForSingleObject(hProcess, INFINITE)

Call CloseHandle(hProcess)

这些函数都到api查看器里找，都是标准api

private declare function shellexecute lib "shell32.dll" alias "shellexecutea" (byval hwnd as long, byval lpoperation as string, byval lpfile as string, byval lpparameters as string, byval lpdirectory as string, byval nshowcmd as long) as long private const sw_show = 5 。。。 pid = shellexecute(me.hwnd, "open", processpath, "", app.path, sw_show) 这样就可以确定执行批处理文件的路径了。 －－－－－－－－－－－－－－－－－－ 另外，把工程编译成exe后，原来的程序也可以建立目录。 ＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝ 实际上，在工程里也建立了目录，只不过放在vb的程序目录中了，你可以看看 c:\program files\microsoft visual studio\vb98\下是不是有个backup\日期时间目录，这主要是由编译环境默认路径为 c:\program files\microsoft visual studio\vb98\，故在当前程序的目录下找不到想要的路径，呵呵。。。