请近，在线等待！！，先谢了！

Question

请问一下，我有一个数据库JGDATA.MDB在C盘的安装目录里，但是我要把他复制到D盘程序怎么写啊？？
     谢谢！！

Answer 1

Dim objFCopy As New FileSystemObject
   objFCopy.CopyFile strCopyN, strCopyedP, True
strCopyN:原文件路径及文件名，如："C;\11.mdb"
strCopyedP:目的文件路径及文件名

Answer 2

Dim objFCopy As New FileSystemObject
   objFCopy.CopyFile "c:\JGDATA.MDB","d:\JGDATA.MDB", True
refererce Microsoft Scripting Runtime

Answer 3

FileCopy 源文件, 目标文件

Answer 4

1、用filecopy的方法
2、调用api函数,用SHFileOperation的方法

Answer 5

兄弟门。我用的是FILECOPY  但是程序报错，我的程序如下：
    Private Function sjkbf()   ''''数据库备份
   On Error GoTo sjk
   Dim source, DestinationFile
   source = App.Path & "\" & "JGDATA.MDB"
   
   DestinationFile = App.Path & "\" & "sjk"
 If Dir(source) = "" Then
  
  MsgBox "所要备份的数据库不存在", vbInformation, "熊猫提示:"
  Else
    FileCopy source, DestinationFile               ‘’‘错误处
  MsgBox "备份数据库成功！", vbInformation, "熊猫软件"
    
  End If
  
sjk:
   MsgBox "备份数据库出错", vbInformation, "熊猫软件"
    
       
End Function      在程序运行到   FILECOPY  的时候程序跳到  SJK：   我现在的情况如下；
    我在D：盘里有一个文件夹“数据检测与分离系统 ”里面有一个数据库JGDATA.MDB
 还有 一个文件夹“SJK”，我现在要把JGDATA。MDB数据库复制到文件夹“SJK”