Hi All,
Saw a post in the main forum about SilentDeleteFile() and getting Out Of Memory Errors in VB6.
Still can't find a way around the error can any one pls help?
Here's another example of just trying to delete a file directly with a standard button:
Private Sub btnDeleteTracks_Click()
Dim tfile As Object
On Error GoTo errorhandler
Set tfile = myobj.GetFile("C:\Music\01-Soundtracks\M\Mamma Mia\Mamma Mia - 01 - Sophie - Overture, Prologue.mp3")
' SendKeys()
' If tfile.deletefile(frmMCControl.hWnd) <> False Then
If tfile.SilentDeleteFile <> False Then
btnDeleteTracks.Caption = "Deleted"
btnDeleteTracks.Enabled = False
Else
btnDeleteTracks.Caption = "Not Deleted"
End If
Exit Sub
errorhandler:
' btnDeleteTracks.Caption = "ERROR"
poLog.LogError Err, "Delete Track"
End Sub