WEB开发技术知识库

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