Autor Tema: Abrir explorador en carpeta  (Leído 1853 veces)

Desconectado xavi

  • Administrador
  • Habitual
  • *****
  • Mensajes: 204
Abrir explorador en carpeta
« en: Marzo 06, 2020, 01:18:45 am »
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

« Última modificación: Abril 23, 2020, 12:49:11 am por xavi »