• Home
 · 
• Miscellaneous
 · 
• send Recycle

send Recycle

send Recycle

Rate send Recycle

• 1
• 2
• 3
• 4
• 5

(2(2 Vote))

     hWnd As Long
     wFunc As Long
     pFrom As String
     pTo As String
     fFlags As Integer
     fAnyOperationsAborted As Long
     hNameMappings As Long
     lpszProgressTitle As String
End Type
Public Declare Function SHFileOperation Lib "shell32.dll" Alias _
     "SHFileOperationA" (lpFileOp As SHFILEOPSTRUCT) As Long
Public Const FO_DELETE = &H3
Public Const FOF_ALLOWUNDO = &H40


Public Sub Recycle(ByVal FileName As String, frm As Form)
     Dim SHFileOp As SHFILEOPSTRUCT
     Dim RetVal As Long
     With SHFileOp
     .hWnd = frm.hWnd
     .wFunc = FO_DELETE
     .pFrom = FileName
     .fFlags = FOF_ALLOWUNDO
     End With
     'Send this poor soul to file hell
     RetVal = SHFileOperation(SHFileOp)
End Sub