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

恢复回收站中的文件 -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企业版。
用VB快速读取TextBox第N行的数据 用VB 设计VCD播放器 用VB设计更好的用户界面 用VB设计聚焦框程序 用VB实现“ICQ”式的启动欢迎画面 用VB实现全屏幕图形界面及动态功能提示 用VB实现任务栏右下角的小图标 用VB制作常居上层的浮动工具箱 用VB制作即时动态按钮 用VB作浮动式图标提示按钮 用Visual Basic编写托盘程序 用Visual Basic窗体背景花纹的实现 用Visual Basic设计窗体背景花纹 用Visual Basic设计更好的用户界面 用Visual Basic设计三维图形按钮 用VisualBasic制作半透明窗体 运行时改变控件大小的两种方法-VB资料 运行中隐藏/显示窗口标题栏-VB资料 在ListBox适当设定水平滚动条的宽度-VB资料 在VB中利用API实现窗体的平滑显示 在vb中让控件大小和位置随着表单的大小成比例变化的方法 在VB中实现闪动标题栏 在VB中实现位图的透明放置 在VB中使用数据窗体设计器插件 在VB中制作单独程序封面的两种方法 在VB中制作透明按钮 在Visual Basic中如何拖动窗体或控件 在Visual Basic中显示动态运行进度 在菜单中加入图标 -VB资料 在程序中调用关闭Windows对话框-VB资料 在任务栏中显示无边框窗体的图标-VB资料 灌水、抢分 echo命令的具体使用方法? 在BIOS密码之后,系统引导之前加密计算机的软件有哪些?请帮忙呀 请问 如何获得mysql的原码 关于onload VB中如何使用资源文件?急!急!急! 关于思路,高分求教!分数不够在添 不得不提问了: 怎样防止用户重复登陆!???? **请问Kylix3在红帽7上如何安装? TEST 求php的win98下开发环境,大家帮帮忙。 我想做一个类似于邮件系统中附件功能的程序,请问用的是什么协议,那里有源码? 为什么输出结果不正确呢??? 急救!用ADO在98下与2K下不能同时运行! 主板的认识! 如何删除相同的两条记录 有关Blob造型成oracle.sql.BLOB的问题。 急死我了!!!RS485通讯的奇怪问题,请高手帮忙! 怎样在delete记录时不往log文件中写东西? 签名支持JK10000行动,同意签名者,进来跟贴!到时候咱们的真名或ID会被复印在传单背面,抵制日货,保卫钓鱼岛!!!!!!!!!!!! 迷惑!!!!!高手指点,值得讨论,谢谢! char型怎么转换成String型?(答对结帖) 请问 哪位大侠有loadrunner的中文测试资料提供一下,非常感谢! JS和ASP的问题????? 高手指点 这样划分vlan可不可以???? 数据库超时 VB+SQl 2000 如何实现在程序运行时加减代码? 各位高手给我个提示有关手动添加消息映射的 关于EjbOBJECT和EJBLOCALOBJECT在使用上的区别?? 寻找中俄文转换的工具软件!急! 请问怎么把CLASS程序打包成JAR程序? 如何在VC中嵌入对Access表tableApp中纪录个数的统计(在线等)? 学习java到底有没有前途?? 关于ie6和ie5下使用javascript的问题??? 自定义函数返回值的问题 小问题:如何在VC中嵌入对Access表tableApp中纪录个数的统计(在线等)? 怎么没人理我啊?我好可怜!linux下线程池谁知道怎样实现,在哪里可以找到资料? 请教高手:如何把 Office Word 中的字(包括字体、字色、字类型等)复制到 java 中。急!在线... 挂双硬盘在CMOS中怎么设置? 沾边就给分,请问各位前辈,我想画一个框,并据一定的条件使它以两种颜色交替显示,退出时将其释放 不能用右键来另存图片 关于J2EE问题? 有没有这么一个函数:将一个double型变量按科学计数法的格式显示出来 升级的问题 难!请教关于随机分段计算并判断的问题。 请教:QT库怎么配?怎么看装没装上?里面都有什么? 请推荐一个国外的(英文)网站,类似与csdn的程序员网站!想提高英语水平 请问jsp程序在运行时出现的这个错误是什么原因引起的? ASP对字符串加密后,就认不到路径了,,, 如何在VSS中建立软件运行平台。 阿娇宣传照唯美娇艳 新碟取名《桐花》小贝全家浩荡出街 小七被狗仔吓哭贝嫂揭秘朝鲜美丽女子Ke$ha着亮片戴花环酒吧开唱 激情李亚鹏爱女心画作百万成交 嫣然晚宴星周杰伦新片女主角曝光 被指酷似昆凌周乌干达百岁母亲20年抚养百名孤儿英国女王浪漫田园风照片公布于众鸟叔意大利杯献唱遭种族歧视 上万球迷33岁陈冠希求婚成功 欲迎娶23岁小《天台》女主角尴尬走光 周杰伦被挽臂嫣然晚宴移师香港 王菲端庄亮相刘嘉玲林志玲难忘与华仔迪拜谈情 感谢刘德华阿娇浸情花道诉恋爱感觉 拍电影出唱片陈建州范玮琪下月访非洲 大方表态造人关之琳124万拍得慈善艺术品 低胸装Angelababy一路被扶 与潮男余文乐不喜欢女友看打球:当年打球被人高圆圆调侃出演"酱油瓶&q周杰伦"迎娶"李李咏坐轮椅主持节目 遭选手整蛊“花容《决战食神》改档闹元宵 全新曲风致敬软通动力与宝山区人民政府签署战略合作想要潮流奔放风格的家具?就选尚品宅配微鲸斩获第六届娱乐营销5s金奖创意创京东贫困县农特产品畅销一成来自重庆“音乐与梦想”社会公益项目在四川顺利南岸游乐园新春灯会18日开幕 城区内世界杯扩军到48队 中国拿到入场券?普汇云通再获国资入股3000万,县市鹿晗携手味可滋开趴 新年愿望季划上完金佛山迎来17年首场大雪 周末多景区软通动力荣获2016年大数据应用优秀路边锥桶内发现黑色钱包 东港交警发现西南地区首个海军招飞生源培养基地在重花甲老人划伤乱停车辆 说给他长个教训用生命乞讨!一中年妇女济南快车道上拦父子相继去世 赔偿金咋继承?大热韩剧《鬼怪》14日停播 否认孔刘温暖安全送到家 重庆燃气上门服务暖了江西近千辆非法载客车被取缔 集中停放北京街头张灯结彩 年味渐浓
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘