vb程序中使用shell函数调用一个可执行程序。可执行程序执行完后本应该输出一个txt文件，但通过调用执行程序后没有输出该文件。何解？

Private Sub Command5_Click()
If Dir(App.Path + "\elenode.txt") = "" Then
MsgBox "请选择elenode所在位置"
GoTo line1
End If
If Dir(App.Path + "\nodedis.txt") = "" Then
MsgBox "请选择nodedis所在位置"
GoTo line1
End If
If Dir(App.Path + "\scope.txt") = "" Then
MsgBox "请选scope所在位置"
GoTo line1
End If
Shell App.Path + "\inicss4n.exe", 1
MsgBox "运算结束！"
line1:
End Sub

程序代码“Shell App.Path + "\inicss4n.exe", 1”输出一个txt文件放在何处？

shell感觉和cmd一样的
你在cmd中输入同样的命令，看看执行效果。很可能是需要其他的参数。

运行了一下，提示run-time error F6416: OPEN(scope.txt)- file not found。scope.txt是程序运行需要的几组数据之一。与可执行程序在一个文件夹中。但是双击运行可执行程序是没有问题的。

在被调用的程序所在文件夹里。也与vb程序在同一个文件夹里。

你说的双击是指的双击快捷方式的图标（包括开始菜单上的图标），还是直接双击exe？
我估计可能是前者，那么右键看一下是否属性中带有它的参数
这个是开始菜单上ANSYS APDL的属性信息
"C:\Program Files\ANSYS Inc\v140\ansys\bin\winx64\launcher140.exe" -runae

直接双击exe。

vb程序的运行是 1.将三个txt文件复制到程序所在文件夹。2.点击一个按钮，调用外部程序对复制进来的三个文件进行运算。
现在复制进来后调用外部程序，外部程序运行后没有出现外部程序运行所应该输出的txt文件。此时直接双击外部程序可以正常运行。关闭vb后重新打开，直接点按钮调用外部程序可以出现相应结果。

Shell和cmd输入命令的效果是一样。如果cmd不行，shell应该也是不行的。
百度了一下，你这个是Fortran的错误。就是找不到指定的文件，为何双击没有问题，cmd不行就不清楚是什么原因了，得看你的这个exe是怎么回事。

收到的鲜花

• 醍醐灌顶 于 2016-07-04 14:44 送鲜花  3朵   附言：好文章

大神，请问有没有一个方法可以单击一个按钮使窗体关闭再重新加载？