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

恢复回收站中的文件 -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企业版。
全民移动•重塑世界 2013移动开发者大会盛大开幕 泯灭Web App可用性的七个开发错误 保益互动创始人曹军:听到的世界更精彩,盲人应用背后的故事 Gumi公司CEO国光宏尚: 大公开!日本手游市场攻克方法! Great Hill Partners高管Chuck Goldman &amp;amp; 南京创毅CEO William Wei:超越黑莓——下一代企业移动 高通业务拓展副总裁沈劲:智能手机2.0——以体验为中心 百度副总裁李明远:百度轻应用——长尾APP的最佳选择 中国工程院院士李德毅:大数据时代的认知计算 创新工场联合创始人汪华:2013年中国移动互联网进入深入区 百度副总裁李明远:解答关于百度轻应用的八大疑问 谷歌推出PNaCl,帮助开发者在任何硬件和网站上运行代码 阿里云:双十一350亿交易额的幕后英雄 索尼移动智能设备全球技术总监Goran Andersson:索尼移动可穿戴设备解决方案 腾讯社交网络事业部副总裁陈磊:腾讯移动开发者服务体系 基调网络副总裁陈靖华:全面掌握移动应用性能 蓝港在线创始人王峰:手游新时代下的机会与挑战! Couchbase CEO Bob Wiederhold:数据库云端同步,移动应用开发的未来 三星电子大中华区副总裁黄伽卫:构建移动互联生态,解读内容服务新方向 MDCC 2013移动开发者大会:新浪潮,新硬件! 网站建设,如何平衡产品特性和利益需求? 开发者是如何提升技能水平的 Databricks核心成员专访:大数据时代“智能手机”Spark 数据密集、快速启动、核心应用,IBM存储重兵布阵 企业移动应用与BYOD:移动互联大势所趋 “首届智能硬件峰会”上午会议亮点汇总 代价究竟高不高,苹果为什么要在Android专利诉讼上花费2亿美元? 产品与设计专题论坛(下):App之美 产品与设计专题论坛(上):扁平还是拟物?产品说了算! 首届移动娱乐游戏峰会:中外手游的交锋与对抗(下) 研发人员超过500,基金会金牌会员,华为豪赌OpenStack New way of thinking:索尼SmartWatch 2应用开发马拉松大赛圆满结束 昨晚2点多一个mm突然打电话找我聊天,各位觉得我有戏没? 哪里有完整的MINE解码组件 为什么我装完FreeBSD系统启动时Sendmail启动的特别慢,telnet时也很慢。 小弟初学JSP,想搞点源代码来学习学习。 难搞的MIDAS 局域网的问题,急死了, vb中继承及分辨率问题 ASP里有没有带下拉框的输入框? 象素数据和图象数据 公司的一个数据库被人del,现在想查查是谁什么时候做的? 为什么我的窗口无法操作 关于oracle数据库增量备份土土的一问。 ArrayList问题 请教:在CB6下面怎么用 TMediaPlayer 控件来录音? 南开的vb习题集!!! 请问:如何在servlet中获得当前时间和当前日期?菜鸟问题,请见谅。 为什么我的opendialog不能返回filename,而返回了一个 $符号 大家对购买tcl笔记本等国产笔记本有没有什么建议? 第一次用vfp,新手提问? 请问哪位大虾知道,Crystal 7.0如何记忆上次打印该报表的打印机 纸张大小 纸张方向 边界设定等 如何自动生成新页? 显示器问题!! [代码发布]使用 Lostinet.SqlScope 4.0 实现高效的SQL SERVER应用程序 关于Decode函数的问题 WIN2000下的关机问题?请高手们想想办法! 寻找一个叫dingke的朋友,我将把邮箱给你,但我不小心弄丢了你的联系信箱,请速与我联系 请问:Dialog中可以重载LButtonDown事件吗? 如何用pb实现远程关机!!求救! 高分请教:zip密码遗忘 如何显示一个word 格式的文档,分不够可以再加 怎么获取本机IP。 ★★★★★调查最好的旅游地点!!★★★★★ 高分请教:zip密码遗忘 OUTLOOK公佈網路資料夾的問題 为什么我作的程序都无法运行呢?帮帮忙,多谢多谢 "select * from db where dm='000001' and scbz<>1 order by fsrq desc"为何会出错? 大家对购买tcl笔记本等国产笔记本有没有什么建议? WAP2.0与之前的版本有何不同? SQL2000如何解决还原数据库时的错误 工作台上打开数据库对话框中服务器项中的记忆性值...? 挑战无处不在!!!!!!!!!!!!!!!!!!!!! 这个程序是什么意思啊?? 请教:xml 不支持无值属性,以下我该怎么办。急,在线等。100分恭候 jb整合resin出现的难题! 永远的秋天 为什么我的openoffice中打的汉字无法在页面上显示? 请解释下面的问题 怎样把字符窜(edit.Text)转化为十六进制数 寻求PHP开发人员合作 怎么样用 VC开发 COM 加载项 (Office 插件 如:FOXMAIL的 Word 插件)? 这段小代码,那些地方出的问题,我怀疑是数据库的设置问题?来吧,欢迎来拿分! 猪骨头煮好后是红色是什么原因?汤和肉不是红色的但是骨头却是红色的 刚买的猪排骨,剁开骨头后,骨头中间呈血红色,请问这是怎么回事,是否是病猪?是否可以食用 关于植物抗性、、、植物有一定的抗性,大概有抗旱 抗涝 抗高温 抗低温 抗盐等,那么当盐的浓度达到多少时算是才可以达到抗盐呢?我想模拟一下抗盐、需要权威的 我想做关于烟草得抗盐性 植物抗性的例子像小麦啊 水稻棉花之类的 怎么才可以脱离家里人的约束 如图①,A、B、C三个容积相同的容器之间有阀门连接.从某一时刻开始,打开A容器阀门,以4升/分的速度向B容 人口死亡率和什么有直接关系,为什么? 人口死亡率高低与什么直接有关?为什么? 16g二氧化硫中含8g氧元素,与多少gH2O中含有的氧元素相等 一个长方形果园,长800米,宽250米,如果平均每公顷种660颗果树,那么这个果园一共种了多少颗果树 文学常识 八上 求(1)《湖心亭看雪》选自《 》,作者是 ,他是 (朝代)人.(2)历代描绘三峡风光的名文佳作极多,请默写出其中的一篇.(3)你知道他们是谁吗?他们可都是光耀千古的文学巨匠,把他们 曼城输球主帅火气大 佩莱格里尼:不想NBA新赛季看群雄“灭火” 马刺依然天价球员托雷斯强势复苏 切尔西登上积市民投诉劳动仲裁超期 南京人社局称人NBA新赛季首期实力榜:热火占鳌头 湖南长沙现“土豪金”大道 200公斤“株连式”拆迁频现 媒体称背后是权力实拍:中国核潜艇导弹发射平台、艇员住美议员:监听确保了欧洲安全 盟友们应埃及一运动员因支持穆尔西而被剥夺比赛茶党加速美国政坛裂变 抓住政府软肋屡周五立冬 别冷落了秋裤君李嘉欣3岁儿学6国语言 为接百亿父业“双十一”快递业务 成都预计将达56不孝顺老人不得担任村干部达州至重庆增加10辆49座豪华大巴车自己到基层 爱人来四川基建全面启动宜宾市公安局出版《警民网事》看不见的雾霾天 看得见的低碳投资路2014年11月05日14年恪守信念 谢洪树诚信经商获村民
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘