æ¥ãçµã£ã¦ãã¾ã£ãã®ã§æ¢ã«è§£æ±ºããã¦ããããããã¾ãããã ç§ãåããã¨ããããã¦èª¿ã¹ã¦ããã¨ããæ¹æ³ãåãã£ãã®ã§åèã¾ã§ã«ã¨æãæ稿ãããã¾ããã 次ã®ãµã³ãã«ã³ã¼ãã試ãã¦ã¿ã¦ãã ããã Sub TEST() Dim ShellApp As Object Dim oFolder As Object Set ShellApp = CreateObject("Shell.Application") Set oFolder = ShellApp.BrowseForFolder(0, "ãã©ã«ãé¸æ", 1) MsgBox oFolder.items.Item.Path, vbOKOnly, "ãã«ãã¹è¡¨ç¤ºï¼" End Sub APIãªã©ä½¿ç¨ããã¨ããã©ã«ãæå®ãã¤ã¢ãã°ã表示å¯è½ã§ãã 楽ãã³ã§ããã ãã®ãBrowseForFolder()ã¡ã½ãããã®è©³ããããããã£ã»ã¡ã½ããã®è§£èª¬ã¯å
{{#tags}}- {{label}}
{{/tags}}