Re: Dateinamen +typ auflisten
05.06.2003 11:22:29
Ramses
Hallo,
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 Tabelle eintragen
Cells([a65536].End(xlUp).Row + 1, 1) = gefFile
Cells([B65536].End(xlUp).Row + 1, 1) = Right(gefFile, 3)
'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
Als Dateityp kannst du auch "*.*" angeben.
Gruss Rainer