vb调用自解压文件的问题

问题描述：

pid = Shell("自解压文件1.exe", vbNormalFocus)
hProcess = OpenProcess(PROCESS_QUERY_INFORMATION, 0, pid)
ExitEvent = WaitForSingleObject(hProcess, INFINITE)
Call CloseHandle(hProcess)
Call Sleep(6000)
此代码可以执行，也可以看到自解压解压的过程，但是执行完，却看不到解压出来的文件，请问是怎么回事？
解压的问题解决了！
可是我设置了自解压路径为解压到当前目录，怎么用vb调用后，自动解压到了vb的安装路径了？
恩，是的，生成exe这个问题是解决了的，可是不明白为是么会这样。
谢谢您！

问题解答：

在vb环境中执行，当前路径很诡异的，生成exe程序后，就会解压到exe程序的当前目录了