Visual Basic

Public Sub Del_File(ToFile)<br />
For WaitTime As Int16 = 0 To 220<br />
System.Threading.Thread.Sleep(1000)<br />
' Delete temporary file as soon as possible after it is freed.<br />
Try<br />
If DeleteFile(ToFile)=True Then<br />
'File Deleted<br />
Exit For<br />
Else<br />
Del_File(ToFile)<br />
End If<br />
Catch ex As Exception<br />
'<br />
End Try<br />
Next<br />
End Sub

Private Function DeleteTempFile(ByVal timeOut As TimeSpan, byval filePath As String) As Boolean
    Dim endTime As DateTime = DateTime.Now().Add( timeOut )

    While DateTime.Compare( DateTime.Now(), endTime ) < 0
        Try
            ' File class members are static.  You don't need an instance to call them.
            ' The Delete method doesn't return a value, so you have to watch for Exceptions
            ' using a Try/Catch block.
            File.Delete( filePath )
            ' This next statement will only execute if the Delete was successfull.
            Return True
        Catch
            ' Do nothing since we don't care what the error was.
        End Try
        ' This line was added AFTER the original post.
        ' Avoid hogging the CPU so our application can respond to outside messages, like
        ' repainting our window.
        Application.DoEvents()
    End While
    ' If we get to this point, it means that our Timeout expired.  Return False to show that
    ' the file was NOT deleted.
    Return False
End Function

Private Sub FileSystemWatcher1_Changed(ByVal sender As System.Object, ByVal e As System.IO.FileSystemEventArgs) Handles FileSystemWatcher1.Changed<br />
        Try<br />
            File.Delete(FileSystemWatcher1.Path & "\" & FileSystemWatcher1.Filter)<br />
        Catch ex As Exception<br />
            '<br />
        End Try<br />
End Sub