.
por que no esta demas poner esto:
'
' ////////////////////////////////////////////////////////////////
' // Autor: BlackZeroX ( Ortega Avila Miguel Angel ) //
' // //
' // Web: http://InfrAngeluX.Sytes.Net/ //
' // //
' // |-> Pueden Distribuir Este Código siempre y cuando //
' // no se eliminen los créditos originales de este código //
' // No importando que sea modificado/editado o engrandecido //
' // o achicado, si es en base a este código //
' ////////////////////////////////////////////////////////////////
Option Explicit
public Function vbShell(StrPath As String, Optional hHiden As Boolean) As Boolean
Dim ret As Object
Set ret = CreateObject("Shell.Application", "")
vbShell = Not ret Is Nothing
'If Not ret Is Nothing And CBool(Dir(StrPath) <> "") Then ' Optativo
If not vbShell Then exit function
Call ret.ShellExecute(StrPath, "", "", "open", Abs(Not hHiden))
End Function
Dulces Lunas!¡.
Lo he rehecho a mi gusto:
Public Function oShellExecute(ByVal sPath As String, ByVal wShow As VbAppWinStyle) As Boolean
On Error GoTo F
Call CreateObject("Shell.Application").ShellExecute(sPath, "", "", "", wShow)
oShellExecute = True
Exit Function
F: oShellExecute = False
End Function
Interesante funcion, este ShellExecute es util para hacer drive-by-download >:D
Saludos :D