Remarque : La fonction, la méthode, l’objet ou la propriété décrite dans cette rubrique est désactivée 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.
Retourne un Variant (String) représentant le chemin d’accès actuel.
Syntaxe
CurDir[(drive)]
Le lecteur facultatifargument est un expression de chaîne qui spécifie un lecteur existant. Si aucun lecteur n’est spécifié ou s’il s’agit d’une chaîne de longueur nulle (« »), CurDir retourne le chemin du lecteur actuel. Sur Macintosh, CurDir ignore tout lecteur spécifié et retourne 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 du développeur dans la liste déroulante en regard de Rechercher et entrez un ou plusieurs termes dans la zone de recherche.
Cet exemple utilise la fonction CurDir pour retourner le chemin d’accès actuel. Sur Macintosh, les spécifications de lecteur données à CurDir sont ignorées. Le nom de lecteur par défaut est « HD » et les 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".
