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
Next create a function called Recycle, like so
Public Sub Recycle(ByVal FileName As String)
Dim CFileStruct As SHFILEOPSTRUCT
With CFileStruct
.hwnd = Me.hwnd
.fFlags = FOF_ALLOWUNDO
.pFrom = FileName
.wFunc = FO_DELETE
End With
If SHFileOperation(CFileStruct) <> ERROR_SUCCESS Then
'An error occurred.
End If
End Sub
To test the procedure, create a dummy text file, drop a command button onto a
Visual Basic form, and then attach the following code
Private Sub Command1_Click()
Recycle "c: est.txt"
End Sub
When you click the button, Windows asks if you want to move the file to the Recycle Bin.