Hallo an alle,
vorerst wünsche ich euch nochmal nachträglich frohe ostern.
Ich hoffe ihr hette alle ein paar schöne Tage.
Mein Problem:
Ich habe mir folgenden code aus dem archiv geholt und etwas um geändert,
ich möchte gerne das die NAmen der pdf. Datein in eine ComboBox geschrieben werden.
Leider macht er bei diesem code aber auch den Pfad name mit in die ComboBox wie kann ich da schreiben des Pfad namen unterdrücken so das ich nur noch die pdf dateinamen wie z.B. "Blatt1.pdf" sehen kann?
strVerz = ThisWorkbook.Path & "\pdf"
ComboBox1.Clear
With Application.FileSearch
.NewSearch
.LookIn = strVerz
.FileType = msoFileTypeAllFiles
.SearchSubFolders = True
.Execute
If .FoundFiles.Count = 0 Then _
MsgBox "Keine Zusatzseiten (*.pdf) im Verzeichnis " & _
strVerz & " gefunden!", vbInformation: Exit Sub
For intZähler1 = 1 To .FoundFiles.Count
If .FoundFiles(intZähler1) Like "*.pdf" Then _
ComboBox1.AddItem .FoundFiles(intZähler1)
Next intZähler1
Gruß
Swen