1，getfldr.asp
<%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 ifresponse.write "驅動器名字是：" & fldr.drive & "<br>"%>
首先建立fso組件的連接是必不可少的啦，然後set fldr = fso.getfolder("c:\program files")設定fldr對象被賦值，以作下面程序的引用。
fldr.isrootfolder即為判斷該文件夾是否為壹根文件夾，值為布爾值（true or false）；fldr.drive則顯示該文件夾所在的驅動器號了。
二、fso.createfolder
下面比較讓人激動的是通過asp建立文件夾了，妳可以在妳的權力範圍內任意位置建立任意文件夾。
2，creatfldr.asp
<%set fso = createobject("scripting.filesystemobject")fso.createfolder ("c:\cnbruce")response.write "文件夾名為" & fso.getbasename("c:\cnbruce")%>
執行程序，應該發現c盤多出了cnbruce文件夾，fso.getbasename則是提取文件夾名。
三、fso.deletefolder
通過asp可以建立了文件夾，則同樣可以刪除文件夾。
3，delfldr.asp
<%set fso = createobject("scripting.filesystemobject")fso.deletefolder("c:\cnbruce")response.write "文件夾已刪除"%>
發現剛建立的cnbruce文件夾確實已被刪除。
那下面就采用壹個通用程序來靈活應變下。
4，mainflr.asp
<%sub createafolder(file) dim fso set fso = createobject("scripting.filesystemobject") fso.createfolder(file) response.write "已經建立了"&fileend subsub deleteafolder(file) dim fso set fso = createobject("scripting.filesystemobject") fso.deletefolder(file) response.write "已經刪除了"&fileend 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>
需要註意的是：刪除並不會提示“確認要放入回收站”這項。這點妳需要謹慎處理，特別是對妳的系統文件夾。
四、fso.movefolder
主要作用是進行文件夾的移動，相當於剪切粘貼動作。
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文件夾有沒有移動過來</a>
格式：fso.movefolder "被移動的文件夾","移動到的文件夾"
本程序先是在c盤下建立了cnbruce文件夾，然後將其移動到c:\program files\文件夾下面。
不過同樣需要註意的是妳的系統文件夾不能亂移動。
五、fso.copyfolder
主要作用：將文件夾從某位置復制到另壹位置。
6，copyfldr.asp
<%set fso = createobject("scripting.filesystemobject")fso.copyfolder "c:\program files\cnbruce", "c:\"%><a href="c:\">查看cnbruce文件夾有沒有復制過來</a>
該程序是建立在上壹movefldr.asp的執行結果基礎之上來完成復制到c盤根目錄下的。（話比較長-_-!）
當然，其拷貝也是將該文件夾包括裏面所以子文件夾和文件統統拷貝。
到最後再試著將c:\program files\cnbruce和c:\cnbruce兩個文件夾進行刪除掉吧。
用asp顯示指定文件夾中的全部圖片 [separator]
程序代碼
<%
Option Explicit
dim infopath '當前路徑
dim serverpath '服務器路徑
dim objfso '文件組件
dim objfile '文件
dim objfolder '目錄
dim objfoldercontents '所有文件
dim objfoldercount '臨時數組變量-文件夾
dim objfileitem '臨時數組變量-文件
infopath=request.servervariables("path_info") '得到文件相對路徑
serverpath=server.mappath(infopath) '得到文件絕對路徑
set objfso=createobject("scripting.filesystemobject") '實例文件組件
set objfile=objfso.GetFile(serverpath) '讀取文件所在路徑
set objfolder=objfile.parentfolder '根據文件所在路徑得到上級目錄
set objfoldercontents=objfolder.files '所有文件付給數組
response.write "<table width=100% border=0><tr>"
response.write "<td>文件名</td>"
response.write "<td>文件屬性</td>"
response.write "<td>文件大小</td>"
response.write "<td>更新日期</td></tr>"
for each objfoldercount in objfolder.subfolders '循環顯示文件夾
response.write "<tr><td><a href=?path="&objfoldercount.name&">"&objfoldercount.name&"</td>" '文件夾名稱
response.write "<td>"&objfoldercount.type&"</td>" '文件夾屬性
response.write "<td> </td>" '文件夾大小
response.write "<td>"&objfoldercount.DateCreated&"</td>" '時間
next
for each objfileitem in objfoldercontents '循環
response.write "<tr><td><a href="&objfileitem.name&">"&objfileitem.name&"</a></td>" '文件名
response.write "<td>"&objfileitem.type&"</td>" '類型
response.write "<td>"&objfileitem.size&"k</td>" '文件大小
response.write "<td>"&objfileitem.datelastmodified&"</td></tr>" '更新日期
next
response.write "</table>"
%>