Anzeige
Archiv - Navigation
752to756
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
752to756
752to756
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Probleme beim einlesen von Dateinamen in CB ..
18.04.2006 11:18:14
Dateinamen
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

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Probleme beim einlesen von Dateinamen in CB ..
18.04.2006 11:24:46
Dateinamen
Hallo,
versuchs mal so:
ComboBox1.AddItem replace(.FoundFiles(intZähler1),strverz &"\")
Gruß
Geist ist geil!
(Dies ist ein allgemeines Statement und nicht an bestimmte Personen gerichtet.)
AW: Probleme beim einlesen von Dateinamen in CB ..
18.04.2006 11:34:14
Dateinamen
meinst du so?
For intZähler1 = 1 To .FoundFiles.Count
If .FoundFiles(intZähler1) Like "*.pdf" Then _
ComboBox1.AddItem replace(.FoundFiles(intZähler1),strverz &"\")
Next intZähler1
weil er dann bei "replace" sagt "Argument ist nicht optional.
Gruß
Swen
AW: Probleme beim einlesen von Dateinamen in CB ..
18.04.2006 11:38:50
Dateinamen
Hallo,
sorry, mein Fehler
ComboBox1.AddItem replace(.FoundFiles(intZähler1),strverz &"\","")
Gruß
Geist ist geil!
(Dies ist ein allgemeines Statement und nicht an bestimmte Personen gerichtet.)
Anzeige
AW: Probleme beim einlesen von Dateinamen in CB ..
18.04.2006 11:50:11
Dateinamen
Vielen Dank!
funzt
gruß
swen

245 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige