創建FSO對象:

Set obj=Server.CreateObject(“Scripting.FileSystem

Object”)

? Set var=nothing

!:var為創建的一個FSO對象,不使用時把obj的值清空釋放內存

GetDrive(GetDriveName):訪問現有驅動器并提取驅動器名

? Set Gedr=obj.GetDrive(obj.GetDriveName(“E:\empolder”))

Response.Write(Gedr)? ‘輸出E:

? !:用GetDriveName返回包含有文件夾或文件路徑的驅動器.

TotalSize:返回驅動器的總容量，以字節為單位

? Set ToSi_GtDr=ToSi_Obj.GetDrive("E:")? ToSi_Val=FormatNumber(ToSi_GtDr.TotalSize/(1024*1024*1024

),5)

? Response.Write(ToSi_Val & " GB")

FreeSpace/AvailableSpace:返回驅動器的可用容量

? set Avsp_gedr=Avsp_obj.GetDrive("E:") Avsp_val=FormatNumber(Avsp_gedr.AvailableSpace/(1024*1024

*1024),5)

DriveLetter: 哪個號被賦給了該驅動器

set Drle_gedr=Drle_obj.GetDrive("E:")

Drle_val=Cstr(Drle_gedr.DriveLetter)

? Response.Write(Drle_val)? ‘返回E

DriveType/6: 驅動器的類型,返回整數值

? set Drty_gedr=Drty_obj.GetDrive("E:")

? ??Drty_val=Cstr(Drty_Gedr.DriveType)

? ??Select Case Drty_val

?? ???Case 0: t="未知"

?? ???Case 1: t="可移動"

?? ???Case 2: t="固定"

? ????Case 3: t="網絡"

? ????Case 4: t="CD-ROM"

? ????Case 5: t="RAM 磁盤"

????? Case else: t=”出錯”

? ??end Select

Response.Write("該驅動器為:" & t)

?

?

SerialNumber: 驅動器序列號,返回一個負整數

? Set Senu_gedr=Senu_obj.GetDrive("E:")

? Response.Write(Senu_gedr.SerialNumber)

FileSystem:文件系統類型,比如NTFS

? Set Fisy_gedr=Fisy_obj.GetDrive("E:")

? Response.Write(Fisy_gedr.FileSystem)

IsReady:驅動器是否可用或是否準備就緒

? Set Isre_gedr=Isre_obj.GetDrive("E:")

? Response.Write(Isre_gedr.IsReady)? '返回布爾值

ShareName(共享)和VolumeName(卷):

返回共享和卷的名字,如果不是網絡驅動器，那么 ShareName 屬性

將返回長度為零的字符串 ("")

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: 驅動器的路徑和根文件夾

? Set Path_gedr=Path_obj.GetDrive("E:")

? Response.Write(Path_gedr.Path)? ‘輸出E:

? Response.Write("<br>" & Path_gedr.RootFolder)? ‘輸出E:\

-----------------------------------------------------------

CreateFolder:創建文件夾并返回文件夾名

? Set Crfo=obj.CreateFolder(“E:\em”) ’在E盤創建em文件夾

??? Response.Write(Crfo.Name)

!:不要對新創建的對象使用 "get" 方法,Create函數會自動返回

對象的句柄

通配符? *? :

?例: d=Crfo_obj.MoveFolder

( "E:\empolder\texty\*","E:\empolder\texty1\")

?? 括號內的*表示將texty目錄下的所有文件夾移動到texty1目錄

?? 下,但不移動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=Crfo_obj.MoveFolder

( "E:\empolder\texty\12","E:\empolder\texty1\")

!:括號中逗號前面的部分是移出的文件夾,不用以\結束.逗號后面

? 的部分是移入的文件夾,用\結束表示把文件移入到\前面的文件

? 夾texty1

CopyFolder:復制文件夾

? 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("有這個文件夾")

else

? response.write("沒有這個文件夾")

?end if

GetParentFolderName:返回文件或文件夾的父文件夾路徑

? cr=Crfo_obj.GetParentFolderName

("E:\empolder\texty1\tr.txt")

? response.write(cr)

GetSpecialFolder: 返回指定的特殊文件夾路徑

0: Windows文件夾路徑? 1:System32系統文件夾路徑?

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:創建文本文件

? Set Crfi=obj.CreateTextFile(“E:\empolder\em.text”，true)

? !:true表示是否覆蓋同名文件

TextStream文本流: 用于訪問文本文件的內容,用CreateTextFile和OpenTextFile返回的對象才包含TextStream

GetFile:返回文件句柄

? set Crfi=Crfi_obj.GetFile("E:\empolder\texty\tm.txt")

Write_WriteLine_WriteBlandLines:向新建文本文件寫數據

? Set Crfi_cr=Crfi_obj.CreateTextFile

("E:\empolder\em.txt",true)

? Crfi_cr.WriteLine("This is a WriteLine")? ‘寫內容并回車

? Crfi_cr.WriteBlankLines(3) ‘寫三個回車

? Crfi_cr.Write("This is a text Write") ‘寫內容不回車

OpenTextFile/4:打開文本文件

? object.OpenTextFile

(filename[, iomode[, create[, format]]])

filename:文件路徑

iomode/2:輸入輸出模式

?? ?ForReading:1,以只讀方式打開

? ForAppending:8, 打開文件并在文件末尾進行寫操作

? create:文件不存在時是否創建,值為true或false

? format:用哪種格式打開文件

??? -2:系統默認? -1: Unicode格式? 0:ASCII 格式

例:set Crfi_cr=Crfi_obj.OpenTextFile

("E:\empolder\em1.txt",8,true)

Read_ReadLine_ReadAll:讀文本數據

? Read:讀取從當前游標開始到指定值結束的字符

? ReadLine:讀取從當前游標開始的這一行字符

? ReadAll:讀取從當前游標開始向下的全部字符

? 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的打開方式設為只讀方式1,否則不能讀取

?

?

Skip_SkipLine:

? Skip:移動游標到指定值的字符之后

? SkipLine:移動游標到下一行之首

? Crfi_cr.Skip(2)

? Response.Write (Crfi_cr.ReadLine & "<br>")

? Crfi_cr.SkipLine

? Response.Write(Crfi_cr.ReadAll)

AtEndofStream:判斷游標是否在最未尾,返回布爾值

? do while? Crfi_cr.AtEndofStream <> true

??? Response.Write(Crfi_cr.ReadLine)

? loop

Line_Column:當前游標所在的行號和列號,返回整數型數據

??? Crfi_cr.SkipLine

??? Crfi_cr.Skip(5)

??? Response.Write("游標" & "Lines:" & Crfi_cr.Line & "? ") ‘返回2

Response.Write("Column:" & Crfi_cr.Column) ‘返回6

MoveFile:移動文件,可移動所有文件或指定后綴的文件

? c=Crfi_obj.MoveFile

("E:\empolder\texty\*.*","E:\empolder\texty1\")

CopyFile:復制文件,可復制所有文件或指定后綴的文件

c=Crfi_obj.CopyFile

("E:\empolder\texty\*.*","E:\empolder\texty1\",true)

!:true表示覆蓋相同的文件

DeleteFile:刪除文件,可刪除所有文件或指定后綴的文件

? c=Crfi_obj.DeleteFile("E:\empolder\texty1\*.*",true)

!:true表示刪除只讀文件

DateCreated:返回文件被創建的時間

? set Crfo_cr=Crfo_obj.GetFolder("E:\empolder\texty")

? Response.Write(Crfo_cr.DateCreated)

DateLastModified:返回上次修改文件的時間

? Set Crfo=obj.CreateFolder(“E:\em”)

??Response.Write(Crfo.DateLastModified)

DateLastAccessed:返回上次訪問文件的時間

? set Crfo_cr=Crfo_obj.GetFolder("E:\empolder\texty")

? Response.Write(Crfo_cr.DateLastAccessed)

?

?

Attributes:返回文件對象屬性

? select case Crfo_cr.Attributes

??? case 0: t="一般文件"

??? case 1: t="只讀文件,屬性為讀/寫"

??? case 2: t="隱藏文件,屬性為讀/寫"

??? case 4: t="系統文件,屬性為讀/寫"

??? case 8: t="磁盤驅動器卷標,屬性為只讀"

??? case 16: t="文件夾或目錄,屬性為只讀"

??? case 32: t="文件在上次備份后已經修改。屬性為讀/寫"

??? case 64: t="鏈接或快捷方式,屬性為只讀"

??? case 128: t="壓縮文件,屬性為只讀"

??? case else: t="未知的文件"

? end select

? Response.Write("該對象是:" & t)

轉載于:https://www.cnblogs.com/Rayleigh/archive/2009/03/01/1400915.html

總結

以上是生活随笔為你收集整理的FSO对象的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。