调用前加上下面的语句。
ChDrive Left$(App.Path, 2)
ChDir App.Path
再调用
Shell App.Path & "\1.bat", vbMaximizedFocus
==================================
Left(App.Path, 2)是用来返回路径中第一个字母,即盘符 如:C,D,E
chdrive则是改变当前盘
转载声明:本站发布文章及版权归原作者所有,转载本站文章请注明文章来源!
调用前加上下面的语句。
ChDrive Left$(App.Path, 2)
ChDir App.Path
再调用
Shell App.Path & "\1.bat", vbMaximizedFocus
==================================
Left(App.Path, 2)是用来返回路径中第一个字母,即盘符 如:C,D,E
chdrive则是改变当前盘