Funkcija CurDir

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

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

Sintakse

CurDir[(disks)]

Papildu disksarguments ir virknes izteiksme, kas norāda esošo disku. Ja nav norādīts disks vai disks ir nulles garuma virkne (""), CurDir atgriež pašreizējā diska ceļu. Macintosh datorā CurDir ignorē visas norādītās diskierīces 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ā norādītās diska specifikācijas tiek ignorētas CurDir . Noklusējuma diska nosaukums ir "HD" un ceļa nosaukuma daļas ir atdalītas ar koliem, nevis atpakaļvērstajām slīpsvītrām. Tāpat varat norādīt 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 MyPath
MyPath = CurDir ' Returns "C:\WINDOWS\SYSTEM".
MyPath = CurDir("C") ' Returns "C:\WINDOWS\SYSTEM".
MyPath = CurDir("D") ' Returns "D:\EXCEL".

Vai nepieciešama papildu palīdzība?

Paplašiniet savas Office prasmes
Iepazīties ar apmācību
Esiet pirmais, kas saņem jaunās iespējas
Pievienoties Office Insider programmai

Vai šī informācija bija noderīga?

Paldies par jūsu atsauksmēm!

Paldies par atsauksmēm! Šķiet, ka jums varētu būt noderīgi sazināties ar kādu no mūsu Office atbalsta speciālistiem.

×