![](https://excel-vba.work/wp-content/themes/cocoon-master/images/b-woman.png)
VBAで
・フォルダ名を取得
できます!
VBAコード
ここでは例として
・パス「C:\Users\user\Desktop\temp」の
・フォルダ名を取得
します。
※フォルダ名「temp」を取得します。
![フォルダ「temp」](https://excel-vba.work/wp-content/uploads/2023/01/vba_get_foldername_001.png)
Option Explicit
Sub sample()
Dim fso As Object
Dim FolderPath As String
Dim FolderName As String
'フォルダのパスを指定
FolderPath = "C:\Users\user\Desktop\temp"
Set fso = CreateObject("Scripting.FileSystemObject")
'フォルダ名を取得
FolderName = fso.GetFolder(FolderPath).Name
MsgBox ("フォルダ名 : " & FolderName)
'後片付け
Set fso = Nothing
End Sub
実行結果
フォルダ名を取得できました。
※フォルダ名「temp」を取得できました。
![実行結果](https://excel-vba.work/wp-content/uploads/2023/01/vba_get_foldername_002.png)
参考①
指定したフォルダ配下のフォルダの一覧を取得することもできます。
詳細は以下の記事をご確認ください。
参考②
ファイル名を取得することもできます。
詳細は以下の記事をご確認ください。
参考③
上記のVBAコードで使用した以下の詳細は、公式サイトをご確認ください。
●「FileSystemObject」の「GetFolder」メソッド
●「Folderオブジェクト」の「Name」プロパティ