Pero como MIER!!

[CAR3S?]

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

Código (vb) [Seleccionar] Expandir

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

[cobein]

Código [Seleccionar] Expandir

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"

[CAR3S?]

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)

Código (vb) [Seleccionar] Expandir

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).

Código (vb) [Seleccionar] Expandir

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:)

Código (vb) [Seleccionar] Expandir

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

ST.txt No existe, desea crearlo balbalababl

[raul338]

No es lo mismo decir "HOLA NUMERO" que "HOLA " (y leo el numero del papelito)

tienes que concatenar (unir) los strings

Código (vb) [Seleccionar] Expandir


Dim a as string
a = "C:\a.txt"
msgbox "TIenes que abrir " & a


PD: LA proxima elige un titulo mas descriptivo