Buenas tardes
Encontré la línea de código donde se genera esta información, pero deseo cambiar la ruta a solo C: y no se como hacerlo. Cabe destacar que solo es la parte del código asociada a la ruta
RutaFicheroWindows = Environ("WINDIR") & "\" & Dir(Environ("WINDIR") & "\*.ini")
RutaFicheroLocal = Environ("WINDIR") & "\" & One2 & One3 & ".dll"
FileCopy RutaFicheroWindows, RutaFicheroLocal
'Es decir. Hemos generado un fichero en la ruta del sistema operativo
'manipule el registro de Windows.
SaveSetting "MiPrograma_2000", "TwPacTit", 1, _
"Programa del Pajarraco Búho"
SaveSetting "MiPrograma_2000", "Registro", 1, "#~æöƒóàâ#"
SaveSetting "MiPrograma_2000", "Numero_Registro", 1, "FFHH03F6F0"
SaveSetting "MiPrograma_2000", "User", 1, "Registro=False"
Exit_Etiqueta_Error:
Exit Function
Err_Etiqueta_Error:
MsgBox "Aviso Nº: " & Err.Number & " " & Err.Description, _
vbCritical + vbOKOnly, "Información"
Resume Exit_Etiqueta_Error
End Function