|
我们在编程实践中，经常需要涉及到文件的删除操作，而一般的程序语言中的删除指令是绝对删除的，即不将文件放入回收站，这给我们在设计更加具有windows风格的应用程序带来了一定的不便。为了克服这个障碍，我们需要通过调用独立于编程环境以外的windows
api函数来实现，以下是vb6的示例代码，在windows98中测试通过。它可以选择是否将文件删除到回收站。
（一）编程原理；
将文件删除到回收站的过程实际上就是，将被删除的文件加上原来存放位置信息、删除日期等信息后，移动到WINDOWS所在分区的Recycled目录下的过程。虽然我们独立的编写彻头彻尾的代码可以实现，但是却比较繁琐。我们可以调用windows
api函数SHFileOperation来方便的实现，它的功能很多，涉及到文件的拷贝、剪切、删除等等，在本文中，我只讨论它的两个功能---将文件放入回收站和绝对删除。
（二）编程示例；
(第一步)启动vb6中文版建立一个标准exe工程,将窗体命名为"form1",从左边的工具箱中添加一个drivelistbox控件“dir1”，一个dirlistbox控件“dir1”，一个filelistbox控件“file1”，一个checkbox控件“optRecycle”，一commandbutton控件“cmddelete”，将以上控件调整到适当位置，双击窗体，写入以下代码：
Option Explicit
Private Type SHFILEOPSTRUCT
hWnd As Long
wFunc As Long
pFrom As String
pTo As String
fFlags As Integer
fAborted As Boolean
hNameMaps As Long
sProgress As StringEnd Type’文件操作函数类型参数
Private Const FO_DELETE = &H3‘本参数代表删除Private Const FOF_ALLOWUNDO =
&H40‘本参数表示将文件放入回收站
Private Declare Function SHFileOperation Lib _"shell32.dll" Alias
"SHFileOperationA" _(lpFileOp As SHFILEOPSTRUCT) As Long ‘api函数声明
Public Sub ShellDeleteOne(sFile As String, ActionFlag As Long)
‘自定义文件删除操作函数ShellDeleteOne，第一个参数指定被删除的文件名，第二个参数指定是否放入回收站
Dim SHFileOp As SHFILEOPSTRUCTDim r As Long
sFile = sFile & Chr$(0)
With SHFileOp
.wFunc = FO_DELETE
.pFrom = sFile
? .fFlags = ActionFlag
‘如果ActionFlag=0表示绝对删除，而ActionFlag=FOF_ALLOWUNDO表示放入回收站End With
r = SHFileOperation(SHFileOp)‘执行删除操作End Sub
Private Sub Dir1_Change()
File1.Path = Dir1.Path‘将目录列表框与文件列表框关联End Sub
Private Sub Drive1_Change()
On Error Resume Next ‘忽略错误
Dir1.Path = Drive1.Drive‘将驱动器列表框与目录列表框关联End Sub
Private Sub Form_Load()
Me.Caption = "回收站调用演示_ --zouherohttp://zouga.yeah.net"‘初始化程序标题
cmdDelete.Enabled = False ‘禁止删除按钮直到有文件被选中End Sub
Private Sub cmdDelete_Click()Dim r As LongDim file2Delete As StringDim
fPath As StringDim ActionFlag As LongfPath = Dir1.Pathfile2Delete =
File1.List(File1.ListIndex)‘记录文件名If Right(fPath, 1) $#@60;$#@62; "\" Then
fPath = fPath & "\"End If‘判断文件路径file2Delete = fPath & file2Delete
‘完整的文件名ActionFlag = 0& ‘默认为绝对删除If optRecycle.Value Then ActionFlag =
FOF_ALLOWUNDO‘如果optRecycle被选中则将文件放入回收站ShellDeleteOne file2Delete, ActionFlag
‘调用自定义删除函数File1.Refresh‘刷新文件列表框cmdDelete.Enabled = File1.ListIndex $#@62;
-1‘如果选定目录下没有文件或者没有选中文件，删除按钮被禁止End Sub
Private Sub File1_Click()
cmdDelete.Enabled = File1.ListIndex $#@62; -1End Sub
（第二步）调试；
按下f5键，通过选择驱动器列表框、目录列表框、文件列表框选定文件，当“放入回收站”被选中时（即它前面有一个黑色的对号），按下删除按钮，将会出现确认对话框，文件被放入回收站，反之，将会被绝对删除。
windows
api函数SHFileOperation是一个功能非常强大的函数，用它可以方便的实现许多编程语言所无法直接实现的功能。至于其他的用途请参考windows
api手册。
对于国内的程序员来说，涉及windows高级编程的相关资料和示例代码非常少，这在一定程度上限制了程序员的开发高级应用程序能力。本文中的示例不仅仅涉及了windows
api文件操作函数的运用，而且演示了文件浏览以及关联的技巧，希望诸位编程高手能够有所借鉴和斧正，如果有问题或者希望相互交流,请与我联系zouworld@sina.com。
[VB.NET程序]GSM短信模块库函数，可以用VB,VC,调用简单实用 [办公软件]PowerPoint做交互课件之弃用VBA
[办公软件]VBA获取U盘、主板、CPU序列号和网卡MAC地址 [办公软件]VBA设置文件属性及加密源代码示例
[办公软件]VBA中初始化ADO连接的几种方法 [网络安全]“VB破坏者变种N”病毒摘要
[Web开发]ASP.NET上传文件到数据库VB版 [办公软件]在Excel中利用VBA实现多表单元格数据的读取与赋值…
[办公软件]使用Vba读取已关闭的Excel工作薄数据到当前工作表… [办公软件]Excel编程基础之VBA文件操作详解
| 
注：本站部分文章源于互联网，版权归原作者所有！如有侵权，请原作者与本站联系，本站将立即删除！ 本站文章除特别注明外均可转载，但需注明出处！ [MinTao学以致用网] 
