Dateien aus Ordner erkennen

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

'Dein vorher stehender VBA Code 'Ersten Dateinamen mit der Dateiendung txt aus dem angegebenen Pfad lesen 'und Schleife laufen lassen, bis keine txt-Datei mehr abzuarbeiten ist importFile = Dir$(importPath & "*.txt") Do While importFile "" 'mach hier was mit der aktuellen txt-Datei 'Nächsten Dateinamen mit der Dateiendung txt aus dem angegebenen Pfad lesen importFile = Dir$() Loop 'Dein nachstehender VBA Code

Hallo Zwenn
Deine Lösung kann ich gut auch für mich verwenden! Vielen Dank!
Ich habe eine Frage dazu: Mein angepasstes Makro heisst:


Sub test33()
importPath = "D:\0000_TEST2\"
importFile = Dir$(importPath & "*.pdf")
Do While importFile  ""
importFile = Dir$()
MsgBox importFile
Loop
End Sub

In einer MsgBbox sollen die Namen aller pdf-Dateien im Ordner "D:\0000_TEST2\" angezeigt werden.
Im betreffenden Ordner gibt es diese vier PDF-Dateien:
ZA_101.pdf
ZA_102.pdf
ZA_103.pdf
ZA_104.pdf
Die MsgBox zeigt mir aber nur ZA_102.pdf, ZA_103.pdf, ZA_104.pdf
und dann ein leeres Meldungsfenster.
ZA_101.pdf wird gar nicht gemeldet.
Weisst Du, woran das liegen kann?
Vielen Dank und viele Grüsse Niclaus

Sub test33() importPath = "D:\0000_TEST2\" importFile = Dir$(importPath & "*.pdf") 'Liest schon den ersten Dateinamen ein, wenn vorhanden Do While importFile "" MsgBox importFile importFile = Dir$() Loop End Sub

Hallo Zwenn, hallo Martin
Eine weitere Frage habe ich in diesem Zusammenhang:


Sub test333()
importPath = "D:\0000_TEST2\"
importFile = Dir$(importPath & "*.pdf")
Do While importFile  ""
ActiveWorkbook.FollowHyperlink importPath & importFile
importFile = Dir$()
Loop
End Sub

Mit diesem Makro öffne ich die PDF-Dateien. Das klappt auch nur: Bei bestimmten PDFs meldet sich der Sicherheitshinweis: "Dieser Speicherort ist möglicherweise nicht sicher."
Für mich nicht verständlich ist folgendes: Einige PDFs werden ohne diesen Sicherheitshinweis geöffnet PDFs, die ich von Kollegen erhalten oder vom Online-Banking heruntergeladen habe.
Bei anderen PDFs vor allem bei solchen, die ich selber erstellt habe mit Menü Datei / Drucken/ Microsoft Print to PDF meldet sich der Sicherheitshinweis.
Ich weiss, dass man diesen Sicherheitshinweis via Registry deaktivieren kann. Das mag ich aber nicht.
Mich interessiert vor allem: Warum meldet sich der Sicherheitshinweis bei den einen PDFs, bei den andern aber nicht. Zwenn, hast Du eine Erklärung dafür?
Vielen Dank und schönes Wochenende
Niclaus
Userbild

Sub alle_Dateien_Verzeichnis() ' Dim ALtPfad$, NeuPfad$, Ext$, Datei$ Ext = "*.txt" ALtPfad = "C:\Temp\" '**** mit \ NeuPfad = "C:\Temp\UD\" '**** mit \ Datei = Dir(ALtPfad & Ext) Do While Len(Datei) > 0 'Mach was damit 'Beispiel Verschieben Name ALtPfad & Datei As NeuPfad & Datei Datei = Dir() ' nächste Datei Loop End Sub

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

299 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Dateien aus Ordner erkennen

9 Beiträge zum Forumthread Beiträge zu diesem Forumthread

299 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread