看一下,兄弟门

Question

各位高手,请教一个问题:我本人做了一 个软件用VB开发的后台数据库是ACCESS命名 :(JGDATA)安装目录在PROGRMA FILE 里        如果我在D盘里有JGDATA空数据库我要替换PROGRMA FILE 里的JGDATA   可以用复制,粘贴的程序吗??
              请问一下这段程序怎么写啊?//

Answer 1

我还是不大看得明白你的意思,是不是要将D盘的空数据库覆盖PROGRMA FILE下的数据库?如果是,就先删除PROGRMA FILE 下的数据库,再拷贝不久好了吗?
    Dim fso As FileSystemObject
    
    Set fso = New FileSystemObject
    
    If (fso.FileExists("C:\PROGRMA FILE\JGDATA.mdb")) Then
        fso.DeleteFile "C:\PROGRMA FILE\JGDATA.mdb"
    End If
    
    If (fso.FileExists("D:\JGDATA.mdb")) Then
        fso.CopyFile "C:\PROGRMA FILE\JGDATA.mdb", "D:\JGDATA.mdb"
    End If

Answer 2

CopyFile "C:\PROGRMA FILE\JGDATA.mdb", "D:\JGDATA.mdb"

Answer 3

CopyFile方法
复制一个或多个文件.如果destination具有只读属性设置,不论overwrite值如何,CopyFile都将失败语法：
object.CopyFilesource,destination[,overwrite]其中source参数是必需的,指明一个或多个要复制文件名,可包括通配符.Destination参数是必需的,指明source中的一个或多个文件要被复制到的目标,不允许有通配符.Overwrite参数       是可选的Boolean值,表示对已存在的文件是否覆盖.如果为True(缺省值),文件将被覆盖.
应用于:File System Object对象