hente filnavne fra en mappe og tilføje til liste?

Dim strFilNavn(100)  As String
NO = 1
strFilNavn(NO) = Dir(C:\data\*.*)  ' Hent den første filnavn.
Do While strFilNavn(NO) <> ""  ' Start løkken
  If strFilNavn(NO) <> "." And strFilNavn(NO) <> ".." Then
  NO = NO + 1
End If
strFilNavn(NO) = Dir    ' Hent næste filnavn.

Loop
NO = NO - 1


Nu har du alle filerne i variablen strFilNavn(NO)

rettelse

strFilNavn(NO) = Dir"C:\data\*.*"  ' Hent den første filnavn.

strFilNavn(NO) = Dir("C:\data\*.*")  ' Hent den første filnavn.
 
jeg glemte parenteser

Private Sub UserForm_Initialize()
Dim strFilNavn(100)  As String
NO = 1
strFilNavn(NO) = Dir("C:\data\*.*")  ' Hent den første filnavn.
Do While strFilNavn(NO) <> ""  ' Start løkken
  If strFilNavn(NO) <> "." And strFilNavn(NO) <> ".." Then
ListBox1.AddItem (strFilNavn(NO))' indsættes her direkte i listboksen
  NO = NO + 1
End If
strFilNavn(NO) = Dir    ' Hent næste filnavn.

Loop
NO = NO - 1

End Sub

tak for pointz, virker det ? ;oP