find txt filer i en mappe

Private Sub Command1_Click()
Dim strFilNavn() As Variant, NO As Integer
NO = 1
ReDim Preserve strFilNavn(NO)
strFilNavn(NO) = Dir(mypath & "C:\temp\*.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

For i = 1 To UBound(strFilNavn)
List1.AddItem strFilNavn(i)' sætter det fundni i en listbox
Next
End Sub

Alternativt:

Smid en filelistbox på din form

Skriv

Filelist1.path = "C:\MinMappe"
Filelist.pattern = "*.txt"

Herefter vil alle txt-filer i c:\minmappe blive vist i din filelistbox

som altid - SMUKT - :-)