文件移动问题？

Question

使用VB6

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

代码。

Dim fso As FileSystemObject
fso.MoveFile (txtsourcedatabasefile & "\" & "1.txt"), App.Path & "\Uploaded\"

txtsourcedatabasefile =“C：”

上面的代码不起作用，它将错误显示为对象变量或未设置块变量。

如何修改我的代码。

需要VB6代码帮助

Answer 1

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

Dim fso As FileSystemObject

使用：

Dim fso As New Scripting.FileSystemObject

Answer 2

只是几个问题：

1. fso设置为什么？
2. 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四次以查看它是否存在（并且仅在第一次创建它）。手动创建一次效率更高。