VB: 强行删除目录或文件

最新推荐文章于 2021-02-16 21:11:16 发布

c945124

最新推荐文章于 2021-02-16 21:11:16 发布

阅读量1.6k

点赞数

分类专栏：程序文章标签： vb interface string delete integer dialog

本文链接：https://blog.csdn.net/c945124/article/details/379189

版权

程序专栏收录该内容

17 篇文章 1 订阅

订阅专栏

有一各强行删除函数，很厉害

Public Enum FO_Operation
    FO_MOVE = 1
    FO_COPY = 2
    FO_DELETE = 3
    FO_RENAME = 4
End Enum

Public Enum FOFlags
    FOF_MULTIDESTFILES = &H1      'Destination specifies multiple files
    FOF_SILENT = &H4              'Don't display progress dialog
    FOF_RENAMEONCOLLISION = &H8 'Rename if destination already exists
    FOF_NOCONFIRMATION = &H10    'Don't prompt user
    FOF_WANTMAPPINGHANDLE = &H20 'Fill in hNameMappings member
    FOF_ALLOWUNDO = &H40          'Store undo information if possible
    FOF_FILESONLY = &H80          'On *.*, don't copy directories
    FOF_SIMPLEPROGRESS = &H100    'Don't show name of each file
    FOF_NOCONFIRMMKDIR = &H200    'Don't confirm making any needed dirs
End Enum

Public Type SHFILEOPSTRUCT
    hwnd As Long
    wFunc As Long
    pFrom As String
    pTo As String
    fFlags As Integer
    fAnyOperationsAborted As Long
    hNameMappings As Long
    lpszProgressTitle As Long ' only used if FOF_SIMPLEPROGRESS
End Type
Private Declare Function SHFileOperation Lib "shell32.dll" Alias "SHFileOperationA" (lpFileOp As SHFILEOPSTRUCT) As Long

Private op As SHFILEOPSTRUCT

Public Sub DeleteFolder(sDeleteFolder As String, Optional Interface As Boolean = False)

    SetAttr sDeleteFolder, vbNormal
    With op
        .wFunc = FO_DELETE
        .pFrom = sDeleteFolder
        .fFlags = IIf(Interface = False, FOF_NOCONFIRMATION, FOF_NOCONFIRMATION And FOF_SILENT)
    End With
    SHFileOperation op

End Sub

'假如你要删除的目录是："c:/temp"，无论它有多少子目录，有多少文件，一样被删除，前提是目录已经存在。