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

如何不通过回收站直接删除文件和文件夹?

编辑:说三道四文库 发布时间:2018-07-20 11:11
HTML文档下载 WORD文档下载 PDF文档下载
各位高手:
    请教:如何不通过回收站直接删除文件和文件夹?
    是否能给出详细代码?
    不胜感激!先谢谢啦!
可以击鼠标右键,用删除项,即可删除
对不起,我可能没说清楚!
是在VB中用代码删除文件和文件夹!不是放到回收站,而是直接从硬盘上删除!
kill 、 RmDir 就是这样子的呀!
删除目录下所有文件,包括子目录
Private Const FO_COPY = &H1
Private Const FO_MOVE = &H2
Private Const FO_DELETE = &H3
Private Const FO_RENAME = &H3
Private Const FOF_NOCONFIRMATION = &H10
Private Const FOF_SILENT = &H4
Private Const FOF_NOERRORUI = &H400
Private Declare Function SHFileOperation Lib "shell32.dll" Alias "SHFileOperationA" (lpFileOp As SHFILEOPSTRUCT) As Long
Private 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 String '  only used if FOF_SIMPLEPROGRESS
End Type

Public Function KillPath(ByVal sPath As String) As Boolean
    Dim udtPath As SHFILEOPSTRUCT
    udtPath.hwnd = 0
    udtPath.wFunc = FO_DELETE
    udtPath.pFrom = sPath
    udtPath.pTo = ""
    udtPath.fFlags = FOF_NOCONFIRMATION Or FOF_SILENT Or FOF_NOERRORUI
    KillPath = Not CBool(SHFileOperation(udtPath))
End Function
g  z
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘