Visual Basic - pregunta tonta pero urgente

Life is soft - evento anual de software empresarial
 
Vista:

pregunta tonta pero urgente

Publicado por german tamayo (11 intervenciones) el 17/04/2002 01:09:41
Necesito que al dar clic en un boton o en cualquier cosa, se abra una carpeta. Solo necesito abrir la carpeta, no ningun archivo. La carpeta la debe abrir como si se le diera doble clic a esta que me la muestra en el explorador con todos sus archivos; creo que me entienden no? Gracias.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:pregunta tonta pero urgente

Publicado por PonchoWare (88 intervenciones) el 17/04/2002 03:04:00
Pues con la cada vez mas famosa funcion de la API de windows "ShellExecute"

Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpszOp As String, ByVal lpszFile As String, ByVal lpszParams As String, ByVal LpszDir As String, ByVal FsShowCmd As Long) As Long

Const SW_SHOWNORMAL = 1

'eso nomas fue la declaracion, la cual la debes poner en un modulo y si la quieres poner en una forma pues le antepones la palabra Private

'y ya despues nomas la llamas en el evento que quieras:

Dim resultado As Long
Dim laCarpeta as string

laCarpeta = "C:\Mis Documentos" ' La carpeta a abrir

resultado = ShellExecute(Me.hWnd, "open", laCarpeta, "", "", SW_SHOWNORMAL )

en resultado se guarda el error o si todo se ejecuto sin problemas, pero esa... es otra historia.

espero que funcione por que no lo puede probar...

Salu2
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar