in einem Ordner "C:\Eigene Daten\Test" befinden sich mehrere txt-Dateien.
Ist es möglich über ein Makro die Anzahl der txt-Dateien in diesem Ordner zu ermitteln, und das Ergebnis in Tabelle1 Zelle A1 einzutragen?
Vielen Dank im voraus
Rolf
Sub Verzeichnisse_3()
With Application.FileSearch
.LookIn = "D:\Eigene Dateien\Hajo\Internet" ' Suchpfad
.SearchSubFolders = False ' Suche nicht in Unterverzeichnissen
.Filename = ".xls" ' Dateityp nach dem gesucht wird
If .Execute() > 0 Then MsgBox .FoundFiles.Count
End With
End Sub