Abrir explorador en carpeta

[xavi]

Palabras clave: explorador, ficheros, archivos
Autor: miguel
Extraído de: La web del programador

En ocasiones, después de generar más de un fichero por algún procedimiento, necesito mostrar el explorador con los ficheros generados.

Esta función, pasando como argumento la carpeta, la muestra.

Código: [Seleccionar]

Public Sub eRoot(rootpath As String)
    On Error Resume Next
    Dim EX, ARGU, path, X
    EX = "explorer.exe"
    ARGU = " /e,/root, "
    path = rootpath$
    X = Shell(EX & ARGU & path, 1)
End Sub