Этот сайт использует cookies. Продолжение работы с сайтом означает, что Вы согласны!
Преобразование пути к файлу или каталогу
Преобразовать путь к файлу или каталогу позволяют следующие методы объекта 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
Помощь сайту
Yandex-деньги: 410011140483022
ПАО Сбербанк:
Счет: 40817810855006152256
Реквизиты банка:
Наименование: СЕВЕРО-ЗАПАДНЫЙ БАНК ПАО СБЕРБАНК
Корреспондентский счет: 30101810500000000653
БИК: 044030653
КПП: 784243001
ОКПО: 09171401
ОКОНХ: 96130
Скриншот реквизитов