vba: Ordner für "speichern unter"

[chr]

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