| 用WINRAR作ACCESS备份 |
|
| 作者：佚名 文章来源：网络 点击数： 本日：{$DayHits} 更新时间：2006-11-22 22:42:21 |
文章正文：
在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 中间文件名 '删除中间文件名
|
| 文章录入：tm 责任编辑：tm |
|
上一篇文章： 实现查询功能（DAO）
下一篇文章： 在服务器或客户端用ADO复制一个表 |
| 【字体：小 大】【发表评论】【加入收藏】【告诉好友】【打印此文】【关闭窗口】 |
用户登录 
新用户注册 
网友评论：（只显示最新10条。评论内容只代表网友观点，与本站立场无关！）
