【VBA】フォルダ名を取得する【シンプル】

VBAで
 ・フォルダ名を取得
できます!

PR

VBAコード

ここでは例として
 ・パス「C:\Users\user\Desktop\temp」の
 ・フォルダ名を取得
します。
※フォルダ名「temp」を取得します。

フォルダ「temp」
フォルダ「temp」
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

「FileSystemObject」の「GetFolder」メソッドにより、「Folderオブジェクト」を取得します(15行目)。

「Folderオブジェクト」の「Name」プロパティにより、「フォルダ名」を取得します(15行目)。

PR

実行結果

フォルダ名を取得できました。
※フォルダ名「temp」を取得できました。

実行結果
実行結果
PR

参考①

指定したフォルダ配下のフォルダの一覧を取得することもできます。

詳細は以下の記事をご確認ください。

PR

参考②

ファイル名を取得することもできます。

詳細は以下の記事をご確認ください。

PR

参考③

上記のVBAコードで使用した以下の詳細は、公式サイトをご確認ください。

●「FileSystemObject」の「GetFolder」メソッド


●「Folderオブジェクト」の「Name」プロパティ

タイトルとURLをコピーしました