Indlæs filnavne i bestemt mappe ind i array

Dim strFilNavn() As Variant, NO As Integer
NO = 1
ReDim Preserve strFilNavn(NO)
strFilNavn(NO) = Dir(c:\vba\*.txt")  ' Hent den første filnavn.
Do While strFilNavn(NO) <> ""  ' Start løkken
  If strFilNavn(NO) <> "." And strFilNavn(NO) <> ".." Then
  NO = NO + 1
      ReDim Preserve strFilNavn(NO)
End If
strFilNavn(NO) = Dir    ' Hent næste filnavn.
Loop
NO = NO - 1



nu er alle i variablen strFilNavn(NO)

Er spørgsmålet stadig aktivt eller er det løst?

Jeg har desværre ikke haft tid til at kigge på det endnu.

Jeg får nok først tid i løbet af weekenden.

Nu fik jeg endelig kigget på den...

Beklager den lange ventetid.

Den virker perfekt. Mange tak. Smider du et svar?

et svar ;-))