Te damos la bienvenida a nuestra comunidad, en este sitio encontrarás la respuesta de lo que necesitas.
Solución:
Como la ruta puede no ser el directorio de trabajo actual, debe extraer la ruta del string.
encuentra el ultimo y lea todos los caracteres a la izquierda:
ParentPath = Left$(Path, InStrRev(Path, ""))
Si está trabajando en el directorio actual ChDir ".." te hará subir un nivel, el nuevo camino puede ser devuelto por CurrDir.
La forma más confiable de hacer esto es usar Scripting.FileSystemObject. Tiene un método que obtendrá la carpeta principal sin intentar analizarla:
With CreateObject("Scripting.FileSystemObject")
Debug.Print .GetParentFolderName(Application.ActiveWorkbook.Path)
End With
Si te sientes motivado, tienes la opción de dejar un ensayo acerca de qué le añadirías a esta sección.
¡Haz clic para puntuar esta entrada!
(Votos: 0 Promedio: 0)