Applies ToAccess pakalpojumam Microsoft 365 Access 2021 Access 2019 Access 2016

Piezīme.: Šajā tēmā aprakstītā funkcija, metode, objekts vai rekvizīts tiek atspējots, ja Microsoft Jet Expression Service darbojas smilškastes režīmā, tā neļauj novērtēt potenciāli nedrošas izteiksmes. Lai iegūtu papildinformāciju par smilškastes režīmu, meklējiet "smilškastes režīms" sadaļā Palīdzība.

Atgriež Variant (String), kas attēlo pašreizējo ceļu.

Sintakse

CurDir[(disks)]

Papildu diskdzinisarguments ir virknes izteiksme, kas norāda esošu disku. Ja disks nav norādīts vai disks ir nulles garuma virkne (""), CurDir atgriež pašreizējā diska ceļu. Macintosh datorā CurDir ignorē norādīto disku un vienkārši atgriež pašreizējā diska ceļu.

Piemērs

Piezīme.: Turpmākajos piemēros redzama šīs funkcijas izmantošana Visual Basic for Applications (VBA) modulī. Lai iegūtu papildinformāciju par darbu ar VBA, nolaižamajā sarakstā atlasiet Uzziņas materiāli izstrādātājiem blakus meklēšanas lodziņam un ievadiet šajā lodziņā vienu vai vairākus vārdus.

Šajā piemērā tiek izmantota funkcija CurDir , lai atgrieztu pašreizējo ceļu. Macintosh datorā curDirsniegtās disku specifikācijas tiek ignorētas. Noklusējuma diska nosaukums ir "HD", un ceļa nosaukuma daļas tiek atdalītas ar koliem, nevis atpakaļvērstām slīpsvītru. Līdzīgi ir jānorāda Macintosh mapes, nevis \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 MyPathMyPath = CurDir    ' Returns "C:\WINDOWS\SYSTEM".MyPath = CurDir("C")    ' Returns "C:\WINDOWS\SYSTEM".MyPath = CurDir("D")    ' Returns "D:\EXCEL".

Nepieciešama papildu palīdzība?

Vēlaties vairāk opciju?

Izpētiet abonementa priekšrocības, pārlūkojiet apmācības kursus, uzziniet, kā aizsargāt ierīci un veikt citas darbības.

Kopienas palīdz uzdot jautājumus un atbildēt uz tiem, sniegt atsauksmes, kā arī saņemt informāciju no ekspertiem ar bagātīgām zināšanām.