获得当前文件夹路径:Private Function Getdir(wpath As String) As String On Error Resume Next Getdir = Left(wpath, Instr2(Len(wpath) - 1, wpath, "\", "/")) If Err Then Exit Function End Function 使用方法shell Getdir(Getdir(app.path)) & "\text.exe"