如何获得当前工程的所在路径?

Question

dim path as string
path=app.path

Answer 1

在VB中，当然是用“App.path”了。

Answer 2

Private Declare Function GetFullPathName Lib "kernel32" Alias "GetFullPathNameA" (ByVal lpFileName As String, ByVal nBufferLength As Long, ByVal lpBuffer As String, ByVal lpFilePart As String) As Long
    
Ret = GetFullPathName("Iexplore.exe", 255, Buffer, "")

Answer 3

Private Declare Function GetFullPathName Lib "kernel32" Alias "GetFullPathNameA" (ByVal lpFileName As String, ByVal nBufferLength As Long, ByVal lpBuffer As String, ByVal lpFilePart As String) As Long
    
Ret = GetFullPathName("file", 255, Buffer, "")