FSO对象
創(chuàng)建FSO對(duì)象:
Set obj=Server.CreateObject(“Scripting.FileSystem
Object”)
? Set var=nothing
!:var為創(chuàng)建的一個(gè)FSO對(duì)象,不使用時(shí)把obj的值清空釋放內(nèi)存
GetDrive(GetDriveName):訪問現(xiàn)有驅(qū)動(dòng)器并提取驅(qū)動(dòng)器名
? Set Gedr=obj.GetDrive(obj.GetDriveName(“E:\empolder”))
Response.Write(Gedr)? ‘輸出E:
? !:用GetDriveName返回包含有文件夾或文件路徑的驅(qū)動(dòng)器.
TotalSize:返回驅(qū)動(dòng)器的總?cè)萘?#xff0c;以字節(jié)為單位
? Set ToSi_GtDr=ToSi_Obj.GetDrive("E:")? ToSi_Val=FormatNumber(ToSi_GtDr.TotalSize/(1024*1024*1024
),5)
? Response.Write(ToSi_Val & " GB")
FreeSpace/AvailableSpace:返回驅(qū)動(dòng)器的可用容量
? set Avsp_gedr=Avsp_obj.GetDrive("E:") Avsp_val=FormatNumber(Avsp_gedr.AvailableSpace/(1024*1024
*1024),5)
DriveLetter: 哪個(gè)號(hào)被賦給了該驅(qū)動(dòng)器
set Drle_gedr=Drle_obj.GetDrive("E:")
Drle_val=Cstr(Drle_gedr.DriveLetter)
? Response.Write(Drle_val)? ‘返回E
DriveType/6: 驅(qū)動(dòng)器的類型,返回整數(shù)值
? set Drty_gedr=Drty_obj.GetDrive("E:")
? ??Drty_val=Cstr(Drty_Gedr.DriveType)
? ??Select Case Drty_val
?? ???Case 0: t="未知"
?? ???Case 1: t="可移動(dòng)"
?? ???Case 2: t="固定"
? ????Case 3: t="網(wǎng)絡(luò)"
? ????Case 4: t="CD-ROM"
? ????Case 5: t="RAM 磁盤"
????? Case else: t=”出錯(cuò)”
? ??end Select
Response.Write("該驅(qū)動(dòng)器為:" & t)
?
?
SerialNumber: 驅(qū)動(dòng)器序列號(hào),返回一個(gè)負(fù)整數(shù)
? Set Senu_gedr=Senu_obj.GetDrive("E:")
? Response.Write(Senu_gedr.SerialNumber)
FileSystem:文件系統(tǒng)類型,比如NTFS
? Set Fisy_gedr=Fisy_obj.GetDrive("E:")
? Response.Write(Fisy_gedr.FileSystem)
IsReady:驅(qū)動(dòng)器是否可用或是否準(zhǔn)備就緒
? Set Isre_gedr=Isre_obj.GetDrive("E:")
? Response.Write(Isre_gedr.IsReady)? '返回布爾值
ShareName(共享)和VolumeName(卷):
返回共享和卷的名字,如果不是網(wǎng)絡(luò)驅(qū)動(dòng)器，那么 ShareName 屬性
將返回長(zhǎng)度為零的字符串 ("")
Set Shna_gedr=Shna_obj.GetDrive("E:")
? if shna_gedr <> null then
? Response.Write(Shna_gedr.ShareName)
? Response.write("<br>" & Shna_gedr.VolumeName)
? else
? Response.Write("null")
? end if
Path和RootFolder: 驅(qū)動(dòng)器的路徑和根文件夾
? Set Path_gedr=Path_obj.GetDrive("E:")
? Response.Write(Path_gedr.Path)? ‘輸出E:
? Response.Write("<br>" & Path_gedr.RootFolder)? ‘輸出E:\
-----------------------------------------------------------
CreateFolder:創(chuàng)建文件夾并返回文件夾名
? Set Crfo=obj.CreateFolder(“E:\em”) ’在E盤創(chuàng)建em文件夾
??? Response.Write(Crfo.Name)
!:不要對(duì)新創(chuàng)建的對(duì)象使用 "get" 方法,Create函數(shù)會(huì)自動(dòng)返回
對(duì)象的句柄
通配符? *? :
?例: d=Crfo_obj.MoveFolder
( "E:\empolder\texty\*","E:\empolder\texty1\")
?? 括號(hào)內(nèi)的*表示將texty目錄下的所有文件夾移動(dòng)到texty1目錄
?? 下,但不移動(dòng)texty目錄下的文件
GetFolder:返回文件夾句柄
? d=Crfo_obj.GetFolder ( "E:\empolder\texty”)
?
?
DeleteFolder:刪除文件夾
?d=crfo_obj.DeleteFolder ("E:\empolder\texty",false)
'或者 crfo_obj.DeleteFolder "E:\empolder\texty",false
response.write("成功刪除E:\empolder\texty文件夾")
!:false表示不刪除只讀文件,true代表刪除只讀文件
MoveFolder:移動(dòng)文件夾
d=Crfo_obj.MoveFolder
( "E:\empolder\texty\12","E:\empolder\texty1\")
!:括號(hào)中逗號(hào)前面的部分是移出的文件夾,不用以\結(jié)束.逗號(hào)后面
? 的部分是移入的文件夾,用\結(jié)束表示把文件移入到\前面的文件
? 夾texty1
CopyFolder:復(fù)制文件夾
? d=crfo_obj.CopyFolder
("E:\empolder\texty\*","E:\empolder\texty1\",true)
? !:true表示是否覆蓋相同的文件夾
FolderExists:找出是否有文件夾,返回布爾值
cr=Crfo_obj.FolderExists("E:\empolder\texty1")
if cr=true then
? response.write("有這個(gè)文件夾")
else
? response.write("沒有這個(gè)文件夾")
?end if
GetParentFolderName:返回文件或文件夾的父文件夾路徑
? cr=Crfo_obj.GetParentFolderName
("E:\empolder\texty1\tr.txt")
? response.write(cr)
GetSpecialFolder: 返回指定的特殊文件夾路徑
0: Windows文件夾路徑? 1:System32系統(tǒng)文件夾路徑?
2:Temp文件夾路徑
? ci=Crfo_obj.GetSpecialFolder(0)
cr=Crfo_obj.GetSpecialFolder(1)
cl=Crfo_obj.GetSpecialFolder(2)
? response.write(ci)? ‘返回F:\WINDOWS
? response.write("<br>" & cr)? ‘返回F:\WINDOWS\system32
? response.write("<br>" & cl)? ‘返回F:\WINDOWS\Temp
?
?
?
---------------------------------------------------------
CreateTextFile:創(chuàng)建文本文件
? Set Crfi=obj.CreateTextFile(“E:\empolder\em.text”，true)
? !:true表示是否覆蓋同名文件
TextStream文本流: 用于訪問文本文件的內(nèi)容,用CreateTextFile和OpenTextFile返回的對(duì)象才包含TextStream
GetFile:返回文件句柄
? set Crfi=Crfi_obj.GetFile("E:\empolder\texty\tm.txt")
Write_WriteLine_WriteBlandLines:向新建文本文件寫數(shù)據(jù)
? Set Crfi_cr=Crfi_obj.CreateTextFile
("E:\empolder\em.txt",true)
? Crfi_cr.WriteLine("This is a WriteLine")? ‘寫內(nèi)容并回車
? Crfi_cr.WriteBlankLines(3) ‘寫三個(gè)回車
? Crfi_cr.Write("This is a text Write") ‘寫內(nèi)容不回車
OpenTextFile/4:打開文本文件
? object.OpenTextFile
(filename[, iomode[, create[, format]]])
filename:文件路徑
iomode/2:輸入輸出模式
?? ?ForReading:1,以只讀方式打開
? ForAppending:8, 打開文件并在文件末尾進(jìn)行寫操作
? create:文件不存在時(shí)是否創(chuàng)建,值為true或false
? format:用哪種格式打開文件
??? -2:系統(tǒng)默認(rèn)? -1: Unicode格式? 0:ASCII 格式
例:set Crfi_cr=Crfi_obj.OpenTextFile
("E:\empolder\em1.txt",8,true)
Read_ReadLine_ReadAll:讀文本數(shù)據(jù)
? Read:讀取從當(dāng)前游標(biāo)開始到指定值結(jié)束的字符
? ReadLine:讀取從當(dāng)前游標(biāo)開始的這一行字符
? ReadAll:讀取從當(dāng)前游標(biāo)開始向下的全部字符
? set Crfi_cr=Crfi_obj.OpenTextFile
("E:\empolder\em.txt",1,true)
? Response.Write (Crfi_cr.Read(10) & "<br>")
? Response.Write (Crfi_cr.ReadLine & "<br>")
? Response.Write (Crfi_cr.ReadAll)
? !:要把OpenTextFile的打開方式設(shè)為只讀方式1,否則不能讀取
?
?
Skip_SkipLine:
? Skip:移動(dòng)游標(biāo)到指定值的字符之后
? SkipLine:移動(dòng)游標(biāo)到下一行之首
? Crfi_cr.Skip(2)
? Response.Write (Crfi_cr.ReadLine & "<br>")
? Crfi_cr.SkipLine
? Response.Write(Crfi_cr.ReadAll)
AtEndofStream:判斷游標(biāo)是否在最未尾,返回布爾值
? do while? Crfi_cr.AtEndofStream <> true
??? Response.Write(Crfi_cr.ReadLine)
? loop
Line_Column:當(dāng)前游標(biāo)所在的行號(hào)和列號(hào),返回整數(shù)型數(shù)據(jù)
??? Crfi_cr.SkipLine
??? Crfi_cr.Skip(5)
??? Response.Write("游標(biāo)" & "Lines:" & Crfi_cr.Line & "? ") ‘返回2
Response.Write("Column:" & Crfi_cr.Column) ‘返回6
MoveFile:移動(dòng)文件,可移動(dòng)所有文件或指定后綴的文件
? c=Crfi_obj.MoveFile
("E:\empolder\texty\*.*","E:\empolder\texty1\")
CopyFile:復(fù)制文件,可復(fù)制所有文件或指定后綴的文件
c=Crfi_obj.CopyFile
("E:\empolder\texty\*.*","E:\empolder\texty1\",true)
!:true表示覆蓋相同的文件
DeleteFile:刪除文件,可刪除所有文件或指定后綴的文件
? c=Crfi_obj.DeleteFile("E:\empolder\texty1\*.*",true)
!:true表示刪除只讀文件
DateCreated:返回文件被創(chuàng)建的時(shí)間
? set Crfo_cr=Crfo_obj.GetFolder("E:\empolder\texty")
? Response.Write(Crfo_cr.DateCreated)
DateLastModified:返回上次修改文件的時(shí)間
? Set Crfo=obj.CreateFolder(“E:\em”)
??Response.Write(Crfo.DateLastModified)
DateLastAccessed:返回上次訪問文件的時(shí)間
? set Crfo_cr=Crfo_obj.GetFolder("E:\empolder\texty")
? Response.Write(Crfo_cr.DateLastAccessed)
?
?
Attributes:返回文件對(duì)象屬性
? select case Crfo_cr.Attributes
??? case 0: t="一般文件"
??? case 1: t="只讀文件,屬性為讀/寫"
??? case 2: t="隱藏文件,屬性為讀/寫"
??? case 4: t="系統(tǒng)文件,屬性為讀/寫"
??? case 8: t="磁盤驅(qū)動(dòng)器卷標(biāo),屬性為只讀"
??? case 16: t="文件夾或目錄,屬性為只讀"
??? case 32: t="文件在上次備份后已經(jīng)修改。屬性為讀/寫"
??? case 64: t="鏈接或快捷方式,屬性為只讀"
??? case 128: t="壓縮文件,屬性為只讀"
??? case else: t="未知的文件"
? end select
? Response.Write("該對(duì)象是:" & t)
轉(zhuǎn)載于:https://www.cnblogs.com/Rayleigh/archive/2009/03/01/1400915.html
總結(jié)
- 上一篇： XML特殊字符问题
- 下一篇： 计算几何常用算法的理论基础【转】