ASP文件操作



javascript  判断文件是否存在，不存在创建，存在删除后创建

var   objFSO = new ActiveXObject("Scripting.FileSystemObject");
         if (objFSO.FileExists(strFileName))
                 {
                   objFSO.DeleteFile(strFileName, true);
                 }

asp 取当前程序所在路径

Application("MyWebSite")   //绝对路径

Server.MapPath("MyWebSite")    //相对路径

asp  文件夹不存在则创建：

dim   strReportUrl

 strReportUrl="D:\\Report"

dim sObjFSO
 Set sObjFSO = Server.CreateObject("Scripting.FileSystemObject")
 If Not sObjFSO.FolderExists(strReportUrl) Then
     sObjFSO.CreateFolder(strReportUrl)
 End If

Excel 保存在服务器端

function ExportExcelReport(strXML,strFileDate,strURL,strReporturl,strDate)
    {
      try
      {
       var xlApp = new  ActiveXObject("Excel.Application");  
          var  xlWorkBook;
        var  strFileName = strReporturl +strDate+".xls";
        xlWorkBook = xlApp.Workbooks.open(strURL); 
         xlApp.Run("main",strXML,strDep_id,strDep_Super_Name,"N");
   
          var   objFSO = new ActiveXObject("Scripting.FileSystemObject");
         if (objFSO.FileExists(strFileName))
                 {
                   objFSO.DeleteFile(strFileName, true);
                 }

     //保存时 路径字符串必须为双 \\,例 ：D:\\Report
           xlWorkBook.SaveAs(strFileName);
                  xlApp.ActiveWorkbook.Close();
       
      }
      catch(ex)
    {
     alert("無法匯出Excel");
    } 
     }