フォルダ名を VBA で取得する方法

2年 ago
蓮, 翼
1 minute

フォルダ名を取得するには、VBAのFileSystemObjectオブジェクトのGetFolderメソッドを使用できます。

以下に簡単なサンプルコードを示します。

Sub GetFolderName()
    Dim FSO As Object
    Dim FolderPath As String
    Dim FolderName As String
    
    ' 设置文件夹路径
    FolderPath = "C:\Path\To\Folder"
    
    ' 创建FileSystemObject对象
    Set FSO = CreateObject("Scripting.FileSystemObject")
    
    ' 获取文件夹对象
    Dim Folder As Object
    Set Folder = FSO.GetFolder(FolderPath)
    
    ' 获取文件夹名称
    FolderName = Folder.Name
    
    ' 显示文件夹名称
    MsgBox "文件夹名称为：" & FolderName
End Sub

まずコード内のFolderPath変数に取得するフォルダパスを設定する。次にFileSystemObjectオブジェクトを作成し、GetFolderメソッドを用いてフォルダオブジェクトを取得する。最後にFolder.Nameプロパティを介してフォルダ名を取得し、メッセージボックスに表示する。

必要に応じてフォルダのパスの変更を行ってください。

bannerAds