Instruccion Shell
Necesito saber como puedo hacer para que cuando pulse un commandbutton, me aparezca un bloc de notas con los datos que habia guardado previamente.
Lo unico que he conseguido es abrir un bloc de notas desde Viusal pero vacio sin los datos que yo quiero:
shell ( "C:\windows\notepad.exe")
lo que quiero es que me habra un bloc de notas concreto C:\nachodatos.txt
Gracias
Lo unico que he conseguido es abrir un bloc de notas desde Viusal pero vacio sin los datos que yo quiero:
shell ( "C:\windows\notepad.exe")
lo que quiero es que me habra un bloc de notas concreto C:\nachodatos.txt
Gracias
Hola a ver aqui tienes el shellexecute con el cual dandole la ruta de un archivo sea cual sea su extension (.exe, .txt,.doc,etc..) lo abrira.
Copia esto en el codigo en "General"
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Aqui va el codigo del boton
Private Sub Command1_Click()
Dim res As String
Res = ShellExecute(Me.hwnd, "Open", ruta_del_archivo, " ", " ", 1)
' en tu caso seria asi
'Res = ShellExecute(Me.hwnd, "Open", "C:\nachodatos.txt", " ", " ", 1)
End sub
Espero haberte sido de ayuda
Suerte y saludos.
Copia esto en el codigo en "General"
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Aqui va el codigo del boton
Private Sub Command1_Click()
Dim res As String
Res = ShellExecute(Me.hwnd, "Open", ruta_del_archivo, " ", " ", 1)
' en tu caso seria asi
'Res = ShellExecute(Me.hwnd, "Open", "C:\nachodatos.txt", " ", " ", 1)
End sub
Espero haberte sido de ayuda
Suerte y saludos.
