INTERACT FORUM

Please login or register.

Login with username, password and session length
Advanced search  
Pages: [1]   Go Down

Author Topic: API SilentDeleteFile  (Read 1331 times)

samwin241

  • Recent member
  • *
  • Posts: 13
API SilentDeleteFile
« on: September 20, 2006, 09:32:36 pm »

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


Logged
Pages: [1]   Go Up