Public Sub HaalDirOp(ByVal Path$)
Dim vDirName As String, LastDir As String Screen.MousePointer = vbHourglass If Right(Path$, 1) <> "\" Then Path$ = Path$ & "\" vDirName = Dir(Path, vbDirectory) ' Retrieve the first entry. Do While Not vDirName = "" If vDirName <> "." And vDirName <> ".." Then If (GetAttr(Path & vDirName) And vbDirectory) = vbDirectory Then LastDir = vDirName MsgBox 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 Screen.MousePointer = vbNormal End Sub |