Dir函数获得一个文件的完整路径

Question

Dir函数返回的只是一个文件名,如何用Dir获得一个文件的完整路径?

Answer 1

          '下面是一个样例，  dirName & FileName  就是完整的文件全路径          Function DirUsedBytes(ByVal dirName As String) As Long
                   Dim FileName As String
                   Dim FileSize As Currency
                   If Right(dirName, 1) <> "\" Then
                      dirName = dirName & "\"
                   End If
                   FileSize = 0
                   FileName = Dir(dirName & "*.*")   '浏览所有文件
                      Do While FileName <> ""            '浏览目录中的每个文件
                         FileSize = FileSize + FileLen(dirName & FileName)
                      FileName = Dir          '浏览下一个文件
                      Loop
                   DirUsedBytes = FileSize
          End Function          Private Sub Command1_Click()
               MsgBox DirUsedBytes("D:\pcx")
          End Sub

Answer 2

pathname="C:\Program Files\WinRAR\WinRAR.exe"Mid(pathname,1,len(pathname)-len(Dir(pathname)))
得到的就是完整的路径啦C:\Program Files\WinRAR\