代码如下，一调试就闪退，说找不到文件
Option Explicit
Private Sub Command1_Click()
Dim aa
aa = Shell("C:\Program Files\ANSYS Inc\v130\ansys\bin\winx64\ansys130.exe -b -p ane3fl -dir E:\ansysresult -j nnn -i shi.txt -o sh.log", 1)
Timer1.Enabled = True
End Sub
Private Sub Timer1_Timer()If Dir(App.Path & "nnn.err") <> "" ThenMsgBox ("ANSYS 运行完毕！")End If
Timer1.Enabled = False
End Sub

楼主解决了吗？我现在也遇到相同的问题了