Solved

recycle bin

Posted on 1998-07-08
4
279 Views
Last Modified: 2010-05-03
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
0
Comment
Question by:p400
4 Comments
 

Author Comment

by:p400
ID: 1465234
Edited text of question
0
 
LVL 2

Expert Comment

by:Jagar
ID: 1465235
instead of using the kill command copy the file to the recycle bin directory.
0
 
LVL 7

Accepted Solution

by:
tward earned 50 total points
ID: 1465236
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
 
LVL 6

Expert Comment

by:alamo
ID: 1465237
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

Featured Post

Why You Should Analyze Threat Actor TTPs

After years of analyzing threat actor behavior, it’s become clear that at any given time there are specific tactics, techniques, and procedures (TTPs) that are particularly prevalent. By analyzing and understanding these TTPs, you can dramatically enhance your security program.

Join & Write a Comment

Introduction In a recent article (http://www.experts-exchange.com/A_7811-A-Better-Concatenate-Function.html) for the Excel community, I showed an improved version of the Excel Concatenate() function.  While writing that article I realized that no o…
Most everyone who has done any programming in VB6 knows that you can do something in code like Debug.Print MyVar and that when the program runs from the IDE, the value of MyVar will be displayed in the Immediate Window. Less well known is Debug.Asse…
As developers, we are not limited to the functions provided by the VBA language. In addition, we can call the functions that are part of the Windows operating system. These functions are part of the Windows API (Application Programming Interface). U…
Get people started with the process of using Access VBA to control Excel using automation, Microsoft Access can control other applications. An example is the ability to programmatically talk to Excel. Using automation, an Access application can laun…

762 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question

Need Help in Real-Time?

Connect with top rated Experts

19 Experts available now in Live!

Get 1:1 Help Now