Dim strPath As String
strPath = App.Path
If Right(strPath,1) <> "\" then strPath = strPath + "\"
'MsgBox(strPath)
strPath = App.Path
If Right(strPath,1) <> "\" then strPath = strPath + "\"
'MsgBox(strPath)
然后app.path