Vb6 文件移动问题？

使用VB6

我想将文件移动到另一个文件夹

代码

txtsourcedatabasefile=“C：”

上述代码不工作，它将错误显示为对象变量或未设置块变量

如何修改我的代码

---

需要VB6代码帮助

只需几个问题：

fso

设置为什么

txtsourcedatabasefile

设置为什么

我想这就是你的问题所在。我会亲自查看

fso

以确保您已设置它

更新：

在您的问题更新中，您的代码：

Dim fso As FileSystemObject

创建对象，但实际上不将其初始化为任何对象。您需要执行以下操作：

Dim fso As FileSystemObject
Set fso = New FileSystemObject

事实上，在绝大多数情况下，这是比较可取的，因为几乎等同于：

Dim fso As New FileSystemObject

创建一个自动实例化对象，这意味着每次使用它时，它都会检查是否需要创建它

这使得代码段类似于：

Dim fso As New FileSystemObject
fso.DoThis()
fso.DoThat()
if fso.EverythingDone then
    fso.Shutdown()
end if

---

昂贵，因为它将检查

fso

四次以查看它是否存在（并且只在第一次创建它）。手动创建一次更有效。

fso

未初始化为任何内容，请尝试替换

Dim fso As FileSystemObject

与：

---

我修改我的问题，现在检查

Dim fso As FileSystemObject

Dim fso As New Scripting.FileSystemObject