Notă: Funcția, metoda, obiectul sau proprietatea descrise în acest subiect este dezactivată dacă Serviciul de expresii Microsoft Jet 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 valoare variant (șir) reprezentând calea curentă.
Sintaxă
CurDir[(unitate)]
Unitatea opționalăargument este o expresie șir 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 pur și simplu returnează 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 oferite CurDir sunt ignorate. Numele implicit al unității este "HD", iar porțiunile numelui de cale 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".
