Kill a file to the Recycled or Recycle Bin folder ? 1

BruceHesher · Jul 8, 1999

I have written a program that can delete the selected file in a Filelist control when the user presses the DEL key. But, I would like to send the file to the Recycled (W9x) or Recycle Bin (NT) folder so that it can be restored if the user changes their mind. The FileCopy command works well to copy a file to other folders but not to C:\Recycled. Is there a Win32 API or something else I'm not thinking of that can place files in the Recycled folder for later restoration?

chiph · Jul 16, 1999

Try this in a .BAS module: 
 
Option Explicit 
 
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 Const FO_DELETE = &H3 
Public Const FOF_ALLOWUNDO = &H40 
 
Declare Function SHFileOperation _ 
Lib "shell32.dll" _ 
Alias "SHFileOperationA" (lpFileOp As SHFILEOPSTRUCT) As Long 
 
Public Function ShellDelete(FileName As String) 
Dim I As Integer 
Dim sFileNames As String 
Dim SHFileOp As SHFILEOPSTRUCT 
 
sFileNames = FileName & vbNullChar 
With SHFileOp 
.wFunc = FO_DELETE 
.pFrom = sFileNames 
.fFlags = FOF_ALLOWUNDO 
End With 
 
ShellDelete = SHFileOperation(SHFileOp) 
End Function 
 
Of course, this code has a dependence on the Windows 95-style shell, so it won't work on any version of NT prior to 4.0. I think Microsoft said that this might have changed under Windows 2000, but I don't know for sure. 
 
You can also string together a series of files to be deleted, by separating them with vbNullChar's. 
 
Chip H.

Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

Kill a file to the Recycled or Recycle Bin folder ? 1

BruceHesher

Programmer

chiph

Programmer

Similar threads

Part and Inventory Search

Sponsor