主题:如何在修改完 文件后 另存为 别的文件
xinying2005
[专家分:0] 发布于 2008-07-07 14:28:00
当程序一开始,我将 aa.mdb文件打开,利用程序 对其修改
当关闭窗体时,我想 备份一份这个文件。于是利用commondialog控件
dim destination as sring
DIM SOURCE AS STRING
commondialog1.showsave
destination =commondialog.name
source= app.path & "/setting+value.mdb"
filecopy source,destination
但是 当程序运行到此时 提示 “实时错误70,拒绝的权限”
请问该如何解决
回复列表 (共3个回复)
沙发
shifta [专家分:380] 发布于 2008-07-07 19:20:00
因为你要copy的文件是打开的,所以会产生以上错误。
MSDN对FileCopy语句的解释是这样的:
===================================
FileCopy 语句
复制一个文件。
语法
FileCopy source, destination
FileCopy 语句的语法含有以下这些命名参数:
部分 描述
source 必要参数。字符串表达式,用来表示要被复制的文件名。source 可以包含目录或文件夹、以及驱动器。
destination 必要参数。字符串表达式,用来指定要复制的目地文件名。destination 可以包含目录或文件夹、以及驱动器。
说明
[b]如果想要对一个已打开的文件使用 FileCopy 语句,则会产生错误。[/b]
===================================
如果要避免这个错误,建议使用FSO对象
在VB“工程”菜单“引用”对话框选择“Microsoft Scripting Runtime”项,然后使用如下代码:
Dim FSO As New FileSystemObject
FSO.CopyFile "源文件路径","目的地文件路径"
板凳
tanchuhan [专家分:15140] 发布于 2008-07-08 01:01:00
[quote]source= app.path & "/setting+value.mdb"[/quote]
source= app.path & "\setting+value.mdb"
3 楼
jianghongbo1 [专家分:410] 发布于 2008-07-08 08:02:00
FileCopy 对ACCESSE数据库备份用起作用,对sql数据库不起作用,对打开的文件将产生错误,使用时要关闭文件,可以单另建一个窗体搞一个程序,打包时加入启动项,这样退出时,点击启动项备份。
我来回复