VBATips

サブフォルダを開く【Shell関数】【ExcelVBA】

Shell関数で指定フォルダ共有サーバーのフォルダを開くことは可能です。
FileSystemObjectを使用することで、サブフォルダを開くことも可能です。

サブフォルダを開くサンプルコード

Public Sub sample()
    
    '■FileSystemObjectの宣言
    Dim fso As Object: Set fso = CreateObject("Scripting.FileSystemObject")
    '■Shellオブジェクトの宣言
    Dim sShell As Object: Set sShell = CreateObject("Shell.Application")
        
    Dim tmp As String: tmp = "C:\vba"
    '■tmp(C:\vba)内のサブフォルダを開く
    Dim sFolder As Object
    For Each sFolder In fso.GetFolder(tmp).SubFolders
        sShell.ShellExecute sFolder
    Next
    
    '■実行例
    'C:\vba\A、C:\vba\Bと存在すれば、
    'Aフォルダ、Bフォルダが開く。(ただ開くだけ)
End Sub

注意点

  • 特にありません。

関連記事

コメント

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