Office中国论坛/Access中国论坛 › Access中国门户旧版 ›Access› 编程心得绝招› 实际编程 › 查看内容

用WINRAR作ACCESS备份

1970-1-1 08:00| 发布者: 佚名| 查看: 1350| 评论: 0

文章正文：
在ACCESS中用WINRAR备份时,发现不能直接备份自己,老是出错,由网友提醒,迂回做到备份自己,各位可以指导以下代码加入自己程序.

'申明
Private Declare Function CopyFile Lib "kernel32" Alias "CopyFileA" _
   (ByVal lpExistingFileName As String, ByVal lpNewFileName As String, _
   ByVal bFailIfExists As Long) As Long
Private Declare Function DeleteFile Lib "kernel32" Alias "DeleteFileA" _
   (ByVal lpFileName As String) As Long

'程序中
Dim Rarexe As String
Rarexe = GetKeyValue(HKEY_LOCAL_MACHINE, "SOFTWARE\Classes\WinRAR\shell\open\command", , REG_SZ)
Rarexe = Mid(Rarexe, 2, InStr(Rarexe, ".exe") + 2)

Dim FileString As String 'Shell指令中的字符串
CopyFile 源文件名, 中间文件名, 0  '0:可以重写
FileString = Rarexe & " A " & 压缩文件名 & " " & 中间文件名
Shell FileString, vbHide
DeleteFile 中间文件名          '删除中间文件名

收藏分享邀请

帐号		自动登录	找回密码
密码			注册

用WINRAR作ACCESS备份

最新评论

相关分类