|
发表于 2005-4-3 08:45:00
|
显示全部楼层
请高手指点一下GetFullPathName函数的用法:
Private Declare Function GetFullPathName& Lib "kernel32" Alias "GetFullPathNameA" (ByVal lpFileName As String, ByVal nBufferLength As Long, ByVal lpBuffer As String, lpFilePart As Long)
Private Sub Command3_Click()
Dim filename As String
Dim filelength As Long
Dim fullname As String
Dim addres As string
dim dwgname as string
filename = "jxj1.txt"
filelength = 50
dwgname=GetFullPathName(filename, filelength, fullname, addres)
Debug.Print fullname
End Sub
以上语句不能得到fullname的值,请指出正确用法,谢谢! |
|