Extension på filer i mappe ?

Hey,

Fandt en løsning...

    Dim fso, f, f1, fc, s
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set f = fso.GetFolder("C:\tmp")
    Set fc = f.Files
   
    For Each f1 In fc
        If LCase(Right(f1.Name, 4)) = ".txt" Then
            s = s & f1.Name
            s = s & vbCrLf
        End If
    Next

    Text1.Text = s

Troede dog at man kunne sætte et pattern på f1, men det kunne jeg ikke få til at virke. Så hvis nogen ved det, går pointene til den.

du kan bare bruge Dir()

Private Sub Form_Load()
Dim strTemp As String
Dim strPath As String
Dim strName As String
Dim strPattern As String

  strPath = "C:\tmp\"
  strPattern = "*.txt"
  strName = Dir(strPath & strPattern, vbDirectory)
  Do While strName <> ""
    If strName <> "." And strName <> ".." Then
      If Not (GetAttr(strPath & strName) And vbDirectory) = vbDirectory Then
        strTemp = (strTemp & strPath & strName & vbCrLf)
      End If
    End If
    strName = Dir
  Loop
 
  Text1.Text = strTemp
End Sub