删除带文件的文件夹的软件源码

Option Explicit
'================================================
'功能:删除带文件的文件夹
'用法:KillPath "C:\1"
'================================================
Private Const FO_MOVE = &H1
Private Const FO_COPY = &H2
Private Const FO_DELETE = &H3
Private Const FO_RENAME = &H4
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
On Error Resume Next
Dim udtPath   As SHFILEOPSTRUCT
udtPath.hwnd = 0
udtPath.wFunc = FO_DELETE
udtPath.pFrom = sPath