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

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
end() -JQuery API filter(filter) -JQuery API filter(expression) -JQuery API find(expr) -JQuery API is(expr) -JQuery API next(expr)-JQuery API not(elems)-JQuery API not(expr)-JQuery API not(el)-JQuery API parent(expr)-JQuery API parents(expr)-JQuery API prev(expr)-JQuery API siblings(expr)-JQuery API Events事件-JQuery API bind(type,data,fn)-JQuery API blur(fn) -JQuery API blur() -JQuery API change(fn) -JQuery API click(fn)-JQuery API click()-JQuery API dblclick(fn) -JQuery API error(fn) -JQuery API focus(fn)-JQuery API focus() -JQuery API hover(over,out)-JQuery API keydown(fn) -JQuery API keypress(fn)-JQuery API keyup(fn)-JQuery API load(fn)-JQuery API mousedown(fn)-JQuery API mousemove(fn)-JQuery API 关于单击和双击的问题 请问一个关于GB要转换成日文的Shift-JIS内码的问题 请问一下这个字符串什么意思? 在ASP.NET中怎樣讀取通過用XMLHTTP Send過來的XML數據包(一個問題50) 关于IrDA在WINDOWS/NT/XP下的编程实现 一定给分啊,快点进来看看阿 ! 帮忙写个SQL语句。 静态文本框里的文字如何调整其大小? store procedure类型 数据窗口问题 编译器参数,在线等待 求sql 如何用BUTTON按钮,将一个窗体文件关闭? 非常简单的付值问题.火急,再线等待,马上送份 调用RasDia();第一次拨号成功断线后再拨就返回错误字符终止连接为何代码如下: 怎样能编写用于用ie注册邮箱、论坛账号时自动填表的软件 资源文件的问题! 一个挑战斑竹的问题!!50分 如何把压缩文件(*.rar或则*.zip)和word文档存到Acess数据库啊??? 如何可以知道访问我的网站的用户来自哪里? 关于SQL的问题 这对话框我如何去掉 asp.net 能否运行在Solaris系统下,参与者有分 c#请求援助 int a 除以 int b 取他们的余数用C#该怎么写啊?谢谢 求救!显示后台数据,在线等待!等…… jsp中的数据库问题,求教!!急 刚学数据库,弱智问题,高分赠送! 这个查询怎么写? 关于表生成文本文件遇到的事情,急 InstallShield Professional Standard Edition 6.30 英文版的下载(高分:200) 寻一男友:发展方向——>老公 我用serv-u,客户端访问为什么没有用户登陆窗口啊? 脚本验证datetime要准确点的 请问,想做出象Protel(Tango)作图效果的程序,如何下手呢? win API函数的区别(win xp 和win 2000)高难度!! 那儿有winsock.pbl 进入系统的速度变慢????在线等待 当 AllowPaging 设置为真并且选定的数据源不实现 ICollection 时,AllowCustomPaging 必须为真,并且 ID 为 DataGrid1 的 Data 怎么提高搜索速度? 如何printScreen并获得这个图片? 如何用SQL格式化一个IP地址?我得到的IP地址是一串数字,想显示为255.255.255.255那样的样子。 为什么在客户端出现Interface not support的错误? help,关于文本显示! SOS 急急急 请教几个概念? 如何打开一个用winexec打不开的可执行文件。 进入系统的速度变慢????在线等待 请大家谈谈目前比较经典软件,共享的,免费的,大公司的,个人的,国内的,国外的,不分行业等等,只要是经典都可以,请大家畅谈! 欢迎踊跃讨论!如何使得delphi编的exe或dll最小! 基于对话框的打印,打印一块区域!! 一个简单的链问题是输入一个结点请高手在助我 23.增值税一般纳税人销售货物适用13%税率的有(ACD)A.销售材料  B.销售钢材  C.销售图书  D.销售自来水 理由 每天看书的5分子1还多10页,4.5天看完这本书,问这本书一共多少页?怎么答题 一项工程甲单独干需10天,乙独干需8天,现在甲先做2天,剩下的两队合作还需几天? 甲乙合作一工程要6天,如果甲先做3天,再由乙继续做8天刚好完成.若甲独做这一工程,要多少天呜呜呜,烦死了,端午节也在写作业,好多应用题不会, 一本小说,每天看45页,第16天看完;如果每天看54页,第14天就看完了,这本小说最多几页,最少呢? 一项工程,如果单独做,甲队需8天,乙队需10天,两队合干了一段时间后,还剩下这项工程的三分之二没有完成.甲、乙两队合干了几天 一项工程,甲独做6天完成,乙独做8天完成.两人合做3天,完成这项工程的 双向自动扶梯一层到二层,两个扶梯梯级宽度都是800,三十度倾斜角度,提升高度为4200那么土建时,二层预留洞口宽度为多少,二层顶端是否要留得大点,一层基坑的大小是多少? 一项工程,甲独做6天完成,乙独做8天完成,两人合做( )天完成,所以尽量将清楚 一本小说,如果每天看45页,第十六天看完;如果每天看54页第14天看完.这本小说最多有几页?最少呢? 巍巍中山陵第9段描写了哪里的景色 一项工程,甲单独做6天完成,乙单做8天完成,两人合做多少天完成? 我读1本书第1天读了10页以后每天都比前一天多读2页第16天读28页正好读完 这本书共多少? 哪位能将《巍巍中山陵》书后习题答案告诉偶,万谢 一项工程,甲乙合做8天完成.如果先让甲独做6天,再由乙独做,完成任务时发现乙比甲多了3天,乙独做这项工程要几天完成? 有关 崇尚科学,反对邪教 的征文800到1000字.麻烦写得水平高一些吧. 巍巍中山陵 写祭堂用了什么说明顺序 急具体的空间顺序,比如说由内到外什么的,是写祭堂,不是整体写中山陵,要具体的空间顺序,急 找一篇题目为等待的作文,字数600左右,要中学生水平. 一项工程甲队独做8天完成,乙队独做10天完成,甲乙合干三天,乙队另有任务,甲队还要干几天才能干完这工程高手来解 当.时,.而当...时,.造句(《巍巍中山陵》第八段 仿写) 以舒适的早晨为题,写一篇350字左右的作文!急!一定要快!1快!有急用!!! 以"春节,我最快乐的一件事"为题,写一篇作文,字数500字左右, 小东图书本数的5分之3等于小强图书的3分之2,小东与小强图书质量比是多少 雨后的早晨(400字左右作文)《雨后的早晨》400字左右作文,急!好心人帮帮忙吧!还有,要怎么样点击才能选择满意答案呢? 我是个高中生,我写作文总是没话说,所以常因字数不够被扣分,怎样才能改善呢,还有怎样写好作文 小刚和小强看同一本书,小刚还有19页没看,小强还有14页没有看,他们俩()看的页数多. 用上‘好像’一词 写一个不是比喻句的句子怎么写呢 我作文总是写不够字数怎么办?怎么才能有话说,凑够字数?基础差我看到作文就觉得没话说.怎么才能把文章写细腻,写够字数?800字 中山陵怎么走? 用好像一词写一个不是比喻句的句子 已知圆锥的底面半径是3,母线长为6,则该圆锥侧面展开后所得扇形的圆心角为需要讲解下.. 中山陵怎么去 小明,小英和小美三人定期向李老师求教,小明每六天去一次,小英每八天去一次,小美每九天去一次.他们每多少天会同时想李老师求教?最先的再加5分 帮我点评一下这篇托福作文,看看能多少分求 各种拍砖People work because they need money to live.What are some other reasons that people work?Discuss one or more of these reasons.Use specific examples and details to support your ans 中山陵的地理位置【要简短】 有没有否定语气的比喻句?就是,有“不像”的句子是不是比喻句?比如说,桥像彩虹,这是比喻句,并且是肯定句。有本体和喻体。但是,如果变为“桥不像彩虹”本体和喻体还成不成立呢? 励志名言名句,附带一篇演讲稿 用什么去刺激蟋蟀须,让它们打架 什么句子有“如”,“像”却不是比喻句,能举例子吗,比喻句有什么特点?"如玩电脑那般激动"是不是把干某件事情的心情比作玩电脑时的心情呢? 小红看一本书,第一天看了全书的14%,第二天看了12页,还剩27页没看.这本书一共多少页? 蟋蟀吃什么?怎么看雌雄?现在养最多活几天? 为什么句子中有“像”字却不是比喻句? 小红看一本书,第一天看了全书的10%,第二天看了全书的15%.第二天比第一天多看12页,还剩多少页没有看 巍巍中山陵课文问题吕彦设计为什么能脱颖而出?为什么要介绍大平台与入口石坊垂直高度差? 一项工作甲单独做需要5天完成,乙单独做要10天完成,若甲单独做了x天后,甲乙合作y天,则一共完成了( ) 蟋蟀怎么才能打架 中山陵简介(200字以内)不要提到孙中山 一件工作,甲单独做X天可以完成,若甲、乙一起做,Y天可以完成,那么乙单独做几天可以完成 蟋蟀会因为吃的而打架吗 中山陵简介 100字 一项工程甲乙合干12天完成,乙丙合干15天完成,甲丙合干20天完成,如果甲乙丙三人合干几天完成? 有一本书,原计划每天看20页,如果每天多看5页就提前2天看完,问这本书有多少页?请不用方程式解题,并讲出过程, 看风识天气的谚语 《青鸟》读后感50字0000000000000000000000000000000000000000000000000000青鸟》讲述的是:圣诞节前夜,伐木工简陋的小屋里,男孩蒂蒂和女孩咪蒂正在眺望富人家的孩子过节.仙女装扮成老太太请他们为她 蟋蟀为什么爱打架我要做问题,请帮我! 中山陵简介 50字100以内就可以 一项工程,甲队6天完成,乙队8天完成,两对合作多少天完成工程的3分之2 ? 每天看书的5分子1还多10页,4.5天看完这本书,问这本书一共多少页? 关于梦的作文.是梦,不是梦想. 德或成“五只眼”新成员国 美德协议分口腔护理有利癌症治疗智利美女候选人 抱娃上街拉选票印度女婴家传怪病 身体多毛酷似狼孩巴塔任命临时首领 巴基斯坦高度警戒印度明日探测火星“变形”却不“金刚”英汉患病被迫宅居欧第四艘运货飞船收官罕见天文奇观“全环食”现身天宇(组图最贵钻石亮相纽约 估价超六千万美元世界关注中国改革决心 三中全会将勾画两名法国记者命丧马里 总统强烈谴责美报鼓吹钓鱼岛归日本 日本内顶外拉中美无人机干掉巴塔头目 巴怒斥其炸死和美妇人送儿子手机前“约法18章” 网古巴政府叫停私营影院 称“不是倒退”[实拍]中国新型“中华神盾舰”吊装导埃及前总统穆尔西出庭受审:从囚徒到总法两名记者在马里遇害 遗体遍布弹孔(美媒爆料日本系美监控对象 目的不仅限各国学校扎堆北京招生(图)菲律宾新总统即将上任 美国的担心靠谱菲律宾新总统即将上任 美国的担心靠谱韩商点赞中韩盐城产业园 共享经贸合作“泰国品牌中国行”进福州 助推“一带修脚刀成神器 洛阳市民刻出水浒人物一96岁日本女剪辑师岸富美子长影“寻根财经观察:美国实施碳税尚需时日应狠刹“摆设热线”背后的懒政歪风浙江侨企引智反哺助推经济人不如牛?印度缺水难民上牛棚讨生活多国科学家共同推动泛欧亚科学实验计划医生做手术时被患者家属打死多国科学家共同推动泛欧亚科学实验计划故宫博物院专家坐镇“孔孟之乡”鉴宝国际博物馆日:南宁展汉代文物及骆越文皮草行业增长放缓 北京国际皮草时装展曝库里签约品牌每年8亿报价CBA 盼湖南农民“被服刑”三年续:番禺警方启增塑剂及铜含量超标 四川退运4款品质国际报关协会同盟会议今天在沪召开5·18博物馆日 四川三星堆启动文创
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘