请近，在线等待！！，先谢了！
请问一下，我有一个数据库JGDATA.MDB在C盘的安装目录里，但是我要把他复制到D盘程序怎么写啊？？
谢谢！！
问题点数：0、回复次数：6Top
1 楼Leftie（左手,为人民币服务）回复于 2003-08-01 08:49:50 得分 0
用filecopyTop
2 楼begintoday（muyu）回复于 2003-08-01 08:59:31 得分 0
Dim objFCopy As New FileSystemObject
objFCopy.CopyFile strCopyN, strCopyedP, True
strCopyN:原文件路径及文件名，如："C;\11.mdb"
strCopyedP:目的文件路径及文件名
Top
3 楼begintoday（muyu）回复于 2003-08-01 09:11:04 得分 0
Dim objFCopy As New FileSystemObject
objFCopy.CopyFile "c:\JGDATA.MDB","d:\JGDATA.MDB", True
refererce Microsoft Scripting RuntimeTop
4 楼alicky（周松）回复于 2003-08-01 09:16:22 得分 0
FileCopy 源文件, 目标文件Top
5 楼zmrok（朱朱）回复于 2003-08-01 09:31:36 得分 0
1、用filecopy的方法
2、调用api函数,用SHFileOperation的方法
Top
6 楼yipanchen（xiongmao）回复于 2003-08-01 09:39:16 得分 0
兄弟门。我用的是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”Top
