2016-07-15から1日間の記事一覧
Shell.Application.BrowseForFolder() Dim Shell As Object, pathInfo As String Set Shell = CreateObject("Shell.Application") Set pathInfo = Shell.BrowseForFolder(&O0, "フォルダを選択", &H1 + &H10, "C:\") If Not pathInfo Is Nothing Then MsgBox…