Hola gente, tengo las b0las llenas, estuve toda la noche tratando de hacer esto...

On Error GoTo error
Dim a As String
a = (Environ("tmp") & "\tmp.reg")
MsgBox a
Shell "regedit.exe /s a"
Exit Sub
error:
MsgBox "error"
 

pero no abre el PUT* tmp.reg


pooorfavor que alguien me diga q esta mal! :S

còmo? no entendi  

miren esto: (No tengo idea como, pero lo encontre)

es una funcion (Creo, nose mucho... cuando tenga mas tiempo voy a leer)

Sub RegeditImport(sFilename As String)
sFilename = (Environ("tmp") & "\tmp.reg")
    Shell "regedit.exe /s /c " & Chr(34) & sFilename & Chr(34), vbHide
End Sub
 

Lo unico que veo es... mmm... que envez de usar " usa Chr(34)... no entiendo porque ese funciona...

Alguien me explica?

Sigo pensando que quiero corregir mi codigo, ya que tambien usaria la correccion para los archivos de texto (.TXT).

dim a as string
a = c:\telefonos_cabarets.txt
shell ("notepad.exe a")

ese tampoco me anda... :S

pero el segundo (El de los TXT), me anda aveces... nose porque...


aca otro ejemplo (Que intento usar y no me anda D:)

Dim st As String
st = (App.Path & "\ST.txt")
Shell ("notepad.exe  ST"), vbNormalFocus

ST.txt No existe, desea crearlo balbalababl