hola, me da este error, 70 permiso denegado
tengo este codigo que creo que el responsable
creo que es por problema en el registro, ejecuto el programa en windows7
Cita: Private Sub Form_Load()
'crea el registro
Dim El_Objeto As Object
Set El_Objeto = CreateObject("WScript.Shell")
El_Objeto.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\Cur rentVersion\Run\" & App.EXEName, App.Path & "\" & App.EXEName & ".exe"
Set El_Objeto = Nothing
'leer registro
horario.Text = GetSetting(App.EXEName, "grabacionhora", "hora")
archivo.Text = GetSetting(App.EXEName, "grabacionarchivo", "archivo")
x.Text = GetSetting(App.EXEName, "grabacionX", "X")
y.Text = GetSetting(App.EXEName, "grabacionY", "Y")
xx.Text = GetSetting(App.EXEName, "grabacionXX", "XX")
yy.Text = GetSetting(App.EXEName, "grabacionYY", "YY")
'---------------------------------------
End Sub
gracias de antemano