【VBA】指定フォルダーのFolderオブジェクト取得(GetFolder)

FileSystemObjectのGetFolderメソッドについてです。

GetFolderメソッド

指定したフォルダーのFolderオブジェクトを返します。

FileSystemObject.GetFolder(folderspec)

引　数	必須 / 省略可	詳　細
フォルダーパス (folderspec)	必須	・フォルダーパスを指定。 ※指定したフォルダーが存在しない場合は、エラー。

FileSystemObjectのGetFolderメソッドはFolderオブジェクトを返すので、FolderオブジェクトのParentFolderプロパティで、指定したフォルダーの親フォルダーを取得する例。

Sub test1()

'変数

Dim fso As Object

Set fso = CreateObject("Scripting.FileSystemObject")

'親フォルダーのパスを取得

Debug.Print fso.GetFolder("D:\FSO\フォルダー1").ParentFolder

End Sub

【結果】

D:\FSO

FileSystemObjectのGetFolderメソッドはFolderオブジェクトを返すので、FolderオブジェクトのSubFoldersプロパティで指定したフォルダーのFoldersコレクションをセットして、ForEach～Nextで反復させてFolderオブジェクトのNameプロパティでフォルダー名を全取得する例。

Sub test2()

'変数

Dim fso As Object

Dim fc As Folders

Dim fol As Folder

'FileSystemObjectをセット

Set fso = CreateObject("Scripting.FileSystemObject")

'GetFolderはFolderオブジェクトを返すのでFoldersコレクションをセット

Set fc = fso.GetFolder("D:\FSO\フォルダー1").SubFolders

'繰り返し処理（Foreach）

For Each fol In fc

'FolderオブジェクトのNameプロパティでフォルダー名を取得

Debug.Print fol.Name

End Sub

【結果】

フォルダー名を全取得できます。