Remarque
La fonction, la méthode, l’objet ou la propriété décrits dans cette rubrique est désactivé si le service d’expression Microsoft Jet s’exécute en mode bac à sable, ce qui empêche l’évaluation d’expressions potentiellement dangereuses. Pour plus d’informations sur le mode bac à sable, recherchez « mode bac à sable » dans l’aide.
Renvoie une variante (chaîne) représentant le chemin actuel.
Syntaxe
CurDir[(lecteur)]
L’argument facultatif driveest une expression de chaîne qui spécifie un lecteur existant. Si aucun lecteur n’est spécifié ou si le lecteur est une chaîne nulle (« »), CurDir retourne le chemin du lecteur actuel. Sur le Macintosh, CurDir ignore tout lecteur spécifié et renvoie simplement le chemin du lecteur actuel.
Exemple
Remarque
Les exemples suivants illustrent l’utilisation de cette fonction dans un module Visual Basic pour Applications (VBA). Pour plus d’informations sur l’utilisation de VBA, sélectionnez Référence développeur dans la liste déroulante en regard de Rechercher , puis entrez un ou plusieurs termes dans la zone de recherche.
Cet exemple utilise la fonction CurDir pour renvoyer le chemin d’accès actuel. Sur le Macintosh, les spécifications de lecteur données à CurDir sont ignorées. Le nom de lecteur par défaut est « HD » et certaines parties du chemin d’accès sont séparées par des deux-points au lieu de barres obliques inverses. De même, vous devez spécifier des dossiers Macintosh au lieu 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".