02. juni 2003 - 12:36Der er
4 kommentarer og 1 løsning
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....
Hvorfor ikke det? Fidusen er flg. DoDir behandler eet directory, nemlig det den får som parameter RelativRod. Hver gang den ser et katalog, skal den kalde sig selv. Så hvis du kalder med sub main DoDir "D:\" end sub
og D: har Ost og Øl, så finder DoDir dem jo - det kan din kode nu. Når den så ser et dir, kalder den sig selv: if .... = vbDirectory then DoDir myPath + myName (evt. + "\" ) end if
Så bliver kaldene: DoDir "D:\" som kalder DoDir "D:\Ost" Som kalder ??? DoDir "D:\Øl"
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.
