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.
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