liste over filer i et givet bibliotek

Denne funktion lister filerne i et givent bibliotek i debug-vinduet. Hvis du ønsker at gemme dem anderledes, så skal du lige lave lidt ændringer:

Public Sub FindFiler(stDir As String)
Dim stName As String

    On Error GoTo err_FillFiles
   
    'List all files in this folder
    stName = Dir(stDir & "\*.*")
    Do While stName <> ""
        On Error Resume Next
        If (GetAttr(stDir & stName) And vbDirectory) <> vbDirectory Then
            'File Already open?
            If Err.Number = 5 Then Err.Clear
           
            If stName <> "." Or stName <> ".." Then
                'FileList.Add Item:=(stName)
                Debug.Print stName
            End If
        End If
        'Get Next entry
        stName = Dir
    Loop
   
exit_FillFiles:
    Exit Sub
err_FillFiles:
    If Err.Number = 71 Then
        MsgBox AccessError(Err.Number) _
                    & "  Please try again.  ", vbCritical + vbOKOnly, _
                    "Error Reading Drive " & stDir
    End If
    Resume exit_FillFiles
End Sub