Liste Erstellen
01.11.2004 19:22:42
tino
mit unten stehendem Makro, werden Ordner nach .txt Dateien durchsucht
und aufgelistet.
aber die Auflistung erfolgt mit Pfadangabe.
wie ist es möglich nur den Dateinamen zu erhalten?
(kein Makro, das die Zellen bearbeitet)
Sub SearchDatei()
Range("a2").Select
Dim lngCount As Integer
With Application.FileSearch
.Filename = "*.txt" 'Datei Typ
.LookIn = "C:\"
.SearchSubFolders = True
If .Execute <> 0 Then
MsgBox "gefundene Dateien: " & .FoundFiles.Count
For lngCount = 1 To .FoundFiles.Count
ActiveCell = .FoundFiles.Item(lngCount)
ActiveCell.Offset(1, 0).Activate
If ActiveCell = .FoundFiles.Item(lngCount) Then
lngCount = .FoundFiles.Count
End If
Next lngCount
Else
MsgBox "Keine Datei gefunden."
End If
End With
End Sub