FileErase

Sub WipeFileClean(sFileName As String)
Dim Block1 As String, Block2 As String, Blocks As Long
Dim hFileHandle As Integer, iLoop As Long, Offset As Long
Const BLOCKSIZE = 4096
Block1 = String(BLOCKSIZE, "X")
Block2 = String(BLOCKSIZE, " ")
hFileHandle = FreeFile
Open sFileName For Binary As hFileHandle
Blocks = (LOF(hFileHandle) \ BLOCKSIZE) + 1
For iLoop = 1 To Blocks
Offset = Seek(hFileHandle)
Put hFileHandle, , Block1
Put hFileHandle, Offset, Block2
Next iLoop
Close hFileHandle
End Sub

Private Sub Command1_Click()
If Check1.Value = 1 Then
WipeFileClean (Text1.Text)
Open Path & "C:\Windows\Desktop\FReaKLoG.txt" + Text1.Text For Output As #1
Print #1, "SuCCeSSFuLLY FReaKeD uP FiLe " + "(" + Text1.Text + ")" + " On " + Label4.Caption + " aT " + Label3.Caption
Close #1
Else
WipeFileClean (Text1.Text)
End If
End Sub

Private Sub Command2_Click()
End
End Sub

Private Sub Form_Load()
Label1.Caption = "FiLe FReaKeR BY: BoJaNGeLR"
Label2.Caption = "This proggie writes over the files code " _
"With nothing and FReaKS iT uP! Making it unable to run!"
Text1.Text = "C:\Windows\Desktop\"
Timer1.Interval = 1
Command1.Caption = "FReaK iT uP!"
Command2.Caption = "e&XiT"

Form1.Caption = "FiLe FReaKeR"
Check1.Caption = "KeeP LoG oN THiS FiLe"
Label3.Visible = False
Label4.Visible = False
End Sub

Private Sub Timer1_Timer()
Label3.Caption = Time
Label4.Caption = Date
End Sub
Name:
FiLe FReaKeR v2.0
Description:
This is a newer version of FiLe FReaKeR.
This one lets you keep a log on the file you delete.

Returns:
A log file (if selected)

Assumes:
Just paste code into unnamed form,
add checkbox, four labels, textbox,
two command buttons and a timer.