VBA删除文件至回收站\用access删除文件至回收站
时 间:2011-09-06 00:00:00
作 者:羽扇子君 ID:15117 城市:铁岭
摘 要:删除文件至回收站
正 文:
昨天看到网友提问,说VBA中的Kill语句,会直接删除文件。想得到一个可删除至回收站的办法。办法是有,但这是需要API调用的。在标准模块中写下以下代码:
'声明
Option Compare Database
Option Explicit
Public Type SHFILEOPSTRUCT
hwnd As Long
wFunc As Long
pFrom As String
pTo As String
fFlags As Integer
fAnyOperationsAborted As Long
hNameMappings As Long
lpszProgressTitle As Long
End Type
Public Declare Function SHFileOperation Lib "shell32.dll" Alias "SHFileOperationA" (lpFileOp As SHFILEOPSTRUCT) As Long
Public Const FO_Delete = &H3
Public Const FOF_ALLOWUNDO = &H40
Public Const HWND_DESKTOP = 0
Public Const NOCONFIRMATION = &H10 '不提示
'函数定义
Function DeleteFiles(Path As String) '定义删除文件函数
Dim Shop As SHFILEOPSTRUCT
With Shop
.hwnd = HWND_DESKTOP
.pTo = ""
.wFunc = FO_Delete
.pFrom = Path + Chr(0)
.fFlags = FOF_ALLOWUNDO + NOCONFIRMATION
End With
SHFileOperation Shop
End Function
'以上是定义内容,之后可以在任意过程中调用,示例如下:
Public Sub aaaa() '调用
DeleteFiles "E:\工作资料\3年经济指标.doc"
End Sub
若要将文件直接删除,即删除的干干净净(不可恢复),请参考下面示例.
相关文章:
Access软件网官方交流QQ群 (群号:483923997) Access源码网店
常见问答:
技术分类:
源码示例
- 【源码QQ群号19834647...(12.17)
- 【Access窗体导出PDF】...(04.08)
- 【Access窗体导出PDF】...(04.07)
- Access两种方式实现即时更...(03.01)
- Access隐藏与显示lacc...(01.12)
- 【Access高效办公】将每个...(12.23)
- Access21点游戏源代码(12.13)
- 【Access窗体导出Exce...(11.15)
- 【Access开发】Acces...(11.14)
- 通过Access宏录入数据到选...(11.10)
学习心得
最新文章
- Access日期格式的数据导出Ex...(04.28)
- ACCESS精华集锦资料.CHM(04.25)
- Access VBA语句If Me...(04.24)
- 【Access修改记录示例】编辑选...(04.22)
- 【Access表名称命名建议】将A...(04.20)
- Access学习笔记--用Acce...(04.19)
- 【Access重复项查询示例】将A...(04.17)
- Access快速开发平台企业版--...(04.16)
- 【Access模块示例】通过模块代...(04.15)
- Access查询里面分组合计功能添...(04.13)