How to Kill a File

[nmretd]

I have a list box which contains several files and a picture of a Trash bin underneath.

I have written some code to Drag and Drop the files into a second list box. However, I also want to be able to drag the file below so that when it touches the Trash Bin Picture, the file is deleted.

How do I kill the file when it reaches the picture ?

[DiGiTaIErRoR]

Kill filepath

i.e. Kill "c:\command.com"

------------------
DiGiTaIErRoR

[Serge]

Try this. Change the DragIcon property of the Listbox to the appropriate picture.

Private Sub List1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    List1.Drag vbBeginDrag
End Sub

Private Sub Picture1_DragDrop(Source As Control, X As Single, Y As Single)
    On Error Resume Next
    
    Kill List1.List(List1.ListIndex)
    List1.RemoveItem List1.ListIndex
End Sub

Assuming that the Listbox has the files with the complete path (e.g. C:\MyFolder\MyFile.txt)

------------------

Serge

Software Developer
[email protected]
[email protected]
ICQ#: 51055819



[This message has been edited by Serge (edited 12-03-1999).]