'get (sub)directorys


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
Return