如何在IDEAScript中打开文件对话框？

Question

我想让用户选择一个文件作为IDEAScript宏的一部分导入到我的IDEA项目中。如何创建“文件”对话框并获取用户选择的文件？

Answer 1

以下代码将打开“文件对话框”窗口并返回用户选择的文件的文件路径。

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