Notă
Funcția, metoda, obiectul sau proprietatea descrisă în acest subiect este dezactivată dacă Microsoft Jet Expression Service rulează în modul sandbox, ceea ce împiedică evaluarea expresiilor potențial nesigure. Pentru mai multe informații despre modul sandbox, căutați "modul sandbox" în Ajutor.
Returnează o variantă (șir) reprezentând calea curentă.
Sintaxă
CurDir[(unitate)]
Argumentul unitateopțional este o expresie șir de caractere care specifică o unitate existentă. Dacă nu este specificată nicio unitate sau dacă unitatea este un șir de lungime zero (""), CurDir returnează calea pentru unitatea curentă. Pe Macintosh, CurDir ignoră orice unitate specificată și returnează pur și simplu calea pentru unitatea curentă.
Exemplu
Notă
Exemplele care urmează demonstrează utilizarea acestei funcții într-un modul Visual Basic for Applications (VBA). Pentru mai multe informații despre lucrul cu VBA, selectați Referințe pentru dezvoltatori în lista verticală de lângă Căutare și introduceți unul sau mai mulți termeni în caseta de căutare.
Acest exemplu utilizează funcția CurDir pentru a returna calea curentă. Pe Macintosh, specificațiile de unitate date CurDir sunt ignorate. Numele de unitate implicit este "HD" și porțiuni din numele căii sunt separate prin două puncte în loc de bare oblice inverse. În mod similar, specificați folderele Macintosh în loc 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".