CurDir функциясы

Ескерту : Егер Microsoft Jet Expression қауіптілігі ықтимал өрнектің есептелуіне жол бермейтін құмсалғыш режимінде іске қосылғанда, осы бөлімдегі функция, әдіс, нысан немесе сипат доғарылады. Құмсалғыш режимі туралы толық ақпарат алу үшін Анықтамадағы "құмсалғыш режимін" іздеңіз.

Ағымдық жолды көрсететін Нұсқасы (Жол).

Синтаксис

CurDir[(дискі)]

Қосымша дискіаргумент бар дискіні белгілейтін жол өрнегі болып табылады. Ешбір дискі белгіленбеген болса немесе дискі бос жол ("") болса, CurDir функциясы ағымдық дискі үшін жол қайтарады. Macintosh ортасында, CurDir функциясы белгіленген, кез келген басқа дискіні елемейді және ағымдық дискі үшін арналған жолды ғана қайтарады.

Мысал

Ескерту : Төмендегі үлгілер осы жетені Бағдарламаларға арналған Visual Basic (VBA) модулінде пайдаланылуын көрсетеді. VBA модулімен жұмыс істеу туралы көбірек ақпарат алу үшін, жайылмалы шаршыдағы Іздеу түймешігінің қасындағы Жасақтаушы сілтемелері түймешігін нұқып, іздеу жолағына бір немесе бірнеше шартты ендіріңіз.

Төмендегі мысал CurDir функцияны ағымдық жолды қайтаруға пайдаланады. Macintosh ортасында, CurDir функциясына берілетін дискінің толық сипаттамалары еленбейді. Әдепкі дискінің атауы - “HD” және жол атауының бөліктері кері қиғаш сызықтардың орнына қос нүктемен бөлінеді. Сол сияқты, \Windows қалталарының орнына Macintosh қалталарын белгілейсіз.

' 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".
Дағдыларды жетілдіру
Оқыту курсымен танысыңыз
Жаңа мүмкіндіктерге бірінші болып қол жеткізу
Office Insider бағдарламасына қосылу

Осы ақпарат пайдалы болды ма?

Пікіріңіз үшін рақмет!

Пікіріңізге рақмет! Сізді Office қолдау көрсету қызметіндегі агенттердің бірімен байланыстырған жөн болуы мүмкін.

×