En function der skriver samtlige filer til en listbox

sådan en control er der allerede.. den hedder FileListBox.. se over i venstre side..

Option Explicit ' bør altid bruges.. så undgår man stavefejl
Dim CheckRoot ' definer CheckRoot
Dim i ' definer i

Private Sub Command1_Click()

' sæt root til ingenting:
CheckRoot = ""

' sæt bilioteket:
File1.Path = "C:\"

' hvis vi er i en mappe (altså ikke roden), tilføj "\":
If Right(File1.Path, 1) <> "\" Then CheckRoot = "\"

' loop sålænge vi er inden for file1's indhold/længde:
For i = 0 To File1.ListCount - 1

' tilføj til listboxen list1:
List1.AddItem File1.Path & CheckRoot & File1.List(i)

'loop:
Next

End Sub

hvis du absolut vil bruge din egen listbox kan du bruge ovennævnte kode..
her er et svar, hvis du kan bruge det.

Takker :)

Det var så lidt :)
Takker for points.