liste som viser filer fra et bibliotek

Hvad skal du bruge til? Du kan åbne stifinderen med VBA og derfra vælge en fil - Kan det bruges?

Nej desværre, jeg er bekendt med Shell(explorer....) men jeg har ikke brug for at for at åbne en fil, men snarer at få filnavnet ind i en teksboks eller liste.

Sæt Rækkekildetype til Værdiliste på listboksen og antal kolonner = 1

Læg denne kode i et modul:

Public Function GetFiles(stDir As String) As String
    Dim stName As String
    Dim tmpList 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)
                tmpList = tmpList & stName & ";"
            End If
        End If
        'Get Next entry
        stName = Dir
    Loop
    GetFiles = Left(tmpList, Len(tmpList) - 1)
exit_FillFiles:
    Exit Function
err_FillFiles:
    If Err.Number = 71 Then
        MsgBox AccessError(Err.Number) _
                    & "  Prøv venligst igen.  ", vbCritical + vbOKOnly, _
                    "Fejl ved læsning af drev " & stDir
    End If
    Resume exit_FillFiles
End Function

På en kanp eller på form_load lægger du denne kode:

Me!Liste.Rowsource = GetFiles("C:\")

I vinkel, jeg takker for koden jepsen.
Mvh Morten