VBGood网站全文搜索 Google

搜索VBGood全站网页(全文搜索)
首页 - 经验之谈 - 如何在vb6中操作回收站
发表评论(0)作者:不详, 平台:VB6.0+Win98, 阅读:8248, 日期:2001-06-21
如何在vb6中操作回收站
新天

--------------------------------------------------------------------------------
p>  我们在编程实践中,经常需要涉及到文件的删除操作,而一般的程序语言中的删除指令是绝对删除的,即不将文件放入回收站,这给我们在设计更加具有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。