历遍硬盘的问题~在线等,30分!

Question

Public Function HaalDirOp(ByVal Path$)
  On Error Resume Next
  Dim vDirName As String
  Dim LastDir  As String
  
  If Right(Path$, 1) <> "\" Then Path$ = Path$ & "\"
  vDirName = Dir(Path, vbDirectory)
  Do While Not vDirName = ""
     TX = Path & vDirName
     If GetAttr(TX) < 16 Or GetAttr(TX) >= 32 Then Msgbox TX
  
     If vDirName <> "." And vDirName <> ".." Then
        If (GetAttr(Path & vDirName) And vbDirectory) = vbDirectory Then
           LastDir = vDirName
           TX = Path$ & vDirName
           Call HaalDirOp(Path$ & vDirName)
           vDirName = Dir(Path$, vbDirectory)
           Do Until vDirName = LastDir Or vDirName = ""
              vDirName = Dir
           Loop
           If vDirName = "" Then Exit Do
        End If
     End If
     vDirName = Dir
  Loop
End Function