kann mir jemand helfen dabei aus einem Ordner (C:\pdf\)
alle Dateinamen die inkl. Dateikürzel (.pdf) in eine ComboBox zu laden.
Gruß
Swen
Dim fso As Object
Dim fo As Object
Dim f As Object
Set fso = CreateObject("Scripting.FileSystemObject")
Set fo = fso.GetFolder("C:\pdf\")
For Each f In fo.Files
UserForm1.ComboBox1.AddItem f.Name
Next 'f
Gruß IngolfDie 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