Hola, Soy Nuevo En Vb
 

hola a todos, soy un novato en la programacion en vb y tengo unas preguntas sobre el comandbuton

Private Sub Command1_Click()
'se supone que aqu van los codigos
End Sub



que debo poner para que se abra un archivo cualquiera del disco ej un archivo txt o otro archvo exe?


BUENO, GRACIAS DE ANTEMANO

Re: Hola, Soy Nuevo En Vb
 

Prueba con Shell

P.ej:

Shell "ruta\tuprograma.exe"

Re: Hola, Soy Nuevo En Vb
 

Prueba con esto:

dim retval as variant
' como Ejemplo llamamos a la calculadora de
'windows
retval = shell("calc.exe",1)
el 1 indica el estado de la ventana.

Salu2
Adios


<P><center>CAGUZUCA...pronto pondre una imagen...</center></P>

Re: Hola, Soy Nuevo En Vb
 

Mira es buena opción ocupar el Shell, pero si quieres que te abra cualquier archivo, siempre y cuando tenga el programa para abrirlo claro, te recomiendo que ocupes una referencia al API ShellExecute.


Option Explicit
Const SW_SHOWNORMAL = 1
Private Declare Function ShellExecute Lib &quot;shell32.dll&quot; Alias &quot;ShellExecuteA&quot; (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

Private Sub Command1_Click()
ShellExecute Me.hwnd, &quot;open&quot;, &quot;Ruta\archivo.txt&quot;, &quot;&quot;, App.Path, SW_SHOWNORMAL
End Sub

Con esto podras abrir cualquier tipo de archivo. (txt,exe,doc, etc)
Espero te haya servido.
Nos vemos.

Re: Hola, Soy Nuevo En Vb
 

Estoy de acuerdo con Dans, de lo contrario si uilizas el otro metodo podes tener problemas con NT.

Saludos,
Tk

Re: Hola, Soy Nuevo En Vb
 

Gracis por su ayuda pero no entiendo lo que escribio dan
esto es lo que no entiendo

Option Explicit
Const SW_SHOWNORMAL = 1
Private Declare Function ShellExecute Lib &quot;shell32.dll&quot; Alias &quot;ShellExecuteA&quot; (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


donde lo pongo?

gracias ;)