目的
有时候我们可能需要让用户选择某个文件夹,比如说让用户指定某个目录,用于批量导入该目录下的文件。这篇教程将教会你使用 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 "你选择的文件夹