Vis indhold af mappe

Prøv at kikke på www.makeiteasy.dk under download er der et eks. Indlæs filnavne i tabel. Jeg tror det er noget du kan bruge

Denne er fundet her på E, testet og virker (det er brugeren fdata der står for den)

Private Sub FillFilesInCombo(CtlNavn As String, Mappe As String, FilType As String)
  Dim FilNavn As String
 
  With Me.Controls(CtlNavn)
    .Value = ""
    .RowSourceType = "Value List"
    .RowSource = ""
   
    FilNavn = Dir(Mappe & FilType, vbNormal)
    Do Until FilNavn = ""
      If .RowSource <> "" Then .RowSource = .RowSource & ";"
      .RowSource = .RowSource & FilNavn
      FilNavn = Dir
    Loop
    .Requery
  End With
End Sub

Private Sub Form_Open(Cancel As Integer)
  Call FillFilesInCombo("Combo1", "E:\Ad\", "*.rtf")

Jeg ville nu helst have haft samme funktion og udseende som DriveListBox og DirListBox.

aandersen: i dit eksempel skal brugeren jo selv indtaste navnet på mappen og stien først, og ikke bare vælge den fra en listbox. Det er ikke så bruger venligt. Ellers fungerer dit eksempel fint.
Jeg giver dog gerne point for deltagelsen, hvis du vil ha dem?

Jeg tror jeg laver det i VB6, hvor jeg har de kontroller jeg skal bruge.

Lukker.