Hi Wbendl
Habs gefunden, funktioniert:
Sub REG()
Dim WSHShell As Object
Set WSHShell = CreateObject("WScript.Shell")
'AUSLESEN:
a = WSHShell.RegRead("HKEY_CURRENT_USER\Software\Micro soft\Internet Explorer\Download Directory")
'REINSCHREIBEN:
wohin = "D:\Hierher"
b = WSHShell.RegWrite("HKEY_CURRENT_USER\Software\Micr osoft\Internet Explorer\Download Directory", wohin)
End Sub
Grüße
Chr
|