Deleting/Killing a file... help!

[xero18]

Hello, this is my first post here on the VBForums. Since I just got VB 6.0 and I learned how to use it last year it's a lot of fun just playing around with it. Yesterday I d/l an MP3 player and modified it a little bit. But I have 1 problem, when I try to delete a file that is in my list, I can't because I get an error. I haven't learned how to delete files yet so if anyone can clue me in, that would help out a lot.

Private Sub Command3_Click()
Kill File1.path & "\" & File1.FileName << Says there's an error in this line
File1.Refresh
End Sub


Any help is greatly appreciated, thanks!

[TomGibbons]

What does the error message say?

[xero18]

Run-time error '53':

File not found



The purpose of the delete button is to delete a file that I added from my hard drive into my playlist... So I click on the file and then click delete and that's the error message that I get.

[TomGibbons]

Are you making sure the file is actually there, you dont have the path incorrect or somthing

[xero18]

Yeah I'm sure it's there........ I select it and it becomes highlighted and then click delete and i get that error.

[cboffsite]

does file1.path already have a '\' at the end of it?

[xero18]

No, it does not...

[cboffsite]

try this for debugging:


Private Sub Command3_Click()
a=File1.path & "\" & File1.FileName
msgbox a
Kill a
File1.Refresh
End Sub

[xero18]

Doesn't work... Can you please e-mail me at [email protected] so I can send you the program and you can see what's wrong? That would be so great of you... Thanks.

[Illspirit]

Dim sFile As String
sFile = Replace(File1.Path & "\" & File1.FileName, "\\", "\")
 
If Dir(sPath) = vbNullString Then
    MsgBox "The following file does not exist:" & vbCrLf & sFile, vbExclamation
Else
    Kill sFile
End If