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

恢复回收站中的文件 -VB资料

HTML文档下载 WORD文档下载 PDF文档下载
恢复回收站中的文件 -VB资料
在VB中恢复删除的文件

  在WIN95下删除文件时,被删文件将自动放入回收站以备恢复时使用。在VB中有一个KILL函数可用来删除文件,但用此函数删除的文件将不会被放入回收站,想恢复时可能就比较困难。笔者经查阅API函数,发现可用SHFileOperation函数来实现这一功能,下面是一个例子,供在程序设计中有需要此功能的读者参考。
  1 此函数需要用到SHFILEOPSTRUCT结构,故首先将此结构和函数在总体声明处声明如下:
  Option Explicit
  rivate 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

  Private Declare Function SHFileOperation Lib "shell32.dll" Alias _
"SHFileOperationA" (lpFileOp As SHFILEOPSTRUCT) As Long

  '两个重要的参数值设定
   Private Const FO_DELETE = &H3 '删除文件
   Private Const FOF_ALLOWUNDO = &H40 '允许恢复

  2 在窗体中加一命令按钮Command1,双击之,写如下代码:

  '此处用来删除C:\TMP.TXT文件。
  Private Sub Command1_Click()
  Dim FileOperation As SHFILEOPSTRUCT
  Dim lReturn As Long
  Dim sTempFileName As String
   sTempFileName="c:\tmp.txt"
   With FileOperation
   .wFunc = FO_DELETE
   .pFrom = sTempFileName
   .fFlags = FOF_ALLOWUNDO
   End With
   lReturn = SHFileOperation(FileOperation)
  End Sub

  3 运行此程序,单击命令按钮,将提示是否将TMP文件放入回收站,选择“是”,然后可打开回收站看是否有此文件。

  程序运行环境:中文WIN95、VB 4.0企业版。
【CTO俱乐部走进雅虎北京全球研发中心】活动图文实录 病毒式传播到商业价值,Docker开创以开发者为主导的商业模式 一周消息树: Windows 9系统截图大量曝光,一起来看看它长什么样! 腾讯李朝晖:不移动非互联,投资关注四大领域 【问底】Yao Yu:谈Twitter的百TB级Redis缓存实践 “OKCoin与你·北京一夜”:共商比特币可持续繁荣之道 苹果再发力:推Apple Pay,或将引发新一轮支付变革 CausalImpact,谷歌开源的R时域因果关系分析工具 腾讯云总裁陈磊:互联网和传统企业互联网化是主线 不得不看,苹果Pay技术大起底! 详解Apple Pay:一大波iOS原生应用正在逼近! 高性能微信公众平台开发 【先锋】事务、高性能,王涛谈打造超越MongoDB的NoSQL 浅谈互联网数据中心海量运营之道 一篇文章读懂开源web引擎Crosswalk Facebook创建新开源组织TODO,Google、Twitter等继续捧场 微软明日将启动第二轮裁员 涉及所有的事业部 IBM推出Watson Analytics 将人机对话带进企业决策 参与2014中国移动开发者大调查 MDCC门票等你拿 手游开发经验谈:付费体系决定游戏收成好与坏? 惠普推出全新ProLiant Gen9服务器 腾讯安全出杀手锏 搭建全国最大Wi-Fi开放平台帮助网友免费蹭网 云与数据安全实践尽在ISC 2014(免费门票) 开源的对决,MapR将Apache Drill引入企业应用 令程序员费解的10个语言特性 走进雅虎北京全球研发中心:五年光阴缔造雅虎全球创新引擎 超强集成游戏编辑器!开源跨平台引擎Wave 求别再侵犯儿童隐私!FTC狠罚Yelp和TinyCo 华为应用市场助力开发者 软硬结合造就强大生态系统 【CTO俱乐部看板研修班北京站现场速递】看板方法:渐进变革的过程 《近匠》不背单词,用“沉浸”征服英语学习 斑竹!!!!!!!!!!!!!!!! 关于IE浏览 请问vb如何访问foxpro 6.0的数据库,最好有源程序,谢谢. he_cti@163.net 算了,散分 我散,我散,我散散散 散3 发分!!!! 发分!!!!! 发分!!!!!!!! 发分!!!!!!!!!!!! 发分!!!!!!!!!!!!!!!!!!! 请问如何去掉测试版软件的“购买”提示框???急急急急!!! 有关获取HTML中Frames的问题? 给分!!!!!啊 给分!!!!!啊!! 给分!!!!!啊!!!!!! 给分!!!!!啊!!!!!!!!!!!!! 给啊!!!!!!!!!!!!! 不是俺蓄意谋两位帮主的反,实在是 ... APPLET连接数据库。。。(我已经每粉了) 千分散尽不复来!!! 千分散尽不复来!!!! 千分散尽不复来!!!!! 千分散尽不复来!! 千分散尽不复来!!!!!!!! 千分散尽不复来!!!!!!!!! 千分散尽不复来!!!!!!!!!!!!! 用分把灌水乐园咽死!!!!! 千分散尽不复来!!!!!!!!!!!!!!!!! 千分散尽不复来!!!!!!!!!!!!!!!!!! 千分散尽不复来!!!!!!!!!!!!!!!!!!! 千分散尽不复来!!!!!!!!!!!!!!!!!!!!! 千分散尽不复来~ 千分散尽不复来~! 请教数据窗口的问题 千分散尽不复来? 千分散尽不复来?! 有LVS_OWNDATA属性的CListCtrl 加图标的问题,25分 在做会员注册时,在添加新数据页,程序一运行就在RS.updata出错,为什么(原程序) 高手请你回答我啦!!!! 我要回家了,第一个给300 哪有msproxy下载????? 请问要怎么样才能在自己写的程序运行时让用户无法使用开始菜单? jdbc的版本 发分!!!!!!!!! 对于初学者,应该学些什么样的数据库? Java的优点 化功大法第一章--散分。 吸星大发第一章--散分 i need help 葵花宝典第一章--散分 x分之0.125等于4分之1比百分之80要过程 一个数的百分之60是120,这个数是多少 有10-80八个数,把它们分别入两个大圆上的五个圆圈内,使五个数的和为200,应该怎么填 A加A加B加B得于70,A加B等于多少 一个工人要加工120个零件,已经加工了百分之八十,还要加工多少个 地球表面约70%被海洋覆盖,人类为什么还缺水?请说出三个理由. 在三角形ABC中,角A=35°,角B=65°,则角C等于多少? 一个数的百分之60是120,这个数的10分之3是多少? 地球表面约百分之七十被海洋覆盖 人类为什么还缺水 A,B是自然数,A加B等于35,那么A乘B最大是多少 4.5乘80%等于多少 地球严重缺水的原因是什么 a+a+b+b=70 a+b等于几 3+3乘5等于 地球上有4/5的面积是海洋,那为什么还一直说缺水呢?我知道海洋是不能喝的,可是现在科技这么发达,就没有机器可以过滤这些海水吗?那样的话不就是不存在缺水问题了? a=b,a和b都不等于0,a与b成什么比例 3乘5等于几 为什么地球会缺水地区降水降是否和蒸发量有关?我们日常用掉的水流入江河,经过蒸发后下雨水流入地表,那为什么还会缺水?水循环中哪里丢失了淡水?寻求专业大虾我们提倡节约用水是节约 80分制的60和70相当于100分制的多少? 1-三分之二-九分之二-二十七分之二-八十一分之二-二百四十三分之二-七百二十九分之二 简算 80万年后地球会怎样 70人相当于80人的几分之几?谁知道啊 三分之一,负九分之二,二十七分之三,负八十一分之四,( ),( )按规律括号里填什么? 最近有什么大事件```急用```80分``越新越重大的越好..最好好最分析.. 1200乘以百分之108.8等于多少 三分之二加九份之二家二十七分之二加八十一分之二加二百四十三分之二用简便方法计算 100万年以后地球是什么样子?人穿着 家用电器 军队 科技等等是什么样子的 38乘以1200等于多少 九分之二除与27分之八等于多少 80-90年代中发生的大事件! 多少的百分之八十是六十 (1又三分之二+九分之八-1二十七分之二)×27 找一部外星人入侵地球的科幻电影在海上外星人发射了两个想轮子一样的东西、撞坏了高架桥 80增加到90,增加了百分之多少 九分之二加二十七分之四等于几? 美国外星人入侵地球的电影貌似就是外星人入侵地球,外星机器长着三只脚,非常高大,他们所到之处血染江河,将人绞成血丝,供外星人食用,他们的武器,飞船有防御系统,任何战机,坦克,大炮,甚 一百分之八十和百分之八十有什么不同和相同? 方是多少?三分之一+九分之二+二十七分之四+八十一分之八+三的n次方分之二的n-1次方等于多少? 外星人入侵地球的科幻片,最后通过鲸鱼和外星人对话挽救了地球的是哪部影片外星人的宇宙飞船就象一截粗木头这个影片我看过,科学家发现外星人对鲸鱼的叫声很亲切,知道鲸鱼能和外星人 1.200吨相当于320吨的百分之几 2.60千米比80千米少百分之几 若两百四十三分之三十二的n次方除以九分之四的n次方等于八分之二十七,求n的值 求美国外星人入侵地球以前看过的,很多飞碟入侵地球,外星人象八爪鱼似的,美国很久以前还抓到过,一直研究,在最后有个老头开飞机打飞碟没弹药了,直接飞进飞碟下边同归于尽了,请问这个片 0.8%等于一百分之几?80.8%等于百分之几? X乘以X等于40 ---------------------X=? 氯化钠在海水盐类物质中的比例?60%?70%?80%?90? 一件上衣原价120元,换季打折时降到80元,比原价降低了百分之几?相当于打了几折? 60乘以(x减1)等于40乘以(x加1)怎么做 为什么海水中的盐类主要是氯化钠?海水盐分组成表 盐 类 克 / 升 占盐类的 % 氯化钠 27.213 77.75 氯化镁 3.807 10.87 硫酸镁 1.658 4.73 硫酸钙 1.26 3.6 硫酸钾 0.863 2.50 碳酸钙 0.123 0.30 溴化镁 0.076 0.20 150000秒等于几个小时怎么计算的? 数学题:一件上衣原价240元,换季打折降到了80元,这件上衣的售价比原价降低了百分之几?要过程!在线等再问一个:某校四、五、六年级共有18个班,平均每班有48人,三个年级的人数比是4:2 多少?乘以百分之四十等于 0.125 8000小时相当于多少天? 一件上衣原价120元,换季打折时降到8O元,比原价降低了百分之几?相当于打了几折? 把100,200,300,...,700,800这八个数,分别填入小圆圈里,使每个大圈上五个数的和是2100.一共八个小圆圈,五个小圆圈用绳子连在一起是一个大圆圈,两个大圆圈连在一起,有共同的两个小圆圈.不知道说 337218秒等于多少小时多少分 ,怎么算的啊 一件上衣原价80元,换季打折时降到60元,这件上衣的价格比原来降了百分之几? 把10.20.30.40.50.60.70.80这八位数填入圆圈内,使每个大圆上的五个数的和是200有两组,每组有五个圆,其中有两个圆是套在一起共用的 多少比16等于15比多少等于多少比80等于百分之125 一件上衣原价240元,换季打折降到了80元,这件上衣的售价比原价降低了百分之几? 把10到80这八个数填入圆圈内,使每个大圆的五个数的和是200 图是一个3个圆的和一个5个圆的合在一起
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn