Anzeige
Archiv - Navigation
280to284
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
280to284
280to284
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

alle txt-Dateien des activeWorkbook in Listbox

alle txt-Dateien des activeWorkbook in Listbox
19.07.2003 21:24:09
Jens
einen schönen Abend zusammen
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

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: alle txt-Dateien des activeWorkbook in Listbox
19.07.2003 21:59:07
Ramses
Hallo Jens,
Das habe ich vor längerer Zeit mal gemacht:

Sub Fill_Listbox_with_Filenames()
Dim i As Long, TotFiles As Long
Dim gefFile As String, dname As String
Dim Suchpfad As String, suchbegriff As String, Dateiform As String
Dim oldStatus As Variant
Suchpfad = InputBox("Geben Sie den Ordner an, der durchsucht werden soll.", "Pfad definieren", Application.DefaultFilePath)
If Suchpfad = "" Then Exit Sub
Dateiform = InputBox("Geben Sie den Dateityp an der gesucht werden soll", "Dateierweiterung", "*.xls")
If Dateiform = "" Then Exit Sub
Application.ScreenUpdating = True
oldStatus = Application.StatusBar
With Application.FileSearch
    .LookIn = Suchpfad
    .SearchSubFolders = False
    .Filename = Dateiform
    If .Execute() > 0 Then
        TotFiles = .FoundFiles.Count
        Application.StatusBar = "Total " & TotFiles & " gefunden"
        For i = 1 To .FoundFiles.Count
            gefFile = .FoundFiles(i)
            'In Listbox eintragen
            Me.ListBox1.AddItem (gefFile)
        Next i
    End If
End With
Application.StatusBar = oldStatus
Application.ScreenUpdating = True
End Sub 
     Code eingefügt mit Syntaxhighlighter 1.16


Gruss Rainer

Anzeige
AW: alle txt-Dateien des activeWorkbook in Listbox
20.07.2003 08:08:00
Jens
Danke, hat mir sehr geholfen. Jens

300 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige