close

//寫檔案
 function WriteToFile(text) {
   
    var fso = new ActiveXObject(”Scripting.FileSystemObject”);

    var fileFrom =document.getElementById(”fileFrom”).value;
    var fileTo =document.getElementById(”fileTo”).value;
    var file=”Data”+fileFrom+”0000-”+fileTo+”0000.txt”;
    var folder =”c:\\GovData\\LonLat\\”;
    var f=folder+file;

    var s = fso.CreateTextFile(f, true);
    s.WriteLine(’<?xml version=”1.0″ encoding=”utf-8″ ?>’);
    s.WriteLine(text);
    s.Close();
 }

arrow
arrow
    全站熱搜

    包爾伯 發表在 痞客邦 留言(0) 人氣()