Microsoft Office Access 2007-Programmierung - Das Handbuch

Kapitel 11: Dateien und Verzeichnisse

Text3.Value = "Fehler"

End If

End Sub

Die neu angelegten Felder auslesen:

Private Sub Befehl5_Click()

Dim wert As Variant

If GetValue(HKEY_LOCAL_MACHINE, "SOFTWARE\Doberenz & " & _

"Gewinnus\Testanwendung\1.0", "ProgrammID", wert) Then

Text4.Value = CStr(wert)

Else

Text4.Value = "???"

End If

End Sub

Löschen des Long-Feldes:

Private Sub Befehl6_Click()

If DeleteValue(HKEY_LOCAL_MACHINE, "SOFTWARE\Doberenz & Gewinnus\Testanwendung\1.0", "TestLong") Then

Text5.Value = "OK"

Else

Text5.Value = "Fehler"

End If

End Sub

Löschen des Teilschlüssels »1.0«:

Private Sub Befehl7_Click()

If DeleteKey(HKEY_LOCAL_MACHINE, "SOFTWARE\Doberenz & Gewinnus\Testanwendung\1.0") Then

Text5.Value = "OK"

Else

Text5.Value = "Fehler"

End If

End Sub

Zum Löschen des restlichen Baumes können Sie entweder das Programm ändern, oder Sie verwenden den

Registriereditor. Allerdings sollten Sie dabei nicht allzu sorglos vorgehen, eine fehlgeschlagene Aktion

könnte die Neuinstallation einer Anwendung (schlimmstenfalls die von Windows) nach sich ziehen.

Dateidialoge

Wir stellen Ihnen die zwei wichtigsten Varianten für die dialoggestützte Dateiauswahl vor

1

:

■ Die Microsoft Office 12.0 Library bietet Ihnen sowohl einen Dateiauswahldialog als auch einen Verzeich-

nis-Auswahldialog als eigene Objekte an. Sie brauchen sich also nicht mit zusätzlichen ActiveX-Controls

oder dem Windows-API zu belasten.

■ Wer aber die Office-Library nicht benutzen möchte, sondern den Direktzugriff auf das Windows-API

favorisiert, für den bietet sich die ab Seite 722 beschriebene zweite Variante an.

1

Es ginge auch per ActiveX-Steuerelement, aber warum wollen Sie sich die Arbeit komplizierter als notwendig machen?

718