文件移动问题？

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四次以查看它是否存在（并创造它仅在第一次）。手动创建一次效率更高。