企业官网建设流程全解析

1.方法

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 Private Const FOF_NOCONFIRMATION = &H10 Sub DeleteToRecycleBin(sFilePath As String) Dim fileOp As SHFILEOPSTRUCT fileOp.hWnd = Me.hWnd fileOp.wFunc = FO_DELETE ' 必须：绝对路径 + 双空字符结尾 fileOp.pFrom = sFilePath & vbNullChar & vbNullChar fileOp.fFlags = FOF_ALLOWUNDO Or FOF_NOCONFIRMATION SHFileOperation fileOp End Sub

2.调用

DeleteToRecycleBin(filePath)