ASP編程入門進(jìn)階（十七）：FSO組件之文件夾操作

2024-05-04 10:58:37

字體：大中小

供稿：網(wǎng)友

操作完驅(qū)動(dòng)器，接著就是來操作文件夾了。其中包括：提取文件夾信息、創(chuàng)建文件夾、刪除文件夾、復(fù)制文件夾、移動(dòng)文件夾等。下面就具體來看。

一、fso.GetFolder
一看就明白，是提取文件夾了。那具體是提取哪個(gè)文件夾呢？后面肯定要跟一個(gè)文件夾的路徑。提取出來了再來顯示該文件夾相關(guān)信息呢？是不是有要具體提取下去。所以，看程序：
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 "驅(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)的是通過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
通過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è)通用程序來靈活應(yīng)變下。

上一篇：使用ASP列出NT用戶組及用戶

下一篇：ASP編程入門進(jìn)階（二十）：ADO組件之刪除數(shù)據(jù)記錄