**窗体方式：** ``` Dim strAppPath As String '应用程序目录 Private Sub Form_Load() strAppPath = App.Path If Right(strAppPath, 1) <> "\" Then strAppPath = strAppPath & "\" End Sub ``` **非窗体方式：** ``` Public strAppPath As String '应用程序目录 Sub main() strAppPath = App.Path If Right(strAppPath, 1) <> "\" Then strAppPath = strAppPath & "\" End Sub ```