回 帖 发 新 帖 刷新版面

主题:如何在修改完 文件后 另存为 别的文件

当程序一开始,我将 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个回复)

沙发


因为你要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 "源文件路径","目的地文件路径" 

板凳

[quote]source= app.path & "/setting+value.mdb"[/quote]
source= app.path & "\setting+value.mdb"

3 楼

FileCopy 对ACCESSE数据库备份用起作用,对sql数据库不起作用,对打开的文件将产生错误,使用时要关闭文件,可以单另建一个窗体搞一个程序,打包时加入启动项,这样退出时,点击启动项备份。

我来回复

您尚未登录,请登录后再回复。点此登录或注册