VBAファイルやフォルダーパスを取得(Path)

FileオブジェクトとFolderオブジェクトのPathプロパティについてです。

Pathプロパティ

指定したファイルやフォルダーやドライブのパスを返します。

ファイルの場合：FileObject.Path

フォルダの場合：FolderObject.Path

ドライブの場合：DriveObject.Path

Sub ファイルパス()

'FileSystemObjectをセット

Dim fso As Object

Set fso = CreateObject("Scripting.FileSystemObject")

'FileオブジェクトをFileSystemObjectのGetFileメソッドでセット

Dim f As File

Set f = fso.GetFile("D:\sample\test.xlsx")

'Fileオブジェクトのpathプロパティでパスを取得

Debug.Print f.Path

End Sub

【結果】

Sub フォルダーパス()

'FileSystemObjectをセット

Dim fso As Object

Set fso = CreateObject("Scripting.FileSystemObject")

'FolderオブジェクトをFileSystemObjectのGetFolderメソッドでセット

Dim f As Folder

Set f = fso.GetFolder("D:\sample")

'Folderオブジェクトのpathプロパティでパスを取得

Debug.Print f.Path

End Sub

【結果】

Sub ドライブパス()

'FileSystemObjectをセット

Dim fso As Object

Set fso = CreateObject("Scripting.FileSystemObject")

'DriveオブジェクトをFileSystemObjectのGetDriveメソッドでセット

Dim d As Object

Set d = fso.GetDrive(fso.GetDriveName("D:\sample\test.xlsx"))

'Driveオブジェクトのpathプロパティでパスを取得

Debug.Print d.Path

End Sub

【結果】