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

恢复回收站中的文件 -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企业版。
首届智能硬件峰会:解读硬件创业机遇与挑战(下) 平台与技术专题论坛(二):游戏开发实践分享及IE11新体验 看Twitter上市后的入职面试题 六届中国大数据技术大会PPT精粹(三) AMD推多款异构计算开发工具 着力打造APU软件生态系统 哪里有vss下载?? 哪有邮件接收的前端系统程序 关于文件读写问题--频繁的!!!100分! 急!急!如何判断在客户端有安装所需控件,在线等待 请问一下谁有具体的RTF的文件格式啊????我想做个和MSN一样的对话框,有什么思路,请大家发表看法,来者有分 方法 Delphi7中的TActionToolBar的图片显示的问题 请问JBuilder中如何配制数据库tomcat中的DBCP?? [图片]找工作的人太多了。。。。。。。。。 数字电路:设计四位数数据的输入时的奇偶校验电路 用 设计74ls151选择器电路,设计函数满足下列关系 编写程序输出能被3整除或能被5整除或能被6整除的所 十进制数(65)10的8421BCD编码是什么?求 用8421BCD码表示两位十进制数,则至少需要( 十进制数25用8421BCD码来表示为多少? 十进制小数转换成8421BCD码,比如0.9743 74LS151 设计4位奇偶校验电路.要4位的.不 我在复习计算机组成原理时遇到 奇偶校验电路的设计 美妇人送儿子手机前“约法18章” 网智利副总统候选人 抱娃上街拉选票(图首份中日韩常用汉字表编制完成 808朝一海军舰艇沉没 金正恩祭拜烈士墓(杭州46岁单身妈妈为儿子过得更好想重我渔船在东海某海域被撞沉 海军正全力超人妈妈或白手妈妈,哪个更好命?孩子问:“如果早晚都要死去,为什么还强生爽身粉再次敲响警钟!千万别给孩子避免成为魏则西,来北京看病必须掌握十战神变仙永网游之剑阵天下不死医生洪荒魔鼎塔公旅游汕尾旅游松江旅游菏泽旅游梧州旅游
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘