'函数名：DelFile

'作 用：删除某个文件

'参 数：dFilename ---- 被删除的文件名（包括路径）

'返回值：文件删除返回True,否则False

'**************************************************

Public Function DelFile(ByVal dFilename)

Dim M_fso

DelFile=False

Set M_fso = CreateObject("Scripting.FileSystemObject")

If M_fso.FileExists(dFilename) Then

M_fso.DeleteFile(dFilename)

DelFile=True

End If

Set M_fso = Nothing

End Function