如何在不知道硬盘分区的情况下查找文件，并得到文件的完全路径？

Question

兄弟，我想你搞错了，GetfullPathname这个函数不是这么的功能。我想你弄错了。
这个函数的功能是获取当前目录再加上你所指出的文件。
例如。现在的当前路径为：d:\vb
 那么a = GetfullPathname("txinl.txt",128,pathname,mpath) 之后，就获得了pathname="d:\vb\txinl.txt"，这个函数不是帮你找到这个文件的全名

Answer 1

对了，而且你这样使用肯定是错的，正确的方法是：
Private Sub Form_Load()
    'KPD-Team 2000
    'URL: http://www.allapi.net/
    'E-Mail: [email protected]
    Dim Buffer As String, Ret As Long
    'create a buffer
    Buffer = Space(255)
    'copy the current directory to the buffer and append 'myfile.ext'
    Ret = GetFullPathName("myfile.ext", 255, Buffer, "")
    'remove the unnecessary chr$(0)'s
    Buffer = Left(Buffer, Ret)
    'show the result
    debug.print Buffer
End Sub
你试试看把