VB6 - Moving Files to the Recycle Bin

[ripple214]

When a file is deleted in windows, it is not automatically erased. Instead, it is put into the recycle bin. Thus, an unwanted deletion can easily be undone. You can do this in your programs with these codes;

' Copy this code into a module
' You can add a module by right clicking in the project 
' explorer of vb
 
Public Type SHFILEOPSTRUCT
 
hwnd As LongwFunc As 
LongpFrom As StringpTo As Stringf
Flags As Integer
fAnyOperationsAborted As Long
hNameMappings As Long
lpszProgressTitle As Long
 
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 Function Move2RecycleBin(strfile as String)
'strfile is the full path of the file you want to put in the recycle bin
Dim SHop As SHFILEOPSTRUCT
With SHop
 
.wFunc = FO_DELETE
.pFrom = strFile
.fFlags = FOF_ALLOWUNDO
 
End With
SHFileOperation SHop
End Function
 
'Sample Usage
Private Sub Form1_Activate()
Move2RecycleBin("C:\PutMe.txt")
End Sub
 
'Code By : Rigie O. Acebedo