(Datei-)Verlauf mit VBA speichern und anzeigen

In meinen Anwendungen werden häufig Dateien ausgewählt, manchmal immer wieder die gleichen. Um nicht jedes Mal mit dem Dateiauswahldialog durch den gesamten Dateibaum navigieren zu müssen, habe ich eine Klasse geschrieben, mit dem sich eine bestimmte Anzahl Dateien (oder andere Listeneinträge) zur Schnellauswahl speichern lässt.

Dabei wird einfach eine Semikolonseparierte Liste der zuletzt ausgerufenen Dateien in die Registry geschrieben und bei der nächsten Auswahl von dort wieder in das entsprechende Kombinationsfeld zurückgeschrieben. Im Beispiel habe ich noch die Anzahl der Einträge konfigurierbar gemacht. Bei mir ist sie aber meist fest auf 10 eingestellt.

Um einem Kombinationsfeld einen Verlauf zuzuordnen muss zunächst im zugehörigen Formular die Klasse pro Auswahlliste einer Objektvariable zugewiesen werden:

   Dim cFS1 As clsFileStack
   Dim cFS2 As clsFileStack

In der Prozedur Form_Load wird dann die Klasse für eine oder mehrere Kombinationsfelder initialisiert:

   Set cFS1 = New clsFileStack
   cFS1.Init Me!cboFile1

   Set cFS2 = New clsFileStack
   cFS2.Init Me!cboFile2

Jetzt muss eine neue Datei nur noch nach der Dateiauswahl im entsprechenden Dialog der Liste hinzugefügt werden:

   cFS1.Update strFile1

Die Dateipfade werden in der Liste jeweils oben/vorne angefügt, Dubletten werden entfernt und die Liste nötigenfalls auf die eingestellte maximale Anzahl an Einträgen gekürzt.

Mit nur drei Zeilen Code pro Auswahlliste lässt sich so die Benutzerfreundlichkeit einer Access-Anwendung verbessern.

Die Klasse lässt sich natürlich auch für andere Auswahllisten verwenden. Dann wird z. B. einfach der Name des zuletzt ausgewählten Projekts oder Kunden der Liste hinzugefügt.

Download

Dateiverlauf für Access 2016 (und neuer)
(Datei: Dateiverlauf.zip, ca. 40 KB)

Bitte denken Sie daran, dass Sie die Datei(en) nach dem Download Zulassen müssen.
Hier steht, warum und wie.