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ß Ingolf