VBA Code zum Registryeintrag löschen bringt Fehler
12.09.2006 20:30:22
Kasimir
ich habe da mal eine Frage zu einem VBA Code von Hans W. Herber, den ich auf Herbers Tutorial CD gefunden habe. Mit nachfolgenden Codes kann man in die Registry schreiben, diese auslesen und eigentlich sollte man die Einträge auch wieder löschen können.
'Registryeinträge - Schreiben, Lesen, Löschen
'Quelle: Herber.de
Sub RegWrite()
Dim wsh As New IWshShell_Class
With wsh
.RegWrite "HKCU\Software\HWH\", "Dies ist eine Voreinstellung"
.RegWrite "HKCU\Software\HWH\MyString", "Eine Zeichenfolge"
.RegWrite "HKCU\Software\HWH\MyNumString", 12345
.RegWrite "HKCU\Software\HWH\MyDwordValue", 12345, "REG_DWORD"
.RegWrite "HKCU\Software\HWH\MyBinaryValue", 12345, "REG_BINARY"
End With
Set wsh = Nothing
End Sub
Sub RegRead()
Dim wsh As New IWshShell_Class
With wsh
MsgBox .RegRead("HKCU\Software\HWH\") & vbLf & _
.RegRead("HKCU\Software\HWH\MyString") & vbLf & _
.RegRead("HKCU\Software\HWH\MyNumString") & vbLf & _
.RegRead("HKCU\Software\HWH\MyDwordValue")
End With
Set wsh = Nothing
End Sub
Sub RegDelete()
Dim wsh As New IWshShell_Class
With wsh
wsh.RegDelete "HKCU\Software\HWH\"
wsh.RegDelete "HKCU\Software\HWH\MyString"
wsh.RegDelete "HKCU\Software\HWH\MyNumString"
wsh.RegDelete "HKCU\Software\HWH\MyDwordValue"
wsh.RegDelete "HKCU\Software\HWH\MyBinaryValue"
wsh.RegDelete "HKCU\Software\HWH\"
End With
Set wsh = Nothing
End Sub
Allerdings funktioniert das Löschen leider nicht. Ich erhalte die folgende Fehlermeldung:
Außerdem wird die erste RegDelete Zeile markiert. Weiß jemand woran das liegt, dass die vorher geschriebenen und ausgelesenen Registryeinträge sich nicht wieder mit dem Code löschen lassen? Wäre für jede Hilfe dankbar.
Danke und Gruß,
Kasimir