删除某个文件

2010-1-31 08:05| 发布者: admin| 查看: 62| 评论: 0|原作者: 心然

'函数ID：0006[删除某个文件]
'函数名：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