你需要等待exe运行结束之后，再进行文件的检测。否则，程序运行结束之前，timer就会弹框。代码改为：do while Dir(App.Path & " \file.err") = ""doevents '程序运行中，卡在此处。loopMsgBox (" ANSYS 软件后台运算完毕! ") Timer1.Enabled = FalseEnd If
