2017-01-27 34 views

答えて

0

次のコードは、ファイルダイアログウィンドウを開き、ユーザーが選択したファイルのファイルパスを返します。

Function GetFileName() 

    Dim ShellApp, Ret, s, i 
    Set ShellApp = CreateObject("Shell.Application") 

    Set Ret = ShellApp.BrowseForFolder(0, "Choose a file.", 16384) 
    MsgBox Ret.ParentFolder.ParseName(Ret.Title).Path 

End Function 
関連する問題