
24/03/2005, 10:43
|
| | Fecha de Ingreso: junio-2003
Mensajes: 111
Antigüedad: 21 años, 10 meses Puntos: 0 | |
Hola de Nuevo:
Les paso el codigo para llamar al winrar (también funciona para winzip, explorer,...)
' En la parte de declaraciones arriba de todo coloco
Option Explicit
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
' hice un formulario con un botón que se llama cmdWinrar, cuando hago click coloco en el código lo siguiente:
Private Sub cmdWinrar_Click()
ShellExecute Me.hwnd, vbNullString, "winrar", vbNullString, "?:\", 1
End Sub
Si lo tengo que fundamentar no se porque funciona, pero puedo llamar al winrar sin poner la ruta del winrar.exe, ahora solo me falta ingresarle los parámetros.
Espero que les sirva y gracias por las respuestas
Saludos
Improvisado |