在VB程序中通过回收站删除文件

2016-02-19 14:24 27 1 收藏

下面图老师小编跟大家分享在VB程序中通过回收站删除文件，一起来学习下过程究竟如何进行吧！喜欢就赶紧收藏起来哦~

【 tulaoshi.com - 编程语言】

在标准工程中添加一个公共对话框和两个按钮即可尝试本例：
　　
　　OptionExplicit
　　
　　'删除文件的API
　　PrivateDeclareFunctionSHFileOperationLib"shell32.dll"Alias"SHFileOperationA"(lpFileOpAsToBin)AsLong
　　'清空回收站的API
　　PrivateDeclareFunctionSHEmptyRecycleBinLib"shell32.dll"Alias"SHEmptyRecycleBinA"(ByValhwndAsLong,ByValpszRootPathAsString,ByValdwFlagsAsLong)AsLong
　　
　　PrivateTypeToBin
　　hwndAsLong
　　wFuncAsLong
　　pFromAsString
　　pToAsString
　　fFlagsAsInteger
　　fAnyOperationsAbortedAsLong
　　hNameMappingsAsLong
　　lpszProgressTitleAsLong
　　EndType
　　
　　ConstFO_DELETE=&H3
　　ConstFOF_ALLOWUNDO=&H40
　　ConstSHERB_NORMAL=&H0
　　
　　'将文件移至回收站
　　PrivateSubCommand1_Click()
　　DimGoAsToBin
　　DimstrFileAsString
　　WithCommonDialog1
　　.Filter="(*.bak)|*.bak"
　　.DialogTitle="删除文件"
　　.ShowOpen
　　strFile=.FileName
　　EndWith
　　
　　WithGo
　　.wFunc=FO_DELETE
　　.pFrom=strFile
　　.fFlags=FOF_ALLOWUNDO
　　EndWith
　　
　　SHFileOperationGo
　　EndSub
　　
　　'清空回收站
　　PrivateSubCommand2_Click()
　　DimRetValAsLong
　　RetVal=SHEmptyRecycleBin(0&,vbNullString,SHERB_NORMAL)
　　EndSub->

来源:http://www.tulaoshi.com/n/20160219/1606929.html

看过《在VB程序中通过回收站删除文件》的人还看了以下文章更多>>

迅捷数据恢复软件怎么恢复回收站删除的文件？

迅捷数据恢复软件怎么恢复回收站删除的文件？首先，大家需要下载迅捷数据恢复软件并下安装。迅捷数据恢复软件有一特点，就是无需安装，下载之后直接运行程序就可以了，非常的方便。第2步，打开迅捷数据恢复软件，单击数据恢复按钮进入下一步。第3步，单击选择数据恢复模式删除恢复，然后单击下一步。第4步...

回收站删除了怎么恢复文件恢复教程详细图解

标签：计算机应用技术

一：选择桌面左下角的地方，点击开始。二：在点击开始后，可以在弹出面板中找到运行命令，或者在搜索中直接输入运行。三：点击运行，然后在弹出的运行对话框中输入regedit然后点击确定。四：确定后会弹出的注册表编辑器，在编辑器中找到HKEY_LOCAL_MACHINE文件夹，然后点击文件夹前面的小三...

怎么恢复回收站清空的文件？

怎么恢复回收站清空的文件？为了克服回收站清空文件恢复这一难题，迅龙工作室历时3年潜心开发出迅龙数据恢复软件，这是一款非常简洁、易用、安全的数据恢复软件，主要用于在回收站清空、误删除、误格式化、病毒破坏等情况下进行数据恢复，成功率高达99%。怎么恢复回收站清空的文件? 第一步，下载迅龙数据恢复软件。 ...

酷盘云端回收站：删除的文件也可失而复得！

酷盘云端回收站：删除的文件也可失而复得！酷盘是非常出色且免费的网络云存储，它不仅可以实现照片、视频、文档等资料的自动同步与备份，而且还能够让用户随时随地、在多种设备上访问这些文件。除此之外，酷盘还有许多好用的小功能，云端回收站就是之一。我们在电脑上操作时，有时会觉得一些文件现在不需要了而将它彻底删除，日后...

如何锁定回收站

标签：回收站电脑入门

如何锁定回收站，禁止其他用户清空回收站呢？下面来介绍一下操作方法吧。方法一 1、首先单击开始菜单，单击运行。 2、然后在弹出的运行框中输入regedit.确定。 3、找到HKEY_CLASSES_ROOT主键。 4、依次展开HKEY_CLASSES_ROOTCLSID{645FF040-5081-101B-9F08-00AA002F954E}InProcServer32。 5、将默认（字符串值）双击打...

查看更多精彩>>