1,451
社区成员
发帖
与我相关
我的任务
分享如何存储文件
现在我需要将一个文件重新保存在另外的位置，新的位置以及新的文件名称我是使用CommonDialog控件来获取，假设源文件的了路径为c:\date\db1.mdb，则如何实现这个另存为的过程呢！希望高人指点，本来我是希望用VB中的FSO对象来编程实现的，但是我发现在我的VB6。0中没有像书中所说的在引用中有
Microsoft Scripting Runtime 这个引用。所以在对象浏览器中没有看到FileSystemObject这个对象就不能使用FSO编程了究竟是怎么回事啊！
Microsoft Scripting Runtime 这个引用。所以在对象浏览器中没有看到FileSystemObject这个对象就不能使用FSO编程了究竟是怎么回事啊！
...全文
请发表友善的回复…
发表回复
xinshou1979330 2003-05-15
- 打赏
- 举报
多看看些文件操作的例子就好了
rainstormmaster 2003-05-15
- 打赏
- 举报
如果只是复制文件
Kill "c:\date\db1.mdb"
可以不加。
Kill "c:\date\db1.mdb"
是什么意思啊！是不是将原来的删除啊
呵呵，你说的很对。
Kill "c:\date\db1.mdb"
可以不加。
Kill "c:\date\db1.mdb"
是什么意思啊！是不是将原来的删除啊
呵呵，你说的很对。
ww521 2003-05-14
- 打赏
- 举报
Kill "c:\date\db1.mdb"
是什么意思啊！是不是将原来的删除啊，还是怎么着啊！我还想保留原来的文件啊！只是想另外存储在其他位置而已！
是什么意思啊！是不是将原来的删除啊，还是怎么着啊！我还想保留原来的文件啊！只是想另外存储在其他位置而已！
rainstormmaster 2003-05-14
- 打赏
- 举报
上面的没加错误处理，你自己添加吧
rainstormmaster 2003-05-14
- 打赏
- 举报
Option Explicit
Private 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
Private 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
