Fil-finder rutine

Skal du har alt eller kan du gøre lidt selv.  Hvis du kan selv, kig under Help i Access før DIR() funktion, du kan brug et loop...
Her er en jeg brug:

' Display the names in C:\ that represent directories.
Sub Command1_Click()
  Dim strPath, strName
  strPath = "c:\"    ' Set the path.
  strName = Dir(strPath, vbDirectory)    ' Retrieve the first entry.
  Do While strName <> ""    ' Start the loop.
    ' Ignore the current directory and the encompassing directory.
    If strName <> "." And strName <> ".." Then
        ' Use bitwise comparison to make sure strName is a directory.
        If (GetAttr(strPath & strName) And vbDirectory) = vbDirectory Then
            ' Display entry only if it (OR Write to a table)           
            Debug.Print strName   
        End If    ' it represents a directory.
    End If
    strName = Dir    ' Get next entry.
  Loop
End Sub

Jeg håber på at der er en eller anden der har lavet noget der ligner så jeg var fri for selv at skulle bruge min sparsomme tid til det:-)

OK, it's ugly and quick but it works...

Du har en list (List1) med 2 Antalkolonner og Rækkekildetype = Værdiliste

Private Sub Command1_Click()
  Dim strPath, strPath2, strName, X As Integer, Y As Integer
  Dim arMain As Variant
 
  ReDim arMain(100)
 
  strPath = "c:\MitMappe\"    ' Set the path.
  strName = Dir(strPath, vbDirectory)    ' Retrieve the first entry.
  ' Loop through all the directories
  Do While strName <> ""    ' Start the loop.
    ' Ignore the current directory and the encompassing directory.
    If strName <> "." And strName <> ".." Then
       
        ' Use bitwise comparison to make sure strName is a directory.
        If (GetAttr(strPath & strName) And vbDirectory) = vbDirectory Then
            ' Display entry only if it (OR Write to a table)
            X = X + 1
            arMain(X) = strName
        End If    ' it represents a directory.
    End If
    strName = Dir    ' Get next entry.
  Loop
  ' get files in diretories
  For Y = 1 To X
      strName = Dir(strPath & arMain(Y) & "\*.*")    ' Retrieve the files
        Do While strName <> ""    ' Start the loop.
            List1.RowSource = List1.RowSource & arMain(Y) & ";" & strName & ";"
            strName = Dir
        Loop
  Next
  List1.Requery
End Sub

Jeg vil lige teste dit forslag i aften når jeg kommer i nærheden af min kode.

Jeg har noteret mig at du er den med det første forslag.

Ja, men hugo, Experten gøre det for dig
Svar: amerikaner
14/11-2002 08:16:54
:-))

Hugo, En ting mere...På Redim arMain(X) set X til max antal mappe. 

OBS, det er en 'limit' til hvor laænge RowSource må vare. 256 char? Det ved jeg ikke, er det nogen som ved det???

Der er en eller anden grænse på rowsource mener jeg.  Jeg har i hvert fald før fået en fejl der siger at rowsource er for lang.

Jeg tror nu jeg laver det så datane jeg finder ryger ned i en tabel.

Der er eksempel i Visual Basic Help i Access.
Kig under FileSystemObject, Folders collection og Files collection.

Fik koden til at virke med lidt omskrivning.

hugo >> du kan ligge kode herin fordi det vil hjelpe den næste man som søg efter en løsning.