VBA删除文件至回收站\用access删除文件至回收站-羽扇子君
Access软件网QQ交流学习群(群号码198465573),欢迎您的加入!
首页 >技术文章> Access数据库-模块/函数/VBA


VBA删除文件至回收站\用access删除文件至回收站

发表时间:2011/9/6 评论(2) 浏览(5908)  评论 | 加入收藏 | 复制
   
摘 要:删除文件至回收站
正 文:

昨天看到网友提问,说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群(群号:198465573)
 
 相关文章
[分享]程序自杀演示\access删除文件示例  【andymark  2009/10/8】
彻底删除文件夹代码  【金宇  2012/5/9】
【Access源码示例】删除任意格式文件及文件夹的示例,kill函...  【麥田  2012/11/8】
 
 访客评论
2011/9/6麥田
管用

2011/9/6杜超
不错

总记录:2篇  页次:1/1 9 1 :
 
 发表评论
评论内容 (必填)

常见问答
技术分类
相关资源
文章搜索
关于作者

羽扇子君

文章分类

文章存档

友情链接