知道用shell函数的过来看看！！！！

kunpeng0920

大家能不能帮帮我：我想在vb中使用shell函数调用一个genb.exe程序，结果生成的文件显示在桌面上，这是怎么回事

Private Sub genblock_Click()
Dim retval
retval = Shell(App.Path & "\EXE\Genb.exe", 4)
End Sub

运行genb.exe需要一个数据文件genb.dat，运行后生成四个文件，将genb.exe和genb.dat放在同一个文件夹下双击genb.exe可直接运行，生成的四个文件位于同一目录下，我用上面的程序调用genb.exe后不能自动读取同目录下的genb.dat，而是到桌面上去读取，且生成的文件也在桌面上，这是怎么回事？？

kunpeng0920

这是不是跟vb的默认目录有关啊？

kunpeng0920

谢谢大家，这个问题我已经解决了，用chdirve app.path和chdir app.path就可以了。

zuehuo

什么