删除某个文件

2006-6-25 0:08:26　　作者：模板天下收集整理　　来源：未知　网友评论 0 条　论坛

　　'函数名：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

>> 相关文章