por que no esta demas poner esto:
Código
' ' //////////////////////////////////////////////////////////////// ' // 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!¡.