vb怎么转移指定文件到某个指定处?回答加50

Private Sub Command1_Click()
If Dir("D:\file\1\123.txt") <> "" Then '先判断有没有该文件存在
FileCopy "D:\file\1\123.txt", "D:\file\2\123.txt" '从1文件夹里复制到2文件夹里
Kill "D:\file\1\123.txt" '再把1文件夹里的删除了实现剪切的效果
Else
MsgBox "没有找到该文件"
End If
End Sub

楼下的，name无法跨驱动器移动的。

抛砖引玉:
Sub manip_file()
'请先引用 Microsoft ScriptingRuntime
Dim fso As New FileSystemObject, txtfile, fil1, fil2
Set txtfile = fso.CreateTextFile("c:\test.txt", True)
MsgBox "写入文件"
'写入一行
txtfile.Write ("This is a test")
'关闭写入的文件
txtfile.Close
MsgBox "创建文件夹c:\temp,移动文件到c:\temp", , "移动文件"
'获得根目录下的一个文件句柄
Set fil1 = fso.GetFile("c:\test.txt")
fso.Crea