recycle bin

i have a file list box and it is set to extended to select files i want to be able to delete all the selected files to the recycle bin if possable ive tried the kill filename but it only deletes one file and not all the selected files and it deletes them off the disk instead of moving them to the recycle bin woult also like to know how to delete a selected file by pressing the del button on the keyboard
p400Asked:
Who is Participating?
I wear a lot of hats...

"The solutions and answers provided on Experts Exchange have been extremely helpful to me over the last few years. I wear a lot of hats - Developer, Database Administrator, Help Desk, etc., so I know a lot of things but not a lot about one thing. Experts Exchange gives me answers from people who do know a lot about one thing, in a easy to use platform." -Todd S.

p400Author Commented:
Edited text of question
0
JagarCommented:
instead of using the kill command copy the file to the recycle bin directory.
0
twardCommented:
Straight from the Microsoft Knowledge Base:

How To Delete a File into the Win95 Recycle Bin

Last reviewed: July 26, 1996
Article ID: Q154005

The information in this article applies to:

•Standard, Professional, and Enterprise Editions of Microsoft Visual Basic, 16-bit and 32-bit, for Windows, version 4.0

SUMMARY

This article describes how to use the Visual Basic function called KILL to enable a user to delete a file from disk. Under Windows 95, there is an additional feature of deleting files into the Recycle bin, giving a user the ability to reclaim deleted files. The KILL function doesn't offer this to the Visual Basic Programmer, but the SHFileOperation Win32 API does. Below is a code sample showing how to use the API in Visual Basic.

MORE INFORMATION

1.Start a new project in Visual Basic. Form1 is created by default.

2.Place a Command button on Form1.

3.Add the following code to the Form1 code window:

Option Explicit

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 Declare Function GetTempFileName Lib "kernel32" _
     Alias "GetTempFileNameA" (ByVal lpszPath As String, _
     ByVal lpPrefixString As String, ByVal wUnique As Long, _
     ByVal lpTempFileName As String) As Long

   Private Const FO_DELETE = &H3
   Private Const FOF_ALLOWUNDO = &H40

   Sub Command1_Click()
     Dim FileOperation As SHFILEOPSTRUCT
     Dim lReturn As Long
     Dim sTempFilename As String * 100
     Dim sSendMeToTheBin As String
     lReturn = GetTempFileName("c:\", "VB_", 0, sTempFilename)
     sSendMeToTheBin = Left(sTempFilename, InStr(sTempFilename, Chr$(0)))
     With FileOperation
        .wFunc = FO_DELETE
        .pFrom = sSendMeToTheBin
        .fFlags = FOF_ALLOWUNDO
     End With
     lReturn = SHFileOperation(FileOperation)
     MsgBox "View your Recycle Bin for files beginning with VB_"
   End Sub

4.Press the F5 key to run the project, and click the Command button. You will be prompted to confirm the deletion of the file. In your Recycle Bin, there will be a file with the prefix "VB_" that is the file created by the GetTempFileName Win32 API call.

REFERENCES

The Win32 SDK Helpfile refers to other SHFileOperation functionality.
0

Experts Exchange Solution brought to you by

Your issues matter to us.

Facing a tech roadblock? Get the help and guidance you need from experienced professionals who care. Ask your question anytime, anywhere, with no hassle.

Start your 7-day free trial
alamoCommented:
I tried posting the same thing basically, but tward was quicker :-)

One thing I'd like to point out is that the example creates a temporary file so it can then delete it,  so don't get confused by the creation of the temporary file, it's just there for an example.
0
It's more than this solution.Get answers and train to solve all your tech problems - anytime, anywhere.Try it for free Edge Out The Competitionfor your dream job with proven skills and certifications.Get started today Stand Outas the employee with proven skills.Start learning today for free Move Your Career Forwardwith certification training in the latest technologies.Start your trial today
Visual Basic Classic

From novice to tech pro — start learning today.