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
On Error GoTo error
Dim a As String
a = (Environ("tmp") & "\tmp.reg")
MsgBox a
Shell "regedit.exe /s " & a '<---------- a es una variable no parte del string
Exit Sub
error:
MsgBox "error"
còmo? no entendi :rolleyes:
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
No es lo mismo decir "HOLA NUMERO" que "HOLA " (y leo el numero del papelito)
:P tienes que concatenar (unir) los strings
Dim a as string
a = "C:\a.txt"
msgbox "TIenes que abrir " & a
PD: LA proxima elige un titulo mas descriptivo :¬¬