For Each og variabel-Array

Dim filer() as string
Dim i as integer
i = 0

For Each oFile In oFolder.Files
If InStr(1, oFile.Name, ".") <> 0 Then
    sFileParts() = Split(oFile.Name, ".")
    If LCase(sFileParts(UBound(sFileParts()))) = "txt" Then
      cmbFiles.AddItem oFile.Name
      filer(i) = oFile.Name
      i = i + 1
      End If
End If
Next oFile

... så indeholder filer(0) navnet på den første fundne txt fil, osv.

Jeg får run-time error 9
subscript out of range

Hmm, jeg har vist været lidt søvnig :-)

Dit array skal dimensioneres til det antal filer, du finder. Du skal så kende det maksimale antal filer, f.eks.
Dim filer(100) as string

Super!
Tak for hjælpen :-)

Man kan også lave den uden Split() :o)


'------------------------------------- Form1 -------------------------------------
Option Explicit

Private arrFiles() As String

Private Sub Form_Load()
Dim i As Long
Dim oFSO As New Scripting.FileSystemObject
Dim oFile As File
Dim oFolder As Folder

  Set oFolder = oFSO.GetFolder("c:\")
  ReDim arrFiles(0) As String

  For Each oFile In oFolder.Files
    If LCase$(Right$(oFile.Name, 4)) = ".txt" Then
      ReDim Preserve arrFiles(i) As String
      arrFiles(i) = oFile.Name
      i = i + 1
    End If
  Next

  Set oFolder = Nothing

'--- Det her kan du sette under en knap osv... ---
Dim strName As Variant
  For Each strName In arrFiles
    If strName <> "" Then
      cmbFiles.AddItem strName
    End If
  Next
'--------------------------------------------------
End Sub
'------------------------------------- Form1 -------------------------------------