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

恢复回收站中的文件 -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企业版。
“中国手机游戏四月流水榜”出炉 超半数基于Cocos2d-x引擎 为移动而设计之信息架构篇 难逃厄运:Zynga将关闭Draw Something母公司OMGPOP 直接拿来用!最火的iOS开源项目(一) 是时候抛弃Eclipse转向IntelliJ了 Arrow:轻量级的Python时间日期库 编程语言API,你最青睐哪一款? 推动新输入方式发展:英特尔为感知计算设1亿美元基金 AWS到底有多大?目前看来有158000台服务器 C语言实现树的动态查找 第五届中国云计算大会于北京隆重举行 改变企业移动化:新Google地图API支持用户定制 诺基亚旗舰手机EOS真机图曝光 配备“巨型”摄像头 走进豆瓣:豆瓣的技术架构与团队文化分享 加速Web开发的10款HTML5工具 微软式微?AMD、英特尔等开始疏远Windows 语音技术现状:四千万突破语音产业的技术壁垒? 万维网联盟W3C推荐Web性能API 微软郑子颖:Windows Azure如何支持开源系统和软件? EMC 叶成辉:软件定义数据中心实现统一、开放的管理 百度云主任架构师 侯震宇:云终端开启数字生活 中国工程院院士 倪光南:中国云计算在全世界份额远超3% 信息图:未来的企业移动培训应用与技术 “2013年度中国优秀开源项目征集”活动最后三天 为什么开发者倾向于使用杂乱无章的免费工具 EMC合作伙伴销售经理杜术清:实现云的三种途径 开发者想走向海外:你融入老外的圈子了吗? 前微软工程师:美国监控和直接访问服务器?这不太可能 代码、TDD速查表 如何选择前端架构:服务器端HTML vs. JS部件 vs.单页Web应用 世界上最高深的Android特洛伊病毒 如何分别取得字符串中空格前和空格后的数据呢?如‘dfds df fds'分为dfds df fds. 谁知道MSWord的文件格式? 怎样给自定义函数设置多个参数项? 在URL地址栏中传递字符串参数遇到的一个问题??? 如何在繁體下打開簡體文件名的文件?要求不能用改名的辦法 插入数据到数据库! 高手关注--------送分-----------急急急! 在ASP中如何编程建立索引服务的编录及目录? 在web server application把MEMO字段中带格式(RTF)的内容转换成纯文本? 请问在身份验证中,能否有两个login.aspx??? 急~那篇给vb控件打包文件添加数字签名以便浏览器浏览的那篇文章在哪里? 用vb如何实现模拟雷达界面??欢迎赐教! 如何用CSS控制INPUT的输入外观不是立体的,而看起来是平板的样子,只有一个边线? 用户注册的问题,密码总验证不对,能不能看看错在哪里? 如何使文本框只显示下面的边框? xsl求助~~~ 怎么将int转为CString 有的论坛采用从数据库得到帖子,有的使用shtml,有的使用xml,孰优???还有其他吗? 100分==在JSP中打开word文件的实例 紧急在线等一个很简单的问题 DTPicker 怎样和数据库绑定? 如何动态改变VB报表中Section中的一个与数据环境绑定的rptTextBox的颜色!(100分求教) datediff()这个函数怎么用哪位高手可否给小弟讲解一下急用在线等 和女友分手了,痛苦! 谁有支持中文的带身份验证和邮件群发的ASP.NET邮件组件? 关于多个表通过相同的字段级联的问题,进来看看,一定给分! windowd server 2003许可证问题 谁有支持中文的带身份验证和邮件群发的ASP.NET邮件组件? 求合作伙伴——推广抗非典病毒的消毒剂!!! 在表分区中,按某个varchar2的字段的值和范围如何分呢 我又來了,不僅你們煩,我更煩. 服务器端与客户端的问题 服务器端与客户端的问题 最后的问题,谢谢帮我看看 发现MS WINDOWS版的C标准库一个在BUG!!!!! 在用VFP操作EXCEL时出现无法用字段内容填充单元格问题,请各位帮忙看看. 算法 救命! 有没有rmi的好例程,一用就灵,急 fast report 和 qreport 到底应该用哪一个???(来者有分!!) 关于“数据结构书”的回应——版主莫删 如何进入另一个对话框 在一字符串中怎样取出某一个字符出现的次数. 急! infopower 2000、 3000、4000 Password?? 自定下载的问题,请教高手 如何屏蔽播放.wav文件但找不到相应.wav文件时发出的默认声音? 如何打开另一个对话框 政治因素对我国军事专家的困扰[ZT] if ((btime==null)&&(etime==null )) 请教 一位女同事辭職,一位男同事說跟我有關,鬱悶中... 设集合P={x|y=x^2},集合Q={(x,y )|y=x^2},则P,Q的关系是 邻角相等的四边形是平行四边形吗?能做判定定理吗 今适有知而斯之的意思? 如图:在三角形ABC中,AB=AC,BD垂直AC于D,CE垂直AB于E,CE与BD相交于G,GH垂直BC于H,求证:BH=CH 叽叽的,呱呱的,嗡嗡的等,算不算AAB式词语?为什么?叽叽的算不算两个词?(叽叽是一个,的是一个。) 一直忧虑科学家预言的小行星撞击地球,怎么都走不出来,怎么办?我一直忧虑科学家预言的小行星撞击地球,怎么都走不出来.有七八年的了,别笑话我,我真的就是怎么都不出.05年的一天在家看电 集合P={x|y= √x-1 },集合Q={y|y= √x-1 },则P与Q的关系是( )集合P={x|y= √x-1 },集合Q={y|y= √x-1 },则P与Q的关系是(  )答案是p⊆Q且p≠Q(真子集符号打不出来)怎么做的 学生扎辫子的方法,早上起来要自己扎的,好看一点的, 求问青蛙的什么地方能振动发声《物理》 在△ABC中,AB=AC,BD⊥AC于D,CE⊥AB于E,CE与BD相交于G,GH⊥BC于H,试说明BH=CH 平行四边形的对角相等吗? 青蛙靠哪里振动 已知f(x)=x^2+︱x-a︱+1 (1)判断f(x)的奇偶性 (2)求f(x)的最小值 已知四边形一组对角相等,证明这个四边形是平行四边形 青蛙如何发声?它的叫声洪亮的原因? 设fx=│2-x²│若0小于a小于b且f(a)=f(b)则ab的取值范围是 若函数y=x^2-4px-2的图像过点A(tanα,1)及B(tanβ,1),求sin2(α+β)的值2p/(1+p^2) 青蛙是怎样发声的``青蛙``蜜蜂``蟋蟀``蝉(知了)是怎样发声的`` 设f(x)=2√2x-x²,若0 半径为5的圆O内有一点P,且OP=4则过点P的最短弦长为( ),最长弦长为( ) 观此可以知画理矣 理的意思 重庆和上海在气候方面的相同点和地形方面的不同点 一组对边相等,一组对角相等的四边形____(填能或不能)判定为平行四边形.(求证明过程 ) 非知之难,行之为难;非行之难,终之斯难.不要典故,只要意思! 地球 科学定理中地球包不包括地球的大气层;土星包不包括土星环 上海的地形 已知:tanα=3/4,tanβ=12/13且都是锐角,求α+β. 若函数y=a^x+b-1(a>0且a不等于1)的图像经过第二三象限,则a.b一定满足什么 上海是什么地形 四边形一组对角相等一组对边平行为什么不能判定平行四边形两个三角形AAS啊?为什么不是判定定理?求反例?那为什么不是判定定理啊?不能直接判定? 函数y=kx+b的图像经过第一、二象限,则b[、=、小于或等于0】 上海地形从辛庄 到 淮海路 长乐路141号向明中学1号楼106室(近瑞金路)大概多长时间?做什么车? 为什么在判定平行四边形中,不能用对角相等直接判定?是两组对角都平行 已知集合A={p|x^2+2(p-1)x+1=0,x∈R},求集合B={y|y=2x-1,x∈A} 重庆的地形作文需要, 已知三角形ABC为等边三角形,O为三角形内一点,AO=根号5,BO=根号3,CO=根号2,求角BOC. 已知M={y|y=x^2-1,x∈R},P={x|x=|a|-1,a∈R},则集合M与P的关系是? 平面外一点到平面内一直角定点的距离是23cm,这点到两直角边的距离都是17cm,则这点到直角边所在平面的距为:A根号40cm;B根号249cm;C15cm:D7cm.距离 在三角形ABC中边AB=2,BC=1角ABC=60点O为AC上一点若BO=二分之根号七试确定O点位置 如图,在△abc中,ab=ac,bd⊥ac于点d,ce⊥ab于点e,ce与bd相交于点g,gh⊥bc于点h,求证bh=ch.那个人会呀! 求f(x)=|x+1|+|x-1|(x属于R)的奇偶性,证明 已知αβ都是锐角 cosα=4/5 tan(α-β)=﹣1/3求sin(α-β) 如图在△abc中 ab=ac,bd⊥ac于d,ce⊥ab,ce与bd相交于点g,gh⊥bc于h,求证:bh=ch 三角形ABC为圆O的内接三角形,AF垂直BC,CE垂直AB交AF于点H,OD垂直BC.试说明OD与AH的数量关系 初二历史专题知识归纳整理三方面 经济 思想文化 只要写时间 和事件就好了 如果答案给的好的话 集合p={(x,y)x+ y=o} q={(x,y)|x-y=2}则a∩b= 在三角形ABC中AB=AC在AB上取一点D在AC的延长线上取一点E使BD=CE连接DE交BC于点F求求证DF=EF 半径为5的圆O内有一点P,且OP=3则过点P的最短弦长为( ),最长弦长为( ) 已知集合M={y|y=x^2-1,x∈R},P={x|x=|a|-1,a∈R},则集合M和P的关系 △ABC中,AB=AC,BD,CE分别平分∠ABC,∠ACB,AG⊥BD与G,AH垂直CE与F交BC于H,求证1.△AFG是等腰三角形.2.△CAH是等腰三角形. 为什么说森林是人类的朋友?请联系生活实际谈一谈 已知,如图△ABC E为AB上一点 AE=AC AH⊥CF BH‖CE 求证 AB/AC=BH/CK excel怎么把各选项卡中的数据集合到一起并求平均数如图,每个选项卡中都有数值,我需要把这些数值全部加起来并求和 有什么简便方法吗 系统解剖怎么学 为什麽一加一等于二因为一加一等于二 两组对角分别相等的四边形是平行四边形为什么没有作为判定定理 条件概率中的P(AB)如何计算? 集合P={x/y=√x-1},集合Q={y=√x-1}则P与 Q的关系为A.P=Q B.P真包含Q C.P真包含于Q D.P交Q=∅ 判定定理2:两组对边分别相等的四边形是平行四边形判定定理3:对角线互相平分的四边形是平行四边形请用两种方法分别证明这两个定理 条件概率:P(A∩B|A)≠P(B)对不对.为什么?条件概率的问题.P(A∩B|A)≠P(B) 今日海外言论(9月16日):法国在化芝加哥农产品期价28日大幅下挫英国迎战“飓风级”风暴 伦敦已取消至外媒:中国医院加强安保防暴力袭医安倍突访土耳其 传为劝阻土放弃购中国英国“小报女王”将接受刑事审判 令世英首宗疑似3D打印枪支案曝光韩承诺彻查干涉选举丑闻 被视为朴槿惠翘臀又嘟嘴 壮汉翻拍“性感照”遭吐槽男子纽约杀表兄家5人世界“最高男”终觅真爱斯诺登曝美国一月内监听西班牙6000美议员:欧洲应“感激”监听保安全格副总理当选总统鸟叔诉苦称进军海外压力大:两首歌走了叙提交化武销毁计划亲戚行凶 纽约华人母子五人被害英国发明“验精棒”可测精子是否达标埃及前总统穆尔西将受审 拒绝审判无人金华00后女生溜冰场结识男子 旷课5迈克尔杰克逊私人医生刑满出狱 欲再获中东迎来真实的和平?天天被“韩流”洗刷刷的筒子,你们记得袁智聪专栏:卡带可以复兴吗?潘家园旧书摊印象胡军暖爷四十讲点段子国际影展装逼手册“我父母和伊能静现在是很好的朋友,我欧俄在乌克兰问题上死掐分拆的《云笈七签》南都推荐她们为什么要加入IS?“洗衣粉、老干妈、烧水壶和一次性筷子李长声:用平常心看日本中秋之夜乡村旅游 搭起致富平台焦雄屏专栏:话说威尼斯殊于既往,有益将来古都声音的风景进一步加强政府督促检查工作始终保持打击涉医违法犯罪高压态势了解这只黑狗
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘