CorelDRAW VBA - 打开选择文件夹对话框

目的

有时候我们可能需要让用户选择某个文件夹，比如说让用户指定某个目录，用于批量导入该目录下的文件。这篇教程将教会你使用 CorelDRAW 在代码中调用系统的文件夹选择对话框，并循环输出文件的名称和路径。

实现

代码如下：

Sub chooseFolder()
    ' 声明变量
    Dim shell, folder, fs, fd, files
    ' 创建Shell对象，用来浏览系统文件夹
    Set shell = CreateObject("Shell.Application")
    Set folder = shell.BrowseForFolder(0, "选择文件夹", 0, 0)
    ' 判断是否选择了文件夹
    If Not folder Is Nothing Then
        ' 得到文件夹的路径
        Dim folderPath As String
        folderPath = folder.self.Path
        MsgBox "你选择的文件夹