VS2008真的很吐血。。。
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
Private Sub Form_Load()
Dim Ret As Long
Ret = GetFullPathName(".\", 0, "", "")
Dim Buffer As String
Buffer = Space(Ret)
Call GetFullPathName(".\", Ret, Buffer, "")
MsgBox Buffer
End Sub
不就是不能用Left语句嘛，你改成这样试试。

你的位置放错了。我发完整点。。。。
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
Private Sub Form_Load()
Dim Ret As Long
Dim Ret2 As Long
Dim Buffer As String
Ret = GetFullPathName(".\", 0, "", "")
Ret2 = Ret -1
Buffer = Space(Ret2)
Call GetFullPathName(".\", Ret2, Buffer, "")
MsgBox Buffer
End Sub