说三道四技术文摘-感悟人生的经典句子
说三道四 > 文档快照

VB如何将文件删除到回收站

HTML文档下载 WORD文档下载 PDF文档下载
VB如何将文件删除到回收站

VB提供的Kill语句将文件直接彻底删除,而不是放到回收站中。
那么,如何将文件删除到回收站中呢?
下面就是答案:

Option Explicit
Public Type SHFILEOPSTRUCT
hWnd As Long
wFunc As Long
pFrom As String
pTo As String
fFlags As Integer
fAnyOperationsAborted As Boolean
hNameMappings As Long
lpszProgressTitle As String
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 Sub Recycle(ByVal FileName As String)
Dim SHFileOp As SHFILEOPSTRUCT
Dim RetVal As Long
With SHFileOp
.wFunc = FO_DELETE
.pFrom = FileName
.fFlags = FOF_ALLOWUNDO
End With
'Send this poor soul to file hell
RetVal = SHFileOperation(SHFileOp)
End Sub
限制数据库记录数-Delphi资料 向数据库发送密码-Delphi资料 一个关于字符串的小问题-Delphi资料 用 QuickReport for Delphi 制作报表 用Delphi 开发数据库程序经验三则 用Delphi 实 现 不 同 数 据 库 系 统 之 间 的 数 据 转 移 用DELPHI本身的控件输出TABLE表数据 用Delphi编程访问SQLServer数据库 用delphi编写医院的复杂报表 用Delphi程序维护Paradox 数据表的索引 用Delphi的InterBase数据库开发C&amp;S应用程序 用Delphi进行数据库之间转换 用Delphi开发“瘦”单机数据库应用系统 用Delphi如何实现VFP中的Cache特性 用Delphi设计数据库应用的几点体会 在我们日常工作中,常会碰到这样一个难题:一大堆-Delphi资料 用DELPHI制作应用软件 用Dephi 程 序 维 护Paradox 数 据 表 的 索 引-Delphi资料 用Dephi程序维护Paradox数据表的索引-Delphi资料 用InstallShield制作数据库应用系统的安装程序-Delphi资料 在BDE中使用ASCII-Delphi资料 在DBMemo中查找文字-Delphi资料 在Delphi 程序中维护DBF 数据库 在Delphi 中 利 用 Tbatch 组 件 完 成 数 据 批 处 理 在Delphi 中使用计算出的字段 在Delphi3 程 序 中自 动 检 测、 建 立 数 据 库 别 名 和 表 格 在Delphi3程序中自动检测、建立数据库别名和表格 在Delphi4 BDE中配置Access数据库 在Delphi5 中修改了Delphi自带的VCL Source文件后怎样重建Delphi的库文 在DELPHI程序中动态设置ODBC数据源 在DELPHI程序中使用ADO对象存取ODBC数据库 请问谁有ActiveSkinV4.3(或者4V.2)的破解版?50分相赠~! 新手请教 用RMAN备份数据到磁带出错!!解决问题一定给分!!江湖救急啊!! 搞不明白的vc错误,气死我了,请高手指点。。。 上不了网 动态调用DLL是出现的问题,棘手中,待解决。 我要对Spreadsheet的数据进行排序,用javascript怎么写 200分求<构建Web解决方案---应用ASP.NET和ADO.NET>电子书,不是只有源码的,谢谢 用DECS连接AS/400数据库问题 GD网站大家一起随便贴 寻人启事:我有一个侄子,网名叫穿越沦陷的爱,经常跑到这个版块来玩,谁看见了他,让他来找我,急事! 请教高手!!利用二进制文件转换成文本文件进行加密,实现理论是什么? IP包过滤程序问题!!!请大虾帮忙!! sql loader里面不支持FILLER 双系统中,如何删除WIN2000?(98+2000) 实现了第一个愿望... vc和vc.net有什么区别,学了vc有必要学vc.net吗??? 急,数据库表的问题!!! 为什么在Run ActivX程序时出现问题? DLL窗体关闭问题 setfont设置Dialog字体无效,搞不明白,大侠指点 为什么我的Web应用程序项目启动不了,总是出现错误!!! 100分求教jtable问题??? 菜鸟送分问题,请哪位大侠讲讲Inte1.ResponseCode和Inte1.ResponseInfo 声音变了!怎么办啊??? 100分 请问怎么做“索引”? make求救 用ant编译pet store 时,出现问题,提示信息见内文?请帮忙。。。高分酬谢。 三个三角了 开心ing 散分 tmd,上了vsnet2003贼船了。原来vc6的都不好用了 找在linux下免费gui?? 打开窗口获取原窗口信息的问题 Cbuilder安装问题,急! HelloWorld大全[接龙] 我要写一个程序在前台不需要运行后台运行可以:就像平时邮件服务品一样在前台不需要运行,而后台是提供服务的,要怎样来实现 临时表问题 多媒体教学系统开发 jbuilder中关于类的import问题? 有关远程控制的,例如抓屏,限制功能键,限制alt+f4,等等,请去http://hedaofeng.jahee.com 如何取得IE地址栏的输入信息? 急求一段ASP与SQLserver2000处理代码! 怎么创建win32 static library并输出函数?谢谢 !!!!求排列组合的简洁算法(80分) 我要对Spreadsheet的数据进行排序,用javascript怎么写 WIN32异常求救????!!!!!! 一个有深度的问题(对信号量操作不熟者请勿进) 知道为什么会出现iocopyout_chksum吗? 谁能给我《中文ACCESS开发指导手册》?? 从网上下的读不了 请问一个小问题 关于用Preferences存取注册表的问题 参数类型的问题 谁给我推荐些比较伤感的外文歌?不一定是英语的?要比较伤感的,慢节拍的,经典电影插曲也行,只要是伤感的就行. 食品店售货员张英,李妮要把1000个话梅分开包 装.张英每次取15个装一袋,李妮每次取9个装 一袋.结果李妮比张英少装了1袋,且剩下的不 够李妮装一袋了.最后 剩下的话梅是多少个?张英装了多少 北京哪里有卖Merriam Webster’s Collegiate Dictionary的? 英语:豆腐怎么读? 豆腐用英文怎么说 Merriam-Webster`s Collegiate Dictionary的汉译名是什么1,Merriam-Webster`s Collegiate Dictionary的汉译名是韦氏大词典么?发现有的译名是韦氏大学辞典,到底是哪个?还是两个汉译名是不同的辞典译?2,Merriam-Webste “稻花香里说丰年,听取蛙声一片”主要说明什么哲学道理?时间是认识的基础还是意识活动具有主观能动性呢?为什么? 希望心痛到死 用英文怎么说 小学的课文《蓝色的树叶》我要全篇课文内容 是二年及的课文 蓝色的树叶 课文 蓝色的树叶这篇课文讲了一个什么故事 伊拉克首都发生多起汽车炸弹爆炸 至少第3届“中俄舞台艺术对话”在京举办日本首相安倍晋三检阅自卫队【高清】印度17岁少女因家人禁止其上社交网站第九届北京—东京论坛闭幕并发表《北京快讯:第九届两岸经贸文化论坛闭幕式在随笔:摩洛哥的看车人通讯:第29届“天翼掠过休斯敦”新华国际时评:以自主创新维护“数据主伊拉克首都发生多起汽车炸弹爆炸 至少国际财经一周大事回顾:第四次中欧经贸停车费原定“登顶” 16元/小时 中靠考试能拯救体育吗?中国今年起建立 小初高及大学四级联赛美欧再度制裁俄罗斯柯震东再爆姐弟恋居住证拟拓展8项社会服务功能明起小车走广深沿江高速全程多交10元“广东假币的版都出自彭大祥之手”滴滴打车和快的打车终于“分道扬镳”了舒淇“保护”休·杰克曼电信客服10000号来电是这样被冒充放开那个女孩仙路修真网游之血炼诛神战歌不灭世尊逆世记妖世间道之无名新星社的武侠世界红尘凡仙斩魇东山石窟旅游卢舍那大佛旅游万佛洞旅游牡丹园旅游达摩洞旅游少林寺武术馆旅游范文澜故居旅游大通学堂旅游听涛旅游太极湖旅游南华门旅游
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘