主頁 > 知識庫 > ASP編程入門進(jìn)階(十七):FSO組件之文件夾操作

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

熱門標(biāo)簽:沈陽三五防封電銷卡 成都ai外呼系統(tǒng)線路 鄢陵學(xué)校如何做地圖標(biāo)注 長春公司外呼系統(tǒng)中心 廣東語音外呼系統(tǒng)公司 鄭州智能外呼電銷機(jī)器人廠家 沈陽電話機(jī)器人公司 虛擬電話外呼系統(tǒng) 云南便宜外呼系統(tǒng)平臺
操作完驅(qū)動器,接著就是來操作文件夾了。其中包括:提取文件夾信息、創(chuàng)建文件夾、刪除文件夾、復(fù)制文件夾、移動文件夾等。下面就具體來看。

一、fso.GetFolder
一看就明白,是提取文件夾了。那具體是提取哪個文件夾呢?后面肯定要跟一個文件夾的路徑。提取出來了再來顯示該文件夾相關(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ū)動器名字是:" fldr.Drive "br>"
%>


首先建立FSO組件的連接是必不可少的啦,然后Set fldr = fso.GetFolder("c:\Program Files")設(shè)定fldr對象被賦值,以作下面程序的引用。

fldr.IsRootFolder即為判斷該文件夾是否為一根文件夾,值為布爾值(true or false);fldr.Drive則顯示該文件夾所在的驅(qū)動器號了。

二、fso.CreateFolder
下面比較讓人激動的是通過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文件夾確實已被刪除。

注意,有時需要刪除文件夾,而該文件夾不存在時,會出現(xiàn)程序邏輯性錯誤。則應(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
%>



那下面就采用一個通用程序來靈活應(yīng)變下。

4,mainflr.asp


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

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


需要注意的是:刪除并不會提示“確認(rèn)要放入回收站”這項。這點你需要謹(jǐn)慎處理,特別是對你的系統(tǒng)文件夾。

四、fso.MoveFolder
主要作用是進(jìn)行文件夾的移動,相當(dāng)于剪切粘貼動作。

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\文件夾下面。

不過同樣需要注意的是你的系統(tǒng)文件夾不能亂移動。

五、fso.CopyFolder
主要作用:將文件夾從某位置復(fù)制到另一位置。
6,copyfldr.asp


%
Set fso = CreateObject("Scripting.FileSystemObject")
fso.CopyFolder "c:\Program Files\cnbruce", "c:\"
%>
a href="C:\">查看cnbruce文件夾有沒有復(fù)制過來/a>


該程序是建立在上一movefldr.asp的執(zhí)行結(jié)果基礎(chǔ)之上來完成復(fù)制到C盤根目錄下的。(話比較長-_-!)

當(dāng)然,其拷貝也是將該文件夾包括里面所以子文件夾和文件統(tǒng)統(tǒng)拷貝。

到最后再試著將c:\Program Files\cnbruce和c:\cnbruce兩個文件夾進(jìn)行刪除掉吧。

不過,繼續(xù)提醒你:不要寫錯了,比如寫成c:\Program Files,那你就慘了:這叫玩命,學(xué)ASP玩出心跳出來了。

對文件夾的操作差不多了,是不是感到用處比較大?有訓(xùn)言:好東西是把雙刃劍。正義和邪惡就只一線間,注意正規(guī)合理利用該組件。不過還有你放心的是,現(xiàn)在網(wǎng)站空間服務(wù)商對這權(quán)力已經(jīng)限定得死死的了,你再怎么鬧翻也不會冒泡的:)

然后接下來就是更微妙的:FSO對文件的操作。

標(biāo)簽:四平 平頂山 孝感 防城港 馬鞍山 朝陽 湖北 遼陽

巨人網(wǎng)絡(luò)通訊聲明:本文標(biāo)題《ASP編程入門進(jìn)階(十七):FSO組件之文件夾操作》,本文關(guān)鍵詞  ASP,編程,入門,進(jìn)階,十七,;如發(fā)現(xiàn)本文內(nèi)容存在版權(quán)問題,煩請?zhí)峁┫嚓P(guān)信息告之我們,我們將及時溝通與處理。本站內(nèi)容系統(tǒng)采集于網(wǎng)絡(luò),涉及言論、版權(quán)與本站無關(guān)。
  • 相關(guān)文章
  • 下面列出與本文章《ASP編程入門進(jìn)階(十七):FSO組件之文件夾操作》相關(guān)的同類信息!
  • 本頁收集關(guān)于ASP編程入門進(jìn)階(十七):FSO組件之文件夾操作的相關(guān)信息資訊供網(wǎng)民參考!
  • 推薦文章