Vbscript 在库的文档文件夹中保存文件时出错

我正在用VBScript作为脚本语言编写一个HTA文件。我有一个功能，提示用户选择要保存文档的文件夹。这段代码不是我自己写的，而是从别人那里借来的

当我创建文件并提示用户选择保存位置时，我按顺序调用另一个函数：

Sub Example()
Dim destPath, destFile, objWorkbook
destPath = SelectFolder(libPath)
destPath = destPath & "\Sample Export"

Set destFile = CreateObject("Excel.Application")
Set objWorkbook = destFile.Workbooks.Add()
objWorkbook.SaveAs(destPath)

(code to edit excel file)

End Sub

Example（）工作正常，除非有人选择将文档保存在Windows中的四个默认库（文档、音乐、图片、视频）之一。在这种情况下，我会收到一个错误，上面写着“无法访问该文件”，并指出错误出现在“objWorkbook.SaveAs（destPath）”这一行。然后，错误框给了我以下建议：

• 确保指定的文件夹存在
• 确保包含该文件的文件夹不是只读的
• 确保文件名不包含以下任何字符：<>？{}：|或*
• 确保文件/路径名不包含超过218个字符

---

当我打开HTA文件并单击调用Example（）的按钮时，会出现错误，然后会打开一个对话框，要求用户选择文件位置。选择文档、音乐、图片或视频后，会弹出一个“脚本错误”框，其中包含上面列出的错误消息。我对VBScript不太熟悉，不知道到底是什么问题。如果您能给我一些建议，我将不胜感激。

我不知道上述问题的确切解决方案是什么。但是，我注意到我传递到

SelectFolder

的路径中有一个输入错误

libPath

应该是来自环境变量的

%userprofile%

。然而，我将“userprofiles”进行了多重化，因此它是

%userprofiles%

。这把我带到了一个看起来不错但实际上并不好的地方。我修正了输入错误，现在

BrowseForFolder

将我带到

C:/Users/*username*

，就像它应该的那样。原来我被发送到桌面位置是因为

BrowseForFolder

中的第四个参数，而不是我想要的用户配置文件。

请仔细阅读==>=>=>=>====>^…+问题中的文件和文件夹乱七八糟。请详细说明您的问题，并在问题中添加相关代码。您尚未显示您的代码。对话框是否返回错误？如果是，错误是什么？或者，在对话框返回对系统虚拟文件夹的引用（该文件夹仅适用于shell命令，而不适用于file命令）之后，错误出现在下一行中？我已经添加了代码并详细说明了错误。对于第一个问题中缺少信息表示歉意。

Sub Example()
Dim destPath, destFile, objWorkbook
destPath = SelectFolder(libPath)
destPath = destPath & "\Sample Export"

Set destFile = CreateObject("Excel.Application")
Set objWorkbook = destFile.Workbooks.Add()
objWorkbook.SaveAs(destPath)

(code to edit excel file)

End Sub