Sub ShellTest()
    Dim MySHL As Object
    Dim MySHL2 As Object
    Dim StrPath As String
    
    Set MySHL = CreateObject("Shell.Application")
    Set MySHL2 = MySHL.BrowseForFolder(0, "リストからフォルダを選択してください", 0, CurrentProject.Path)
    
    If Not MySHL2 Is Nothing Then
        StrPath = MySHL2.Items.Item.Path
        MsgBox StrPath
    End If

    Set MySHL = Nothing
    Set MySHL2 = Nothing

End Sub


MySHL2 = MySHL.BrowseForFolder( Hwnd , sTitle , iOptions [, vRootFolder ])

Hwnd 0でいい
sTitle ダイアログ内に表示される文字列
iOptions 0でいい
vRootFolder ルートフォルダ。省略すると「デスクトップ」がルートフォルダ


 ↓ facebook のフォローで応援してください。お願いします。



Microsoft Office ブログランキングへ