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

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