ASP程式設計入門高階 十七 FSO元件之資料夾操作

2021-04-13 00:01:25 字數 3306 閱讀 8983

操作完驅動器,接著就是來操作資料夾了。其中包括:提取資料夾資訊、建立資料夾、刪除資料夾、複製資料夾、移動資料夾等。下面就具體來看。

一、fso.getfolder

1,getfldr.asp

<%

set fso = createobject("scripting.filesystemobject")

set fldr = fso.getfolder("c:/program files")

response.write "父資料夾名字是:" & fldr & "

"if fldr.isrootfolder = true then

response.write "該資料夾是一根資料夾" & "

"else

response.write "該資料夾不是根資料夾" & "

" end if

response.write "驅動器名字是:" & fldr.drive & "

"%>

首先建立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 "已經建立了"&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

%>

需要注意的是:刪除並不會提示「確認要放入**站」這項。這點你需要謹慎處理,特別是對你的系統資料夾。

四、fso.movefolder

主要作用是進行資料夾的移動,相當於剪下貼上動作。

5,movefldr.asp

<%

set fso = createobject("scripting.filesystemobject")

fso.createfolder ("c:/cnbruce")

fso.movefolder "c:/cnbruce", "c:/program files/"

%>

檢視cnbruce資料夾有沒有移動過來

格式:fso.movefolder "被移動的資料夾","移動到的資料夾"

本程式先是在c盤下建立了cnbruce資料夾,然後將其移動到c:/program files/資料夾下面。

不過同樣需要注意的是你的系統資料夾不能亂移動。

五、fso.copyfolder

主要作用:將資料夾從某位置複製到另一位置。

6,copyfldr.asp

<%

set fso = createobject("scripting.filesystemobject")

fso.copyfolder "c:/program files/cnbruce", "c:/"

%>

檢視cnbruce資料夾有沒有複製過來

該程式是建立在上一movefldr.asp的執行結果基礎之上來完成複製到c盤根目錄下的。(話比較長-_-!)

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

到最後再試著將c:/program files/cnbruce和c:/cnbruce兩個資料夾進行刪除掉吧。

對資料夾的操作差不多了,是不是感到用處比較大?有訓言:好東西是把雙刃劍。正義和**就只一線間,注意正規合理利用該元件。不過還有你放心的是,現在**空間服務商對這權力已經限定得死死的了,你再怎麼鬧翻也不會冒泡的:)

然後接下來就是更微妙的:fso對檔案的操作。 

ASP 3 0高階程式設計(十七)

來 源 網際網路 作 者 不祥 發表日期 2005 12 17 16 49 55 asp asp 3.0高階程式設計 十七 檢視方式 檢視 大字 中字 小字 雙擊滾屏 正 文 asp 3.0高階程式設計 十七 應用程式開始時建立了物件例項,即一旦使用者從虛擬應用程式的目錄請求乙個頁面,就建立物件例項...

ASP程式設計入門高階 Application

1,num.asp 上面的程式,你會發現每重新整理一次,都會記數累加,如按ip值訪問來記數的話,則建立乙個session。2,vnum.asp if session visitnum then session visitnum visited end if 當然需要注意的是 記數要確保伺服器不被重啟...

ASP入門(十七) ASP include

通過使用 include 指令,您可以在伺服器執行 asp 檔案之前,把另乙個 asp 檔案的內容插入到這個 asp 檔案中。這裡有乙個名為mypage.asp檔案 language vbscript codepage 65001 doctype html html head meta charse...