操作完驅動器,接著就是來操作文件夾了。其中包括:提取文件夾信息、創建文件夾、刪除文件夾、複製文件夾、移動文件夾等。下面就具體來看。
一、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 %> |
那下面就採用一個通用程序來靈活應變下。