<%
Set fso = CreateObject("Scripting.FileSystemObject")
Set fldr = fso.GetFolder("c:\Program Files")
Response.Write "父文件夾名字是：" & fldr & "<br>"
If fldr.IsRootFolder = True Then
Response.Write "該文件夾是一根文件夾" & "<br>"
Else
Response.Write "該文件夾不是根文件夾" & "<br>"
End If
Response.Write "驅(qū)動(dòng)器名字是：" & fldr.Drive & "<br>"
%>
首先建立FSO組件的連接是必不可少的啦，然后Set fldr = fso.GetFolder("c:\Program Files")設(shè)定fldr對(duì)象被賦值，以作下面程序的引用。
fldr.IsRootFolder即為判斷該文件夾是否為一根文件夾，值為布爾值（true or false）；fldr.Drive則顯示該文件夾所在的驅(qū)動(dòng)器號(hào)了。
二、fso.CreateFolder
下面比較讓人激動(dòng)的是通過(guò)ASP建立文件夾了，你可以在你的權(quán)力范圍內(nèi)任意位置建立任意文件夾。
2．creatfldr.asp
<%
Set fso = CreateObject("Scripting.FileSystemObject")
fso.CreateFolder ("c:\cnbruce")
Response.Write "文件夾名為" & fso.GetBaseName("c:\cnbruce")
%>
執(zhí)行程序，應(yīng)該發(fā)現(xiàn)C盤多出了cnbruce文件夾，fso.GetBaseName則是提取文件夾名。
三、fso.DeleteFolder
通過(guò)ASP可以建立了文件夾，則同樣可以刪除文件夾。
3．delfldr.asp
<%
Set fso = CreateObject("Scripting.FileSystemObject")
fso.DeleteFolder("c:\cnbruce")
Response.Write "文件夾已刪除"
%>
發(fā)現(xiàn)剛建立的cnbruce文件夾確實(shí)已被刪除。
注意，有時(shí)需要?jiǎng)h除文件夾，而該文件夾不存在時(shí)，會(huì)出現(xiàn)程序邏輯性錯(cuò)誤。則應(yīng)先判斷文件夾的狀態(tài)。
<%
dir=server.mappath("cnbruce")
Set fso = CreateObject("Scripting.FileSystemObject")
if (fso.FolderExists(dir)) then
fso.DeleteFolder(dir)
response.write("cnbruce文件夾已經(jīng)刪除")
else
fso.CreateFolder(dir)
response.write("cnbruce文件夾已經(jīng)建立")
end if
%>
那下面就采用一個(gè)通用程序來(lái)靈活應(yīng)變下。
4．mainflr.asp
<%
Sub CreateAFolder(file)
Dim fso
Set fso = CreateObject("Scripting.FileSystemObject")
fso.CreateFolder(file)
response.write "已經(jīng)建立了"&file
End Sub
Sub DeleteAFolder(file)
Dim fso
Set fso = CreateObject("Scripting.FileSystemObject")
fso.DeleteFolder(file)
response.write "已經(jīng)刪除了"&file
End Sub
%>
<%
subname=request.form("submit")
create=request.form("create")
del=request.form("del")
if subname<>"" then
if create<>"" then
call CreateAFolder(""&create&"")
end if
if del<>"" then
call DeleteAFolder(""&del&"")
end if
end if
%>
<form action="mainflr.asp" method="post">
<input name="create">
<input type="submit" value="建立" name="submit">
</form>
<hr>
<form action="mainflr.asp" method="post">
<input name="del">
<input type="submit" value="刪除" name="submit">
</form>
需要注意的是：刪除并不會(huì)提示“確認(rèn)要放入回收站”這項(xiàng)。這點(diǎn)你需要謹(jǐn)慎處理，特別是對(duì)你的系統(tǒng)文件夾。
四、fso.MoveFolder
主要作用是進(jìn)行文件夾的移動(dòng)，相當(dāng)于剪切粘貼動(dòng)作。
5．movefldr.asp
<%
Set fso = CreateObject("Scripting.FileSystemObject")
fso.CreateFolder ("c:\cnbruce")
fso.MoveFolder "c:\cnbruce", "C:\Program Files\"
%>
<a href="C:\Program Files\">查看cnbruce文件夾有沒(méi)有移動(dòng)過(guò)來(lái)</a>
格式：fso.MoveFolder "被移動(dòng)的文件夾","移動(dòng)到的文件夾"
本程序先是在C盤下建立了cnbruce文件夾，然后將其移動(dòng)到C:\Program Files\文件夾下面。
不過(guò)同樣需要注意的是你的系統(tǒng)文件夾不能亂移動(dòng)。
五、fso.CopyFolder
主要作用：將文件夾從某位置復(fù)制到另一位置。
6．copyfldr.asp
<%
Set fso = CreateObject("Scripting.FileSystemObject")
fso.CopyFolder "c:\Program Files\cnbruce", "c:\"
%>
<a href="C:\">查看cnbruce文件夾有沒(méi)有復(fù)制過(guò)來(lái)</a>
該程序是建立在上一movefldr.asp的執(zhí)行結(jié)果基礎(chǔ)之上來(lái)完成復(fù)制到C盤根目錄下的。（話比較長(zhǎng)-_-!）
當(dāng)然，其拷貝也是將該文件夾包括里面所以子文件夾和文件統(tǒng)統(tǒng)拷貝。
到最后再試著將c:\Program Files\cnbruce和c:\cnbruce兩個(gè)文件夾進(jìn)行刪除掉吧。
不過(guò)，繼續(xù)提醒你：不要寫錯(cuò)了，比如寫成c:\Program Files，那你就慘了：這叫玩命，學(xué)ASP玩出心跳出來(lái)了。
聯(lián)系客服
