文件移动问题？

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