Print

Please login or register.
1 Hour 1 Day 1 Week 1 Month Forever
Login with username, password and session length

[samwin241]

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