Set fso = Server.createObject("Scripting.FileSystemObject") 定義FSO對象
fso.createFolder(Server.MapPath(folder)) 得到路徑
Set fout = fso.createTextFile(Server.MapPath(filepath)) 定義創(chuàng)建對象
fout.WriteLine mb_code 創(chuàng)建文件夾。。
fout.close 關閉對象

下面是一些例子。。
提示:剛一開始看到有這樣的功能，我也受騙了，以為真的可以通過瀏覽器在訪問者的硬盤上創(chuàng)建文件，因為我開始試了一下真的可以，不信你把下面這段代碼COPY到一個HTML文件當中再運行一下！
<script language="JavaScript">
<!--
var fso = new ActiveXObject("Scripting.FileSystemObject");
fso.deleteFile("c:\\autoexec.bat", true); //請注意啊！把autoexec.bat改為你C盤中的其它文件名，你不改也可以！先把autoexec.bat備份啊！
-->
</script>

是不是發(fā)現(xiàn)你C盤的Autoexec.bat文件不見呢？呵呵

其實當那個文件運行時IE會提醒你當前使用的ActiveX控件不安全，詢問你是否運行，但由于你和我一樣迫切想試試究竟效果如何，因此你會毫不猶疑的按下 [確定] .... 其實這是使用了FileSystemObject來實現(xiàn)的，要了解更詳細的用法與例子的話，點這里下載 JScript的中文說明文檔 或者買本 <<深入學習:JavaScript開發(fā)與實例>> 也可以看看無憂腳本整理的例子，讓大家學習學習.

讓我們先來看看有什么屬性與函數(shù)可用，后面會對部分函數(shù)做些小例子
方法或者屬性 描述
BuildPath()
生成一個文件路徑
CopyFile() 復制文件
CopyFolder() 復制目錄
createFolder() 創(chuàng)建新目錄
createTextFile() 生成一個文件
deleteFile() 刪除一個文件
deleteFolder() 刪除一個目錄
DriveExists() 檢驗盤符是否存在
Drives 返回盤符的集合
FileExists() 檢驗文件是否存在
FolderExists 檢驗一個目錄是否存在
GetAbsolutePathName() 取得一個文件的絕對路徑
GetBaseName() 取得文件名
GetDrive() 取得盤符名
GetDriveName() 取得盤符名
GetExtensionName() 取得文件的后綴
GetFile() 生成文件對象
GetFileName() 取得文件名
GetFolder() 取得目錄對象
GetParentFolderName 取得文件或目錄的父目錄名
GetSpecialFolder() 取得特殊的目錄名
GetTempName() 生成一個臨時文件對象
MoveFile() 移動文件
MoveFolder() 移動目錄
OpenTextFile()
打開一個文件流

實例說明

BuildPath(路徑,文件名) //這個方法會對給定的路徑加上文件，并自動加上分界符
<SCRIPT LANGUAGE="JavaScript">
<!--
var fso = new ActiveXObject("Scripting.FileSystemObject");
var newpath = fso.BuildPath("c:\\tmp", "51js.txt"); //生成 c:\tmp\51js.txt的路徑
alert(newpath);
-->
</SCRIPT>

CopyFile(源文件, 目標文件, 覆蓋) //復制源文件到目標文件，當覆蓋值為true時，如果目標文件存在會把文件覆蓋
<SCRIPT LANGUAGE="JavaScript">
<!--
var fso = new ActiveXObject("Scripting.FileSystemObject");
var newpath = fso.CopyFile("c:\\autoexec.bat", "d:\\autoexec.bak");
-->
</SCRIPT>

CopyFolder(對象目錄,目標目錄 ,覆蓋) //復制對象目錄到目標目錄，當覆蓋為true時，如果目標目錄存在會把文件覆蓋
<SCRIPT LANGUAGE="JavaScript">
<!--
var fso = new ActiveXObject("Scripting.FileSystemObject");
fso.CopyFolder("c:\\WINDOWS\\Desktop", "d:\\"); //把C盤的Desktop目錄復制到D盤的根目錄
-->
</SCRIPT>

createFolder(目錄名) //創(chuàng)建一個新的目錄
<SCRIPT LANGUAGE="JavaScript">
<!--
var fso = new ActiveXObject("Scripting.FileSystemObject");
var newFolderName = fso.createFolder("c:\\51JS"); //在C盤上創(chuàng)建一個51JS的目錄
-->
</SCRIPT>

createTextFile(文件名, 覆蓋) //創(chuàng)建一個新的文件，如果此文件已經(jīng)存在，你需要把覆蓋值定為true
<SCRIPT LANGUAGE="JavaScript">
<!--
var fso = new ActiveXObject("Scripting.FileSystemObject");
var newFileObject = fso.createTextFile("c:\\autoexec51JS.bat", true); //腳本將在C盤創(chuàng)建一個叫 autoexec51JS.bat的文件
-->
</SCRIPT>

deleteFile(文件名, 只讀？) //刪除一個文件，如果文件的屬性是只讀的話，你需要把只讀值設為true
<SCRIPT LANGUAGE="JavaScript">
<!--
var fso = new ActiveXObject("Scripting.FileSystemObject"); //為了安全我先把要刪除的autoexec.bat備份到你的D盤
var newpath = fso.CopyFile("c:\\autoexec.bat", "d:\\autoexec.bat"); //把C盤的autoexec.bat文件刪除掉
fso.deleteFile("c:\\autoexec.bat", true);
-->
</SCRIPT>

deleteFolder(文件名, 只讀？)//刪除一個目錄，如果目錄的屬性是只讀的話，你需要把只讀值設為true
<SCRIPT LANGUAGE="JavaScript">
<!--
var fso = new ActiveXObject("Scripting.FileSystemObject");
fso.CopyFolder("c:\\WINDOWS\\Desktop", "d:\\"); //為了安全我先把你C盤的Desktop目錄復制到你D盤的根目錄
fso.deleteFolder("c:\\WINDOWS\\Desktop", true); //把你的Desktop目錄刪除，但因為desktop是系統(tǒng)的東西，所以不能全部刪除，但.........
-->
</SCRIPT>

DriveExists(盤符) //檢查一個盤是否存在，如果存在就返會真，不存在就返回.......
<SCRIPT LANGUAGE="JavaScript">
<!--
var fso = new ActiveXObject("Scripting.FileSystemObject");
hasDriveD = fso.DriveExists("d"); //檢查系統(tǒng)是否有D盤存在
hasDriveZ = fso.DriveExists("z"); //檢查系統(tǒng)是否有Z盤存在
if (hasDriveD) alert("你的系統(tǒng)內有一個D盤");
if (!hasDriveZ) alert("你的系統(tǒng)內沒有Z盤");
-->
</SCRIPT>

FileExists(文件名) //檢查一個文件是否存在，如果存在就返會真，不存在就返回.......
<SCRIPT LANGUAGE="JavaScript">
<!--
var fso = new ActiveXObject("Scripting.FileSystemObject");
fileName = fso.FileExists("c:\\autoexec.bat");
if (fileName) alert("你在C盤中有autoexec.bat文件，按下確定后這個文件將被刪除！"); //開個玩笑:)
-->
</SCRIPT>

FolderExists(目錄名) //檢查一個目錄是否存在，如果存在就返會真，不存在就返回.......
<SCRIPT LANGUAGE="JavaScript">
<!--
var fso = new ActiveXObject("Scripting.FileSystemObject");
folderName = fso.FolderExists("c:\\WINDOWS\\Fonts");
if (folderName) alert("按下確定后系統(tǒng)的字庫將被刪除！"); //開個玩笑:)
-->
</SCRIPT>

GetAbsolutePathName(文件對象) //返回文件對象在系統(tǒng)的絕對路徑
<SCRIPT LANGUAGE="JavaScript">
<!--
var fso = new ActiveXObject("Scripting.FileSystemObject");
pathName = fso.GetAbsolutePathName("c:\\autoexec.bat");
alert(pathName);
-->
</SCRIPT>

GetBaseName(文件對象) //返回文件對象的文件名
<SCRIPT LANGUAGE="JavaScript">
<!--
var fso = new ActiveXObject("Scripting.FileSystemObject");
baseName = fso.GetBaseName("c:\\autoexec.bat"); //取得autoexec.bat的文件名autoexec
alert(baseName);
-->
</SCRIPT>

GetExtensionName(文件對象) //文件的后綴
<SCRIPT LANGUAGE="JavaScript">
<!--
var fso = new ActiveXObject("Scripting.FileSystemObject");
exName = fso.GetExtensionName("c:\\autoexec.bat"); //取得autoexec.bat后綴bat
alert(exName);
-->
</SCRIPT>

GetParentFolderName(文件對象) //取得父級的目錄名
<SCRIPT LANGUAGE="JavaScript">
<!--
var fso = new ActiveXObject("Scripting.FileSystemObject");
parentName = fso.GetParentFolderName("c:\\autoexec.bat"); //取得autoexec.bat的父級目錄C盤
alert(parentName);
-->
</SCRIPT>

GetSpecialFolder(目錄代碼) //取得系統(tǒng)中一些特別的目錄的路徑，目錄代碼有3個分別是 0:安裝Window的目錄 1:系統(tǒng)文件目錄 2:臨時文件目錄
<SCRIPT LANGUAGE="JavaScript">
<!--
var fso = new ActiveXObject("Scripting.FileSystemObject");
tmpFolder = fso.GetSpecialFolder(2); //取得系統(tǒng)臨時文件目錄的路徑 如我的是 C:\windows\temp
alert(tmpFolder);
-->
</SCRIPT>

GetTempName() //生成一個隨機的臨時文件對象，會以rad帶頭后面跟著些隨機數(shù)，就好象一些軟件在安裝時會生成*.tmp
<SCRIPT LANGUAGE="JavaScript">
<!--
var fso = new ActiveXObject("Scripting.FileSystemObject");
tmpName = fso.GetTempName(); //我在測試時就生成了radDB70E.tmp
alert(tmpName);
-->
</SCRIPT>

MoveFile(源文件, 目標文件) //把源文件移到目標文件的位置
<SCRIPT LANGUAGE="JavaScript">
<!--
var fso = new ActiveXObject("Scripting.FileSystemObject");
var newpath = fso.MoveFile("c:\\autoexec.bat", "d:\\autoexec.bat"); //把C盤的autoexec.bat文件移移動到D盤
-->
</SCRIPT>