alle txt-Dateien des activeWorkbook in Listbox
19.07.2003 21:24:09
Jens
ich habe im Archiv der CD folgenden Code gefunden. Nun suche ich eine Möglichkeit um in der Listbox nur txt-Dateien zu listen. Beim einstellen des FileType gibt es leider nur Worddateien. Wer kann helfen?
Private Sub cmdGetList_Click()
Dim fs As FileSearch
Dim iCounter As Integer
Dim sPath As String
sPath = ThisWorkbook.Path
Set fs = Application.FileSearch
lstFiles.Clear
With fs
.LookIn = sPath
.FileType = msoFileTypeExcelWorkbooks
.Execute
For iCounter = 1 To .FoundFiles.Count
lstFiles.AddItem .FoundFiles(iCounter)
Next iCounter
End With
End Sub
Danke für jede Hilfe Jens
Anzeige