平台通用附件窗体中实现“替换”,“删除”时删除掉原文件至回收站的方法
时 间:2015-11-23 10:24:43
作 者:小英 ID:23698 城市:河池
摘 要:我不知道大家平时在用平台时是否发现“替换”或“删除”附件时候,原来的文件依然留在文件夹中,这样造成文件多余,站用空间资源;为此我想出这个办法来处理,所以分享了
正 文:
Private Sub btnDelete_Enter()
Dim oldname As String
oldname = ""
oldname = Me.txtAttachmentPath & Me.txtAttachmentName
' MsgBox oldname
If MsgBox("您确认要删除这个文件吗? 删除的文件在您电脑的回收站,可以恢复!!", vbOKCancel + vbInformation, "提示!!!!") = vbOK Then
'文件夹路径及文件名称你可自己更改,删除的文件至回收站,需要恢复文件的到回收站还原即可
'如果文件已经删除了,再次删除则不会出现错误提示而是退出
If Dir(oldname) = "" Then
Exit Sub
End If
DeleteFiles oldname
MsgBox "文件已删除了", vbInformation, "提示:"
If oldname = Null Then
End If
End If
End Sub
Private Sub btnReplace_Enter()
Dim oldname As String
oldname = ""
oldname = Me.txtAttachmentPath & Me.txtAttachmentName
' MsgBox oldname
If MsgBox("您确认要替换这个文件吗? 被替换的文件在您电脑的回收站,可以恢复!!", vbOKCancel + vbInformation, "提示!!!!") = vbOK Then
'文件夹路径及文件名称你可自己更改,删除的文件至回收站,需要恢复文件的到回收站还原即可
'如果文件已经删除了,再次删除则不会出现错误提示而是退出
If Dir(oldname) = "" Then
Exit Sub
End If
DeleteFiles oldname
MsgBox "该文件将被删除", vbInformation, "提示:"
If oldname = Null Then
End If
End If
End Sub
'声明
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
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精华集锦资料.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)
- 【Access删除查询】删除数字最...(04.12)