Eine Funktion, die in Datenbanken immer wieder hilfreich sein kann, ist die Anzeige eines bestimmten Verzeichnisses im Windows-Explorer. So können Sie z. B. dem Anwender die Möglichkeit geben, in einem Verzeichnis mit Importdateien die dort vorhandenen Dateien zu prüfen, umzubenennen bzw. Sicherheitskopien anzulegen.
Um eine solche Schaltfläche in ein Formular einzubauen, gehen Sie wie in Access-Berater vorgestellt folgendermaßen vor:- Wechseln Sie mit ALT + F11 in die VBA-Entwicklungsumgebung oder öffnen Sie ein Modul im Entwurfsmodus.
- Wählen Sie das Menü EXTRAS > VERWEISE an.
- Lokalisieren Sie den Eintrag MICROSOFT SHELL CONTROLS AND AUTOMATION und aktivieren Sie das Kontrollkästchen vor dem Eintrag.
- Übernehmen Sie die Änderungen mit einem Klick auf OK.
- Öffnen Sie das betreffende Formular im Entwurfsmodus.
- Platzieren Sie im Formular eine Schaltfläche IMPORT > VERZEICHNIS (Name = »btnImportFolder«).
- Stellen Sie die Eigenschaft BEIM KLICKEN auf den Eintrag »[Ereignisprozedur]« ein, klicken Sie auf die Schaltfläche mit den drei Punkten, um den VBA-Editor zu öffnen, und geben Sie die folgenden Anweisungen ein:
Private Sub btnImportFolder_Click()
Dim s As New Shell
Const cstrDir = »Z:TestImport«
s.Open cstrDir
Set s = Nothing
End Sub
- Speichern Sie die Änderungen und lassen Sie das Formular einmal testweise anzeigen.
Nach einem Klick auf die Schaltfläche IMPORT > VERZEICHNIS wird nun ein Windows-Explorer-Fenster mit dem in der Konstanten »cstrDir« festgelegten Verzeichnis geöffnet.
Der Windows-Explorer zeigt hierbei ein einfaches Fenster an. Alternativ können Sie ein Windows-Explorer-Fenster mit hierarchischer Verzeichnisanzeige links und dem gewünschten Verzeichnis rechts anzeigen lassen.
Dazu nutzen Sie die Methode »Explore « des »Shell«-Objekts wie in folgender Ereignisprozedur:
Private Sub btnExploreImport_Click()
Dim s As New Shell
Const cstrDir = »Z:TestImport«
s.Explore cstrDir
Set s = Nothing
End Sub