MyTetra Share
Делитесь знаниями!
FSO: метод GetAbsolutePathName
Время создания: 16.03.2019 23:43
Текстовые метки: CreateObject, Scripting.FileSystemObject, FSO, FSO.GetAbsolutePathName, GetAbsolutePathName, SetFSO
Раздел: !Закладки - VBA - FSO
Запись: adgaver/mytetra_base_New/master/base/1514473566i5d2d9jcck/text.html на raw.githubusercontent.com

FSO: метод GetAbsolutePathName

Синтаксис:

GetAbsolutePathName(<Pathspec>)

Назначение: возвращает полный путь для заданного относительного пути (из текущего каталога).

Параметры:

  • <Pathspec> – строка, относительный путь.

Пример:

Set FSO = CreateObject("Scripting.FileSystemObject")

Path = FSO.GetAbsolutePathName("..")

MsgBox Path

Path = FSO.GetAbsolutePathName(".\aaa\bbb\ccc.txt")

MsgBox Path

Метки: CreateObject("Scripting.FileSystemObject"), FSO, FSO.GetAbsolutePathName(".."), GetAbsolutePathName, SetFSO


' ==============================================================================================

Function get_folder_path(ByVal oWb As Workbook)


''early binding

'Dim fso As FileSystemObject

'Set fso = New FileSystemObject


'late binding

Dim fso As Object

Set fso = CreateObject("Scripting.FileSystemObject")


Dim folder As String

folder = fso.GetAbsolutePathName(oWb.Name)

'Debug.Print (folder)

End Function

' ==============================================================================================

Так же в этом разделе:
 
MyTetra Share v.0.55
Яндекс индекс цитирования