Se liste af filer i et bibliotek/mappe

Der er 3 Controls til dette formål i visualBasic
En til Drev, En til mapper og en til filer!!
Hvis du kan lidt visual kan du også godt få det til at virke!!
FileListBox'en skal bare vise det path som DirListBox'ens er i!!

Og havd så hvis jeg vil ha listen af filer over i en variabel?

Vil du have hele indholdet over i _en_ variabel?

Hvis du laver en form med en af hver af følgende:
1. DriveListBox
2. DirListBox
3. FileListBox

Herunder:
DirListBoxen ændrer sig og viser alle 'mapper' på det valgte drev.
Private Sub Drive1_Change()
Dir1.Path = Drive1.Drive
End Sub

Herunder:
FileListboxen ændrer sig og viser filer i den valgte 'mappe'.
Hermed vises alle filer i din listbox.
Du kan så lave File1.visible = False
og kopiere den over i en 'normal' listbox. evt. kun med valgte extensions

Private Sub Dir1_Change()
File1.Path = Dir1.Path
End Sub

Jeg aner ikke om det er noget lignende dette du er ude efter.
Hvis du skriver mere fyldestgørende skal jeg se hvad jeg kan gøre :-)

Det jeg har er en dirlist kontrol i et seperat vindue, som returnere værdien path til min hoved form. Hvorved formen skal så derudfra finde ud af hvad der er af html filer i denne mappe,lægge de i en variabel, og så til sidst åbne alle filerne så de kan læses i et tekstfelt. En af gangen altså, dvs. man vælger vilken fil man ønsker at se i tekstboxen vha. en combo boks. Hvis du kan hjælpe mig med at få proppet alle filnavnene over i variablen i hoved formen, så er jeg glad
Er du med?

Prøv med noget i denne stil:

do while sti <> ""
  sti = dir(stiDerSkalHentesFra, "*.html")
  list1.additem sti
loop
jeg er ikke sikker på det er helt rigtigt skrevet

Jeg har forsøgt at lave et lille eksperiment.

jeg har brugt:

DriveListBox - drive1
DirListBox - dir1
FileListBox - file1 - enabled = False
ListBox - list1
TextBox - text1 - Multiline = true

Private Sub Dir1_Change()
List1.Clear
File1.Path = Dir1.Path
For a = 0 To (File1.ListCount - 1)
If Right$(UCase(File1.List(a)), 3) = "HTM" Then
    List1.AddItem (File1.List(a))
End If
If Right$(UCase(File1.List(a)), 5) = "DHTML" Then
    List1.AddItem (File1.List(a))
End If
Next a
End Sub

Private Sub Drive1_Change()
Dir1.Path = Drive1.Drive
End Sub

Private Sub Form_Load()
Drive1.Drive = "C"
Dir1.Path = "c:\"
End Sub

Private Sub List1_Click()
Text1.Text = ""
For chk = 0 To (List1.ListCount - 1)
If List1.Selected(chk) = True Then
    fil$ = Dir1.Path & "\" & List1.List(chk)
    MsgBox fil$
    Open fil$ For Input As #1
    While Not EOF(1)
    Input #1, linie$
    Text1.Text = Text1.Text & vbNewLine & linie$
    Wend
    Close
    Exit For
End If
Next chk
End Sub

Håber du kan få nogle ideer ud fra dette.