CurDir, functie

Opmerking: De functie, methode, object of eigenschap die in dit onderwerp wordt beschreven, is uitgeschakeld als de Microsoft Jet Expression-service wordt uitgevoerd in de sandboxmodus, waardoor mogelijk onveilige expressies niet kunnen worden geëvalueerd. Voor meer informatie over sandbox-modus zoekt u naar 'sandbox-modus' in help.

Deze retourneert een variant(tekenreeks)die het huidige pad vertegenwoordigt.

Syntaxis

CurDir[(station)]

Het optionele stationargument is een reeksexpressie die een bestaand station aangeeft. Als er geen station is opgegeven of als station een tekenreeks met lengte nul is (""), retourneert CurDir het pad voor het huidige station. Op een Mac negeert CurDir alle opgegeven station en retourneert het pad voor het huidige station.

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 geven. Op een Mac worden de aanCurDir gegeven schijfspecificaties genegeerd. De standaardnaam van het station is 'HD' en delen van de padnaam worden gescheiden door een dubbele punt in plaats van backslashes. Op dezelfde manier geeft u Mac-mappen op 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".

Meer hulp nodig?

Uw Office-vaardigheden uitbreiden
Training verkennen
Als eerste nieuwe functies krijgen
Deelnemen aan Office Insiders