如何存储文件

Question

现在我需要将一个文件重新保存在另外的位置，新的位置以及新的文件名称我是使用CommonDialog控件来获取，假设源文件的了路径为c:\date\db1.mdb，则如何实现这个另存为的过程呢！希望高人指点，本来我是希望用VB中的FSO对象来编程实现的，但是我发现在我的VB6。0中没有像书中所说的在引用中有
Microsoft Scripting Runtime 这个引用。所以在对象浏览器中没有看到FileSystemObject这个对象就不能使用FSO编程了究竟是怎么回事啊！

Answer 1

Option ExplicitPrivate Sub Command1_Click()
Me.CommonDialog1.ShowSave
If Me.CommonDialog1.FileName = "" Then
MsgBox "请指定文件"
End If
FileCopy "c:\date\db1.mdb", Me.CommonDialog1.FileName
Kill "c:\date\db1.mdb"
End Sub

Answer 2

Kill "c:\date\db1.mdb"
是什么意思啊！是不是将原来的删除啊，还是怎么着啊！我还想保留原来的文件啊！只是想另外存储在其他位置而已！

Answer 3

如果只是复制文件
Kill "c:\date\db1.mdb"
可以不加。Kill "c:\date\db1.mdb"
是什么意思啊！是不是将原来的删除啊呵呵，你说的很对。