@@--@@在VB中怎样将一个.mdb文件复制到另一个文件夹中(即答即给分那位同志有时间的过来坐坐标

[SuperBJack]

我想用VB实现将一个.MDB文件复制到另一个文件目录下作备份.请教!

[strongfisher]

Dim SHFileOp As SHFILEOPSTRUCT
SHFileOp.wFunc = FO_COPY
SHFileOp.pFrom =App.Path & "\msDATA.mdb"
SHFileOp.pTo = 你要的目录 & "\back\msDATA.mdb"
SHFileOp.fFlags = FOF_ALLOWUNDO + FOF_NOCONFIRMMKDIR
Call SHFileOperation(SHFileOp)

[strongfisher]

Public Const FO_MOVE = &H1
Public Const FO_COPY = &H2
Public Const FO_DELETE = &H3
Public Const FOF_NOCONFIRMATION = &H10
Public Const FOF_NOCONFIRMMKDIR = &H200
Public Const FOF_ALLOWUNDO = &H40
Public Const FOF_SILENT = &H4
Public Declare Function SHFileOperation Lib "shell32.dll" Alias "SHFileOperationA" (lpFileOp As SHFILEOPSTRUCT) As Long

[windcandle]

以BINARY方式open
read
write
close

[strongfisher]

'拷贝数据库备份
FileCopy "c:\a.mdb", "d:\bak.mdb"
'恢复的时候将所有连接断开，然后拷贝回来
FileCopy "d:\bak.mdb", "c:\a.mdb"

[SuperBJack]

为什么总提示:"在end sub ,end function,只能出现注释"下面这句有问题吗?能不能详细点啊谢了!
Private Declare Function SHFileOperation Lib "shell32.dll" Alias "SHFileOperationA" (lpFileOp As SHFILEOPSTRUCT) As Long

[strongfisher]

Public Declare Function SHFileOperation Lib "shell32.dll" Alias "SHFileOperationA" (lpFileOp As SHFILEOPSTRUCT) As Long

是public

这个要放在公用模块里

[SuperBJack]

我将public 改为Private直接放入命令按钮下不成的?

[SuperBJack]

还是提示类型未定义

[strongfisher]

Public Const FO_MOVE = &H1
Public Const FO_COPY = &H2
Public Const FO_DELETE = &H3
Public Const FOF_NOCONFIRMATION = &H10
Public Const FOF_NOCONFIRMMKDIR = &H200
Public Const FOF_ALLOWUNDO = &H40
Public Const FOF_SILENT = &H4
Public Declare Function SHFileOperation Lib "shell32.dll" Alias "SHFileOperationA" (lpFileOp As SHFILEOPSTRUCT) As Long

都要放在公用模块里

[SuperBJack]

是啊!他还是提示这句
Public Declare Function SHFileOperation Lib "shell32.dll" Alias "SHFileOperationA" (lpFileOp As SHFILEOPSTRUCT) As Long
类型未定义

[windcandle]

打开API文本浏览器将“SHFILEOPSTRUCT”的异地粘贴到程序里。

[strongfisher]

Public Type SHFILEOPSTRUCT
hwnd As Long
wFunc As Long
pFrom As String
pTo As String
fFlags As Integer
fAborted As Boolean
hNameMaps As Long
sProgress As String
End Type

把这个也放进去：）

[windcandle]

我靠，这个分应该是俺的啊！555555555555555~~~~~~~~~~~~~~~~~~~~