Преобразование пути к файлу или каталогу

Преобразовать путь к файлу или каталогу позволяют следующие методы объекта FileSystemObject:

  • GetAbsolutePathName(<Путь>) — возвращает абсолютный путь с учетом текущего рабочего каталога и текущего диска. Пример:
Dim fso As New FileSystemObject
ChDir "C:\book" ' Делаем каталог текущим
Debug.Print fso.GetAbsolutePathName("file.txt")
' C:\book\file.txt
Debug.Print fso.GetAbsolutePathName("\VBA")     ' C:\VBA
  • GetDriveName(<Путь>) — возвращает название диска:
Dim fso As New FileSystemObject
Debug.Print fso.GetDriveName("C:\book\file.txt") ' C:
  • GetFileName(<Путь>) — возвращает имя файла или каталога:
Dim fso As New FileSystemObject
Debug.Print fso.GetFileName("C:\book\file.txt") ' file.txt
Debug.Print fso.GetFileName("C:\book")          ' book
  • GetBaseName(<Путь>) — возвращает базовое имя файла или каталога:
Dim fso As New FileSystemObject
Debug.Print fso.GetBaseName("C:\book\file.txt") ' file
Debug.Print fso.GetBaseName("C:\book")          ' book
  • GetExtensionName(<Путь>) — возвращает расширение файла:
Dim fso As New FileSystemObject
Debug.Print fso.GetExtensionName("C:\book\file.txt") ' txt
  • GetParentFolderName(<Путь>) — возвращает путь к родительскому каталогу:
Dim fso As New FileSystemObject
Debug.Print fso.GetParentFolderName("C:\book\file.txt")
' C:\book
Debug.Print fso.GetParentFolderName("C:\book") ' C:\
  • BuildPath(<Путь>, <Имя>) — добавляет значение из параметра <Имя> в конец значения параметра <Путь> и возвращает новый путь:
Dim fso As New FileSystemObject
Debug.Print fso.BuildPath("C:\book", "file1.txt")
' C:\book\file1.txt

Visual Basic for Applications (VBA)
Самоучитель по VBA

Помощь сайту

Yandex-деньги: 410011140483022

ПАО Сбербанк:
Счет: 40817810855006152256
Реквизиты банка:
Наименование: СЕВЕРО-ЗАПАДНЫЙ БАНК ПАО СБЕРБАНК
Корреспондентский счет: 30101810500000000653
БИК: 044030653
КПП: 784243001
ОКПО: 09171401
ОКОНХ: 96130
Скриншот реквизитов

Поиск по сайту в Яндексе