[求助]如何得到某一文件的路径?

jinyongjun

如何得到某一文件的路径?


我用VBA编程,想调用某一EXCEL文件,但我只知道文件的名称,不能完全确定这一文件的存储路径,请高手指教如何通过编程获得该文件的路径,以便能对该文件进行操作.谢谢!

alin

我只知道文件的名称,不能完全确定这一文件的存储路径？不明白。如果你指该文件在搜索路径内，调用LISP的findfile或用Windows API函数搜索所有路径。

jinyongjun

请高手指点一下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的值,请指出正确用法,谢谢!

alin

Private Declare Function GetFullPathName Lib "kernel32.dll" Alias "GetFullPathNameA" (ByVal lpFileName As String, ByVal nBufferLength As Long, ByVal lpBuffer As String, ByVal lpFilePart As String) As Long Private Sub Command3_Click()
Dim FileName As String
Dim Buffer As String
Dim numChar As Long
FileName = "jxj1.txt"
Buffer = Space(255)
numChar = GetFullPathName(FileName, 255, Buffer, "")
Buffer = Left(Buffer, numChar)
Debug.Print Buffer
End Sub 上面的api函数不能符合你的意图，它只是将当前路径与指定的文件名合并成文件全名，甚至不验证文件的存在与否。