指定したファイルが存在しなければ削除するサンプルです。

If FileDelete("C:\test.txt") = 0 Then
    MsgBox "削除に成功しました"
Else
    MsgBox "削除に失敗しました"
End If

' 指定されたファイルが存在すれば削除する。
' **********************************
' 関数名		FileDelete
' 関数概要		ファイルが存在していたら削除する。
' 引数			serchFile		検索対象のファイルパス
' 戻り値		1				削除成功
' 				0				削除失敗
' **********************************
Function FileDelete(stringPath)
    Dim wsh
    Dim result
    Dim cmd
    Set wsh = WScript.CreateObject("WScript.Shell")
	
    If FileExist(stringPAth) = 1 Then
        cmd = "cmd /c DEL" & " " & """" & stringPath & """"
        WScript.Echo cmd
        FileDelete = wsh.Run(cmd,1,true)
    End If
	
    Set wsh = Nothing
End Function

' **********************************
' 関数名		FileExist
' 関数概要		ファイルが存在するか確認する。
' 引数			serchFile		検索対象のファイルパス
' 戻り値		1				存在する
' 				0				存在しない
' **********************************
Function FileExist(serchFile)
    Dim objFSO		' FileSystemObject
    Dim strFile		' フォルダ名
    Dim strMessage	' 表示用メッセージ
    strFile = serchFile
    Set objFSO = WScript.CreateObject("Scripting.FileSystemObject")
    FileExist = 0' 送信元フォルダが存在している場合は1をセット

    If Err.Number = 0 Then
        If objFSO.FileExists(strFile) = True Then
            FileExist = 1
        End If
    End If	
    ' オブジェクトの破棄
    Set objFSO = Nothing
End Function

Pocket