Automation服務(wù)器不能創(chuàng)建對(duì)象
最簡單解決方法：打開Internet Explorer “工具”菜單欄中的“選項(xiàng)”一欄，單擊“安全”欄中的“自定義級(jí)別”選項(xiàng)卡，將第三項(xiàng)“對(duì)沒有標(biāo)記為安全的activex控件進(jìn)行初始化和腳本運(yùn)行”設(shè)置成
另外解決辦法參考：http://blog.chinaunix.net/uid-20624711-id-1911481.html
==========
參考：http://www.cnblogs.com/java-boy/archive/2011/03/21/1989911.html
<script type="text/javascript">
/**
*CreateFile: 測試在電腦上創(chuàng)建一個(gè)文件件，并在文件夾里寫進(jìn)一些數(shù)據(jù)。
*
*/
function CreateFile()
{
var fso, tf;
fso = new ActiveXObject("Scripting.FileSystemObject");//獲取對(duì)象
tf = fso.CreateTextFile("c:\\testfile.txt", true);//創(chuàng)建一個(gè)文件夾
// 寫一行，并且?guī)в行滦凶址?br /> tf.WriteLine("Testing 1, 2, 3.") ;
// 向文件寫三個(gè)新行字符。
tf.WriteBlankLines(3) ;
// 寫一行。
tf.Write ("This is a test.");
tf.Close();//關(guān)閉
}
/**
*Folder的API：
*任務(wù) 方法
*創(chuàng)建文件夾。 FileSystemObject.CreateFolder
*刪除文件夾。 Folder.Delete 或 FileSystemObject.DeleteFolder
*移動(dòng)文件夾。 Folder.Move 或 FileSystemObject.MoveFolder
*復(fù)制文件夾。 Folder.Copy 或 FileSystemObject.CopyFolder
*檢索文件夾的名字。 Folder.Name
*如果文件夾在驅(qū)動(dòng)器上存在，則找出它。 FileSystemObject.FolderExists
*獲得現(xiàn)有 Folder 對(duì)象的實(shí)例。 FileSystemObject.GetFolder
*找出文件夾的父文件夾名。 FileSystemObject.GetParentFolderName
*找出系統(tǒng)文件夾的路徑。 FileSystemObject.GetSpecialFolder
*/
function ManipFiles()
{
var fso, f1, f2, s;
fso = new ActiveXObject("Scripting.FileSystemObject");
f1 = fso.CreateTextFile("c:\\testfile.txt", true); //如果當(dāng)前文件已經(jīng)存在的話，則覆蓋原有文件
alert("Writing file <br>");
// 寫一行。
f1.Write("This is a test.");
// 關(guān)閉文件。
f1.Close();
alert("Moving file to c:\\tmp <br>");
if(!fso.FolderExists("c:\\tmp")) { //如果tmp目錄不存在，則創(chuàng)建一個(gè)目錄
fso.CreateFolder("c:\\tmp");
}
// 獲取 C 的根目錄(C:\)中的文件的句柄。
f2 = fso.GetFile("c:\\testfile.txt");
// 把文件移動(dòng)到 \tmp 目錄。如果這個(gè)tmp目錄下已經(jīng)有testfile.txt文件了，則會(huì)出錯(cuò)。（如果沒有tmp這個(gè)文件目錄也會(huì)出錯(cuò)）
f2.Move ("c:\\tmp\\testfile.txt");
alert("Copying file to c:\\temp <br>");
// 把文件復(fù)制到 \temp 目錄
if(!fso.FolderExists("c:\\temp")) {//如果temp目錄不存在，則創(chuàng)建一個(gè)目錄
fso.CreateFolder("c:\\temp");
}
f2.Copy ("c:\\temp\\testfile.txt");
alert("Deleting files <br>");
// 獲得文件當(dāng)前位置的句柄。
f2 = fso.GetFile("c:\\tmp\\testfile.txt");
f3 = fso.GetFile("c:\\temp\\testfile.txt");
// 刪除文件。
f2.Delete();
f3.Delete();
//刪除文件夾
var fdTmp = fso.GetFolder("c:\\tmp");
var fdTemp = fso.GetFolder("c:\\temp");
fdTmp.DeleteFolder();
fdTemp.DeleteFolder();
alert("All done!");
}
ManipFiles();
//CreateFile();
alert("Ok! Write Over!");
</script>