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

jinyongjun · 发表于 2005-4-2 09:06:00

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

alin · 发表于 2005-4-2 16:06:00

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

jinyongjun · 发表于 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的值,请指出正确用法,谢谢!

alin · 发表于 2005-4-3 22:43:00

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函数不能符合你的意图，它只是将当前路径与指定的文件名合并成文件全名，甚至不验证文件的存在与否。

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

发表回复

精选推荐