Ver si existe un valor en el registro (if)

[‭lipman]

Mi idea es buscar en el registro una cosa y si no está crearla

If
(busco valor en el registro (en sys32), que no se como y si no está) then
Dim registro
'...
Set registro = CreateObject("WScript.Shell")
registro.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run\" & "asd", "C:\Windows\System32\asd.swf"

Saludos y Gracias

[Xerok1!]

lo que tienes que hacer es leer la clave del registro en un textbox,eso esta explicado en varios post,buscalo..
si la clave no existe el texto del textbox sera este (""),entnces tu codigo seria asi:

Código [Seleccionar] Expandir

if text1.text = "" then
aqui para añadir la entrada al registro
end if


y si la clave de registro esta creada, pues el textbox tendria este texto ("clave") y el code seria asi:

Código [Seleccionar] Expandir

if not text1.text = "" then
msgbox "la entrada de registro esta creada!"
end if


y bueno az lo q kieras a partir de ahi XD

un saludo

[darkraider]

A lo mejor esto te sirve:
http://elguille.info/NET/dotnet/registroWindowsInicio.htm
Espero ayudar. Salu2

[‭lipman]

Vale Xerok, me sirvió, pero darkraider lo que pusiste es para .NET