vb6 - VB6.0中Scripting.Folder的声明

Question

要查找删除文件夹，在我的代码中使用带有以下声明“Dim Folder as Folder”的变量。多年来一直运行良好。但是突然当执行“Set folder = fso.GetFolder(strParamPath)”这一行时，它给出了“类型不匹配”我不知道为什么突然出现这个错误。所以我将声明更改为“Dim Folder as Scripting.Folder”，它似乎有效。为什么它工作正常，现在却不工作了？谁能帮帮我？

Answer 1

使用 Scripting.Folder 强制 VB6 在 Scripting 类型库中查找 Folder 的定义。如果你只是写Folder，VB6首先在你自己的代码中寻找一个Folder类型或类，然后依次在你的Project-References中的每个类型库中寻找和组件对话。它将使用它找到的第一个 Folder。使用 Scripting.Folder 更安全且没有缺点(请参阅手册主题 ambiguous references )，因此您只需在好奇时进行调查。

可能的解释:

• 您以某种方式安装了其中一个引用或组件的新版本，并且新版本包含一个文件夹。
• 您已经在自己的代码中定义了一个Folder 类型或类。
• 您已经向项目添加了新的引用或组件。它包含一个文件夹。

Intellisense 可以帮助您找出文件夹 是什么。类型

Dim fol As Folder

然后输入

fol.

Intellisense 应该下拉 fol 的成员列表。选择其中之一，以便 Intellisense 为您完成该行，例如。

fol.foobar

现在将光标放在 foobar 上，然后选择 View-Definition。这应该会打开对象浏览器并将您带到包含 Folder 的新定义的类型库。希望您随后会说“啊哈!WonderWidget!上周我将 WonderWidget 更新到版本 59.4001!它具有新的 WonderWidgetFolder 功能!”