Opmerking
De functie, de methode, het object of de eigenschap die in dit onderwerp wordt beschreven, is uitgeschakeld als de Microsoft Jet Expression-service wordt uitgevoerd in de sandboxmodus. Hierdoor wordt de evaluatie van potentieel onveilige expressies voorkomen. Zoek in de Help naar 'sandbox-modus' voor meer informatie over de sandbox-modus.
Deze functie retourneert een variant (tekenreeks) die het huidige pad aangeeft.
Syntaxis
CurDir[(station)]
Het argument optioneel stationis een tekenreeksexpressie die een bestaand station aangeeft. Als er geen station is opgegeven of als het station een tekenreeks met de lengte nul ("") is, retourneert CurDir het pad naar het huidige station. Op de Macintosh negeert CurDir elke opgegeven schijf en retourneert gewoon het pad voor de huidige schijf.
Voorbeeld
Opmerking
In de volgende voorbeelden wordt het gebruik van deze functie in een VBA-module (Visual Basic for Applications) toegelicht. Meer informatie over het werken met VBA vindt u door in de vervolgkeuzelijst naast Zoeken de optie Referentie voor ontwikkelaars te selecteren en een of meer termen in het zoekvenster te typen.
In dit voorbeeld wordt de functie CurDir gebruikt om het huidige pad op te halen. Op de Macintosh worden de schijfspecificaties die aan CurDir worden gegeven genegeerd. De naam van het standaardstation is 'HD' en delen van de padnaam worden gescheiden door dubbele punten in plaats van backslashes. U moet dan ook Macintosh-mappen opgeven in plaats van \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".