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

如何删除文件到回收站?

编辑:说三道四文库 发布时间:2018-07-23 04:04
HTML文档下载 WORD文档下载 PDF文档下载
用vb删除文件都会是直接删除!
但我要将它放到回收站如何放置?
新建工程,在窗体中加入一下代码就可以了!
Option Explicit
    Private 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:\temp.txt文件。
    Private Sub Command1_Click()
    Dim FileOperation As SHFILEOPSTRUCT
   Dim lReturn As Long
   Dim sTempFileName As String
     sTempFileName = "c:\temp.txt"
     With FileOperation
     .wFunc = FO_DELETE
     .pFrom = sTempFileName
     .fFlags = FOF_ALLOWUNDO
     End With
     lReturn = SHFileOperation(FileOperation)
    End Sub
好像有点。。。。
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘