ASP編程入門進階（十七）：FSO組件之檔案夾操作

fso|編程|fso 操作完磁碟機，接著就是來操作檔案夾了。其中包括：提取檔案夾資訊、建立檔案夾、刪除檔案夾、複製檔案夾、移動檔案夾等。下面就具體來看。

一、fso.GetFolder
一看就明白，是提取檔案夾了。那具體是提取哪個檔案夾呢？後面肯定要跟一個檔案夾的路徑。提取出來了再來顯示該檔案夾相關資訊呢？是不是有要具體提取下去。所以，看程式：
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 If

Response.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檔案夾確實已被刪除。

注意，有時需要刪除檔案夾，而該檔案夾不存在時，會出現程式邏輯性錯誤。則應先判斷檔案夾的狀態。



<%
dir=server.mappath("cnbruce")
Set fso = CreateObject("Scripting.FileSystemObject")
if (fso.FolderExists(dir)) then
fso.DeleteFolder(dir)
response.write("cnbruce檔案夾已經刪除")
else
fso.CreateFolder(dir)
response.write("cnbruce檔案夾已經建立")
end if
%>




那下面就採用一個通用程式來靈活應變下。

4，mainflr.asp


<%
Sub CreateAFolder(file)
Dim fso
Set fso = CreateObject("Scripting.FileSystemObject")
fso.CreateFolder(file)
response.write "已經建立了"&file
End Sub

Sub DeleteAFolder(file)
Dim fso
Set fso = CreateObject("Scripting.FileSystemObject")
fso.DeleteFolder(file)
response.write "已經刪除了"&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>



需要注意的是：刪除並不會提示“確認要清除”這項。這點你需要謹慎處理，特別是對你的系統檔案夾。

四、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盤根目錄下的。（話比較長-_-!）

當然，其拷貝也是將該檔案夾包括裡面所以子檔案夾和檔案統統拷貝。