Nota: La función, método, objeto o propiedad descrita en este tema se deshabilita si el Servicio de expresiones de Microsoft Jet se ejecuta en modo de espacio aislado, lo que impide la evaluación de expresiones potencialmente no seguras. Para obtener más información sobre el modo de espacio aislado, busca "modo de espacio aislado" en la Ayuda.
Devuelve un tipo de datos Variant (String) que representa la ruta de acceso actual.
Sintaxis
CurDir[(unidad)]
Laargumento de unidad opcional es una expresión de cadena que especifica una unidad existente. Si no se especifica ninguna unidad o si la unidad es una cadena de longitud cero (""), CurDir devuelve la ruta de acceso de la unidad actual. En Macintosh, CurDir ignora cualquier unidad especificada y simplemente devuelve la ruta de acceso de la unidad actual.
Ejemplo
Nota: Los ejemplos siguientes muestran el uso de esta función en un módulo de Visual Basic para Aplicaciones (VBA). Para obtener más información sobre cómo trabajar con VBA, seleccione referencia para desarrolladores en la lista desplegable situada junto a búsqueda y escriba uno o varios términos en el cuadro de búsqueda.
En este ejemplo se usa la función CurDir para devolver la ruta de acceso actual. En Macintosh, las especificaciones de unidad dadas a CurDir se pasan por alto. El nombre de unidad predeterminado es "HD" y las partes del nombre de ruta se separan por dos puntos en lugar de barras diagonales inversas. Del mismo modo, especificaría las carpetas de Macintosh en lugar de \Windows.
' Assume current path on C drive is "C:\WINDOWS\SYSTEM" (on Microsoft Windows).
' Assume current path on D drive is "D:\EXCEL".
' Assume C is the current drive.
Dim MyPath
MyPath = CurDir ' Returns "C:\WINDOWS\SYSTEM".
MyPath = CurDir("C") ' Returns "C:\WINDOWS\SYSTEM".
MyPath = CurDir("D") ' Returns "D:\EXCEL".
