Функція CurDir

Увага! : Цю статтю перекладено за допомогою служби машинного перекладу; див. застереження. Версію цієї статті англійською мовою див. тут для отримання довідки.

Примітка : Функції, метод об'єкта або майна, описані в цій статті буде вимкнуто, якщо вираз служби Microsoft Jet працює у режимі ізольованого програмного середовища, що запобігає обчислення потенційно небезпечних виразів. Додаткові відомості про режим ізольованого програмного середовища знайдіть «режим пісочниці» у вікні довідки.

Повертає до типу Variant (String) відображає шлях до поточного.

Синтаксис

CurDir [(drive)]

Необов'язково дискаргумент – це рядковий вираз , що вказує на наявний диск. Якщо диск не вказано або диск – це Рядок нульової довжини (""), функція CurDir повертає шлях для поточного диска. На комп'ютері Macintosh CurDirдиску указаного і просто повертає шлях для поточного диска.

Приклад

Примітка : У прикладах нижче показано використання цієї функції в модулі Visual Basic for Applications (VBA). Щоб отримати докладні відомості про використання модуля VBA, клацніть пункт Довідник розробника в розкривному списку поряд із полем Пошук і введіть у поле пошуку принаймні один термін.

У цьому прикладі використовується функція CurDir повернутися шлях до поточного. У системі Macintosh диск специфікації до функції CurDir ігноруються. Диск ім'я за замовчуванням "HD", а шлях для окремих частин відокремлюються двокрапки замість зворотні скісні. Так само, потрібно вказати Macintosh папки замість \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".

Примітка : Застереження про машинний переклад: Цю статтю перекладено комп’ютерною системою без втручання людини. Корпорація Майкрософт пропонує таку послугу, щоб іншомовні користувачі могли дізнаватися про продукти, служби й технології Microsoft. Оскільки статтю перекладено за допомогою служби машинного перекладу, вона може містити смислові, синтаксичні або граматичні помилки.

Отримуйте нові функції раніше за інших
Приєднайтеся до оцінювачів Office

Ця інформація корисна?

Дякуємо за ваш відгук!

Дякуємо за відгук! Схоже, вам може стати в нагоді допомога одного з наших спеціалістів служби підтримки Office, з яким ми вас можемо з’єднати.

×