Abre cualquier tipo de archivos,carpetas en vb6 con Shell

Una de las funcionalidades que cualquier sistema tiene (especialmente si se maneja con documentos) es poder visualizar los archivos. Uno de los métodos es a través del comando Shell. A través de este comando puedes abrir desde un archivo de texto , Word, pdfs hasta carpetas y/o enlaces. (Este comando Shell en realidad emula lo que realizas a través del comando ejecutar pudiendo abarcar muchísimas funcionalidades aparte de sólo “abrir archivos”).

Por lo general para usar la función Shell  contiene dos atributos : Shell ( extensión  ruta) donde la extensión  es referente al archivo por ejemplo , si se trata de Word sería :

Shell (“winword.exe ” & ruta).

En la red he encontrado este código que compartimos, el cual funciona para todo tipo de archivos, es decir, ya no tendremos que asignarle un  winword.exe o notepad.exe simplemente reconocerá la extensión y permitirá abrir el archivo.

Public Sub EjecutarArchivos(ruta As String)
Dim ejecutarShell As Variant
On Error GoTo error
ejecutarShell = Shell("rundll32.exe url.dll,FileProtocolHandler " & (ruta), 1)
Exit Sub
error: MsgBox Err.Description, vbExclamation, "Error al procesar la información"
End Sub

Asimismo, si se desea abrir carpetas, sólo basta colocar Shell ("explorer.exe " & ruta).

Adicionalmente muestro el código del ejemplo:

Be Sociable, Share!

•