Gennemløb af database i directory

Send mig lige din mailadresse på mail@hugopedersen.dk  så skal jeg sende dig et eksempel når jeg kommer hjem fra job i dag.  Jeg har lavet noget der ligner skråstreg minder om.

Jeg har fundet en løsning.

Public Sub loopDirectory()

Dim root As String
Dim pathen As String
Dim pathen_tal As String
Dim da_nr As Integer
Dim stedet As String
Dim filen As String

    root = cPathDatabase \'mappen til der hvor den skal løbe alle filer/mapper igennem
    pathen = \"\\\"
    pathen_tal = \"\\\"
    da_nr = 0
    stedet = Dir(root & pathen, vbDirectory) \' + vbHidden)
   
    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(root & stedet) And vbDirectory) <> vbDirectory Then
                filen = root & stedet
                If Right(stedet, 3) = \"mdb\" Or _
                  Right(stedet, 3) = \"mde\" Then
                    \'!!!!!!!her kan du behandle filen.. path til filen ligger i variablen: filen
                End If
            End If  \' it represents a directory.
        Else
            da_nr = da_nr - 1
        End If
        stedet = Dir    \' Get next entry.
    Loop

End Sub

Bimse