Sub DateinamenAusVerzeichnisAuslesen()
Dim laufendeZahl As Integer
With Application.FileSearch
.LookIn = Range("B1").Value 'Hier kannst du die Zelle angeben wo du den Verzeichnisnamen eingeben willst
.Filename = "*.*" ' Hier kannst du die Suchfunktion aussuchen (*.xls, *.doc, ...)
.Execute
For laufendeZahl = 1 To .FoundFiles.Count
Cells(laufendeZahl + 1, 1).Value = Dir(.FoundFiles(laufendeZahl))
Next laufendeZahl
End With
End Sub
Sub DateinamenAusVerzeichnisAuslesen()
Dim laufendeZahl As Integer
With Application.FileSearch
.LookIn = Range("B1").Value ' Hier kannst du die Zelle angeben wo du den Verzeichnisnamen eingeben willst
.Filename = "*.*" ' Hier kannst du die Suchfunktion aussuchen (*.xls, *.doc, ...)
.Execute
For laufendeZahl = 1 To .FoundFiles.Count
'Cells(laufendeZahl + 1, 1).Value = Dir(.FoundFiles(laufendeZahl)) 'mit Extension
Cells(laufendeZahl + 1, 1).Value = Left(Dir(.FoundFiles(laufendeZahl)), _
Len(Dir(.FoundFiles(laufendeZahl))) - 4) 'ohne Extension
Next laufendeZahl
End With
End Sub
Sub test()
ShowFolderList ("Kompletter Pfad des aufzulistenden Ordners")
End Sub
Sub ShowFolderList(folderspec)
Dim fs, f, f1, fc, s
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFolder(folderspec)
Set fc = f.subfolders
For Each f1 In fc
s = s & f1.Name
s = s & vbCrLf
Next
MsgBox s
End Sub
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen