帮忙写个程序（VB）

'------------------------------------------------------------
'删除指定文件
'------------------------------------------------------------
Function DelFile(FileName)
path=Server.MapPath(FileName)
Set fso = CreateObject("Scripting.FileSystemObject")
if fso.FileExists(path) then
Set f1 = fso.GetFile(path)
f1.delete
end if
End Function

调用的时候
<%
FileName = "XXX/XXX.jpg" '要删除的文件的路径
DelFile(FileName)
%>

fso都行。
引用：microsoft scripting runtime
定义：Dim fso As New FileSystemObject
fso.deletefile 方法：
DeleteFile 方法
描述
删除一个指定的文件。
语法
object.DeleteFile filespec[, force]
DeleteFile 方法语法有如下几部分：
部分 描述
object 必需的。始终是一个 FileSystemObject 的名字。
filespec 必需的。要删除文件的名字。Filespec 可以在最后的路径部件中包含通配符。
force 可选的。Boolean 值，如果要删除具有只读属性设置的文件，其值为 True。如果其值为 False （缺省），则不能删除具有只读属性设置的文件。

说明
如果没有发现相匹配的文件，则产生一个错误。Delet