Løbe et biliotek og dets underbiblioteker igennem i VB5

Dette burde virke..


Dim rooten, pathen, pathen_tal, da_nr, stedet
rooten = \"c:\\dokumenter\" \'mappen til der hvor den skal løbe alle filer/mapper igennem
pathen = \"\\\"
pathen_tal = \"\\\"
da_nr = 0
stedet = Dir(rooten & pathen, vbDirectory + vbHidden)
start:
Do While stedet <> \"\"
da_nr = da_nr + 1
If stedet <> \".\" And stedet <> \"..\" Then
        \' Use bitwise comparison to make sure stedet is a directory.

If (GetAttr(rooten & pathen & stedet) And vbDirectory) = vbDirectory Then
        pathen = pathen & stedet & \"\\\"
        pathen_tal = pathen_tal & da_nr & \"\\\"
        da_nr = 0
        stedet = Dir(rooten & pathen, vbDirectory + vbHidden)
        GoSub start
        Else
        filen = rooten & pathen & stedet
        \'!!!!!!!her kan du behandle filen.. path til filen ligger i variablen: filen
        End If  \' it represents a directory.
        Else
        da_nr = da_nr - 1
    End If
    stedet = Dir    \' Get next entry.

Loop

Takker for svaret :o)

jeg har sq ikke testet men det ser fornuftigt ud !

hmm.. jeg glemte at dim\'me \"filen\" som variablen..
det må du selv lige gøre..

Dim rooten, pathen, pathen_tal, da_nr, stedet, filen