Office: (Office 2016) Verzeichnisname auslesen und übergeben

\@evar46
Ich weiß jetzt nicht, wie du auf Bilddateien kommst.
So wie ich es verstanden habe, möchte Erich nur ein Startverzeichnis vorgeben können, dann einen Ordner auswählen und anschließend die Dateinamen dieses Ordners in eine Listbox laden. Mehr weiß ich auch nicht. Die Routinen für das Auswählen des Startordners habe ich ihm jetzt mal gegeben und wie man sie einbinden könnte aufgezeigt - für das Laden der Listbox gibt es anscheinend schon etwas.

Warum dafür nicht einfach ein FileDialogFilePicker ausreicht und stattdessen eine Listbox benötigt wird, weiß ich auch nicht.

Btw:
wenn du in deinem Beispiel die Konstante für "msoFileDialogFolderPicker" definierst, kann der Verweis auf die Microsoft Office xx.0 Object Library entfallen
und ein etwas modifizierter Code für BaumInhaltAnzeigen() mit minimaler Fehlerbehandlung zur Vermeidung von Zugriffsfehlern: Code:

@fraeser:
Mit jeder Anwahl der Vorschau wird von den Backslashes einer eliminiert. Bei doppelten Backslashes kann man also nur einmal Vorschau anwählen und dann nicht mehr. Die Methode mit dem Ersetzen funktioniert beliebig oft und CP funktioniert auch noch.

Gruß Ulrich

 

OK, ich kannte bisher beide Methoden und das Vorschau-Problem, aber nicht den Unterschied zwischen den beiden Methoden bzgl. Vorschau.

Danke für den Tipp, Ulrich!

 

Kann mir mal jemand sagen, was Ihr mit Vorschau meint, bitte?

 

Vielen Dank Urlich - funktioniert schon sehr gut.
Ein Frage hätte ich noch:
Wie kann ich das Verzeichnis aus strImportOrdner für andere Subs verwenden?

z.b. hier müsste ich PfadDB_Importordner durch den zuletzt definierten strImportOrdner ersetzen

Code:

Danke & LG
Erich

 

Hallo Erich,

Du kannst die entsprechende Variable als public in einem Modul definieren.
Dann kannst Du sie überall benutzen.

Alternativ gibt es seit Acc2007 auch TempVars - die bleiben auch bei Code-Unterbrechung erhalten.

 

Hallo Erich,

ich weiß jetzt nicht, wo du alles diesen Importordner noch alles brauchst, aber ich würde immer versuchen, den Scope so klein wie möglich zu halten, d.h. wenn der Importordner nur in dem Formular mit der Listbox benötigt wird, reicht es schon aus, die Variable in dem Formular private modulglobal anzuglegen, also z.B. im Formular außerhalb einer Sub mit

private dim mstrImportFolder as String

definieren. Nur wenn es gar nicht anders geht, verwende ich globale Variablen.
Dann würde ich aber auch die zwei Aufrufe zum Setzen der Variablen in eine separate Funktion packen und aus DateienImPoolZeigen() herausnehmen. Der Zugriff erfolgt dann nur noch über die Variable selber.

@Jan:
Mit "Vorschau" meine ich die Vorschau-Funktion im erweiterten Editor hier.

Gruß Ulrich

 

\@Knobbi38:
bezüglich thread #11 hab ich da versehentlich ein Textfeld "Bildpfad" benannt,
Das wäre natürlich besser gewesen, es neutral zu benennen...Sorry
Ich hatte das in einer meiner schon vorhandenen Test-Dbs ausprobiert, welche Bilddateien verwaltet.

@erich.schober1974:
Einen Windows Explorer per Access zu ersetzen, wird in Multiuserumgebungen
nicht einfach, wenn überhaupt möglich sein.

 

Hallo Erich,

noch ein Nachtrag:

ich kann dir nur dringend davon abraten, die Dir() Funktion von VBA dafür zu verwenden, ob ein Verzeichnis oder eine Datei existiert. Dabei werden so leicht Fehler gemacht und warum das immer wieder auftaucht - keine Ahnung -, zumal es dafür einfach zu handhabende alternative Funktionen gibt:
https://activevb.de/rubriken/kolumne...ileexists.html

Gruß Ulrich