ppll2030

第4和第6行的set 去掉试试。

ppll2030

回复 6# cqz1314

执行VBS后，弹出选择窗口，默认初始位置与VBS在同级目录，选择一个目录，针对当前目录有效，不包含子目录内容。
生成的 “按页打印” 文件夹与VBS脚本同级。

修改以下两处：应该符合上面的要求了。
1、在16行中插入一下打开选择文件夹窗口代码：

Set Shell = CreateObject("Shell.Application")
Set objFolder = Shell.BrowseForFolder(0, "选择文件夹", 0, scriptFolder)
If Not objFolder Is Nothing Then
    selectedFolder = objFolder.Self.Path
End If
复制代码

2、第18行把scriptFolder修改为选择的文件夹selectedFolder ，也可以直接复制下方代码替换

Set scriptFolderObj = fso.GetFolder(selectedFolder)
复制代码