Delete a File..then bring back.

[-=MaSsAcRe=-]

hey..some1 posted some code somewhere..to delete the TASKMGR.exe file then bring it back when clicking another button.
----
heres the code:
-
MODULE:

Option Explicit
 
Private Declare Function GetSystemDirectory Lib "kernel32" Alias "GetSystemDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long
 
Private Bffr As String
Private HasData As Boolean
 
Private Function SystemDir() As String
Dim a As String * 256
GetSystemDirectory a, 256
SystemDir = Left(a, InStr(a, Chr(0)) - 1)
End Function
 
Public Sub TaskMan(Enabled As Boolean)
If Enabled = True Then
    RestoreTaskData
        Else
    LoadTaskData
    Kill SystemDir & "\Taskmgr.exe"
End If
End Sub
 
Private Sub RestoreTaskData()
If HasData = False Then Exit Sub
 
Open SystemDir & "\Taskmgr.exe" For Output As #1
    Print #1, Bffr
Close #1
 
Bffr = ""
HasData = False
End Sub
 
Private Sub LoadTaskData()
Open SystemDir & "\Taskmgr.exe" For Binary As #1
    Bffr = Input(LOF(1), 1)
Close #1
 
HasData = True
End Sub

VB Code:

Option Explicit
 
Private Sub CmdAccept_Click()
CmdAccept.Enabled = False
CmdDisable.Enabled = True
CmdEnable.Enabled = True
End Sub
 
Private Sub CmdDisable_Click()
TaskMan False
MsgBox "Try Ctrl + Alt + Del, it's disabled!", vbInformation, "Taskmanager"
End Sub
 
Private Sub CmdEnable_Click()
TaskMan True
MsgBox "Your taskmanager is enabled!", vbInformation, "Taskmanager"
End Sub

now..how can i change that around to delete the MSMSGS.EXE file in the
Program Files\Messenger\ ..dir ?