ASP的cs资料中怎样定期删除固定文件夹中的文件

   string  FF = Server.MapPath(file);

   Set objFSO = Server.CreateObject("Scripting.FileSystemObject");

   objFSO.DeleteFile(Server.MapPath(file));

sub delfile()

  '当前时间,设定时间

  dim currentTime,strTime

  currentTime=Day(date())

  strTime=2 每月2号

  if datediff("d",currentTime,strTime)=0 then

    set fso=Server.CreateObject("scripting.filesystemobject")

    if server.mappath() then

      fso.deletefile server.mappath() 

    end if

  end if

end sub