hjælp til udbygelse af lidt kode

JEg har det her:

Dim myfile, mypath, myname, filen
mypath = "d:\"
myname = Dir(mypath, vbdirectory)
do ehile myname <> ""
if myname <> "." and myname <> ".." then
if (getattr(mypath & myname) and vbdirectory) = vbdirectory then
debug.print myname
msgbox mypath & myname
end if
end if
myname = dir
loop



Men når den så har taget det første dir (d:\ost) så skal den prøve at kigge i ost om der er nogle subdir der, og hvis der er så skal den kigge i det om der er nogle der, osv....

Det kan sku da ikke være så svært