'如下腳本就可以獲得FileSystemObject的Drivers屬性
Set objFSO = CreateObject ("Scripting.FileSystemObject")
Set colDrivers = objFSO.Drivers

正如已經(jīng)看到的，F(xiàn)ileSystemObject 對(duì)象包含一個(gè)屬性——Drives，它返回一個(gè)包括本地計(jì)算機(jī)上所有可用驅(qū)動(dòng)器的集合。

Drives 集合里的每個(gè)條目是一個(gè) Drive 對(duì)象。Drive 對(duì)象的屬性如表2所示：

因此，通過(guò)使用 Drives 集合里的 Drive 對(duì)象，可以在服務(wù)器上產(chǎn)生一個(gè)驅(qū)動(dòng)器列表，與通過(guò)檢查每個(gè)可能的驅(qū)動(dòng)器字母來(lái)判別驅(qū)動(dòng)器是否存在的方法相比，效率更高。我們也可以得到關(guān)于該驅(qū)動(dòng)器的信息。

示例：

' 創(chuàng)建FileSystemObject對(duì)象
Set objFSO = CreateObject("Scripting.FileSystemObject")
' 創(chuàng)建Drives集合，并賦值給colDrives
Set colDrives = objFSO.Drives
' 遍歷Drives集合
For Each objDrive in colDrives
'判斷驅(qū)動(dòng)器是否已準(zhǔn)備好
If objDrive.IsReady Then
msg = "驅(qū)動(dòng)器的名稱為："  objDrive.DriveLetter  " "
msg =msg  "驅(qū)動(dòng)器文件系統(tǒng)的類型："  objDrive.FileSystem " "
msg = msg  "驅(qū)動(dòng)器的總?cè)萘浚?  int(objDrive.TotalSize/(1024*1024*1024))  "G "
msg = msg  "剩余空間的總量："  int(objDrive.FreeSpace/(1024*1024*1024))  "G "
End If
Next
reporter.ReportEvent micDone ,"遍歷Drives集合",msg

備注：在系統(tǒng)上運(yùn)行這段程序以前有一點(diǎn)要注意。如果在 A 驅(qū)動(dòng)器里沒(méi)有磁盤(pán)，或 CD-ROM 驅(qū)動(dòng)器里沒(méi)有光盤(pán)，將得到一個(gè)錯(cuò)誤提示：“Disk Not Ready”。除了 DriveLetter 屬性和 DriveType 屬性外，在使用其他屬性和方法前，通過(guò)檢查每個(gè)驅(qū)動(dòng)器的 IsReady 屬性，可以保護(hù)該頁(yè)面。

二、FileSystemObject 對(duì)象的方法

1. 與驅(qū)動(dòng)器有關(guān)的方法

 DriveExists的使用

方法名：DriveExists(drivespec)

說(shuō)明：如果在 drivespec 中指定的驅(qū)動(dòng)器存在，則返回 True，否則返回 False。drivespec 參數(shù)可以是一個(gè)驅(qū)動(dòng)器字母，或者是文件、文件夾的完整絕對(duì)路徑

示例：

' 創(chuàng)建FileSystemObject對(duì)象

Set objFSO = CreateObject ("Scripting.FileSystemObject")
For intCode = 65 To 90 'ANSI codes for 'A' to 'Z'
strLetter = Chr(intCode) 'Chr:返回與指定的 ANSI 字符代碼相對(duì)應(yīng)的字符。
If objFSO.DriveExists(strLetter) Then '判斷相應(yīng)的盤(pán)符是否存在，如存在輸出
Reporter.ReportEvent micDone,"Show Drive”,” Found drive "  strLetter
End If
Next

另外，如果已知要訪問(wèn)的驅(qū)動(dòng)器、文件夾或文件。可以直接對(duì)其使用 GetDrive、GetFolder、GetSpecialFolder 和 GetFile 方法。

2. 與文件夾有關(guān)的方法及屬性

用FileSystemObject對(duì)象來(lái)操作文件夾的方法：

CopyFolder的使用

方法名：CopyFolder(source,destination,overwrite)
說(shuō)明：將文件夾從某位置遞歸復(fù)制到另一位置。詳細(xì)說(shuō)明請(qǐng)查看表4。

示例：

' 創(chuàng)建FileSystemObject對(duì)象
Set objfso = createobject("scripting.FileSystemObject")
' 將D:/test下所有的內(nèi)容復(fù)制到c:/123
objfso.CopyFolder "D:/test","c:/123"

注：如果c:/123不存在，則QTP將自動(dòng)創(chuàng)建它

CreateFolder及DeleteFolder的使用

方法名：CreateFolder(foldername)/DeleteFolder(folderspec,force)
說(shuō)明：創(chuàng)建/刪除一個(gè)路徑名為 foldername 的文件夾。詳細(xì)說(shuō)明請(qǐng)查看表4。
示例：

' 創(chuàng)建FileSystemObject對(duì)象
Set objfso = createobject("scripting.FileSystemObject")
‘ 在c:/創(chuàng)建new folder文件夾，如果文件夾存在，則會(huì)出現(xiàn)錯(cuò)誤提示
objfso.CreateFolder("c:/new folder")
‘ 刪除c:/new folder文件夾
objfso.DeleteFolder("c:/new folder")

注：DeleteFolder無(wú)論文件夾是否包含內(nèi)容，都將刪除該文件夾

FolderExists的使用

方法名：FolderExist(folderspec)
說(shuō)明：如果指定的文件夾存在，則返回 True；否則返回 False。詳細(xì)說(shuō)明請(qǐng)查看表4。
示例：

Function hanshu(strpath)
       Dim objfso,objset
       ‘ 創(chuàng)建FileSystemObjec對(duì)象
       Set objfso = CreateObject("Scripting.FileSystemObject")
       ‘ 判斷在指定的路徑中是否有
       If Not objfso.FolderExists(strpath) Then
               objset = objfso.CreateFolder(strpath)
       else
               objset = objfso.DeleteFolder(strpath)
       End If
       hanshu = objset
End Function
 
hanshu("c:/new folder")

GetAbsolutePathName的使用

方法名：GetAbsolutePathName(pathspec)
說(shuō)明：從提供的指定路徑中返回完整且含義明確的路徑。詳細(xì)說(shuō)明請(qǐng)查看表4。
示例：

Dim objfso
‘創(chuàng)建FileSystemObject對(duì)象
Set objfso = createobject("Scripting.FileSystemObject")
‘返回當(dāng)前的目錄，下面兩條語(yǔ)句返回一樣的結(jié)果
msgbox (objfso.GetAbsolutePathName(""))
msgbox (objfso.GetAbsolutePathName("C:"))

GetFolder的使用

方法名：GetFolder(folderspec)
說(shuō)明：返回與指定的路徑中某文件夾相應(yīng)的 Folder 對(duì)象。可以根據(jù)所返回的Folder 對(duì)象，再去訪問(wèn)該Folder 對(duì)象所持有的屬性。
示例：

Dim objfso,objset
'創(chuàng)建FileSystemObject對(duì)象
Set objfso = createobject("Scripting.FileSystemObject")
'返回C:/testing的Folder的對(duì)象
Set objset = objfso.GetFolder("C:/testing")
' 根據(jù)所返回的Folder對(duì)象，去訪問(wèn)其相關(guān)的屬性
reporter.ReportEvent micDone ,"Folder對(duì)象的相關(guān)屬性","文件夾創(chuàng)建的日期：" objset.DateCreated "; 文件夾所在的驅(qū)動(dòng)：" objset.Drive "; 文件夾的名字：" objset.Name

注：關(guān)于Folder對(duì)象的屬性，將在下面會(huì)詳細(xì)介紹

GetParentFolderName的使用

方法名：GetParentFolderName(pathspec)
說(shuō)明：返回字符串，該字符串包含指定的路徑中最后一個(gè)文件或文件夾的父文件夾。
示例：

Dim objfso
'創(chuàng)建FileSystemObject對(duì)象
Set objfso = createobject("Scripting.filesystemobject")
'使用GetParentFolderName方法來(lái)返回上一層文件夾
msgbox (objfso.GetParentFolderName("C:/WINDOWS/addins"))

GetSpecialFolder的使用

方法名：GetSpecialFolder(folderspec)
說(shuō)明：返回指定的特殊文件夾。詳細(xì)說(shuō)明請(qǐng)查看表4。
示例：

Dim fso,tempName
Set fso = CreateObject("Scripting.FileSystemObject")
'GetSpecialFolder()中的參數(shù)2，返回一個(gè)名為T(mén)emp的臨時(shí)文件夾
Set tempName = fso.GetSpecialFolder(2)
msgbox tempName

MoveFolder的使用

方法名：MoveFolder(source,destination)
說(shuō)明：將一個(gè)或多個(gè)文件夾從某位置移動(dòng)到另一位置。詳細(xì)說(shuō)明請(qǐng)查看表4。
示例：

Dim sourcepath,destination
sourcepath = "C:/testing"
destination = "C:/123"
'調(diào)用MoveFolders方法
call MoveFolders(sourcepath,destination)
 
Sub MoveFolders(sourcepath,destination)
   Dim fso
       '創(chuàng)建FileSystemObject對(duì)象
   Set fso = CreateObject("Scripting.FileSystemObject")
       '使用MoveFolder方法，將testing文件夾的內(nèi)容移動(dòng)到123文件夾下
   fso.MoveFolder sourcepath,destination
End Sub

注：如果腳本在運(yùn)行前文件夾123已存在，則運(yùn)行是會(huì)發(fā)生錯(cuò)誤；在不同的磁盤(pán)下MoveFolder方法不能用
       上面提到的Folder方法是基于FileSystemObject 對(duì)象的，現(xiàn)在我們來(lái)看看基于Folder對(duì)象的方法。

Folder對(duì)象所提供的方法

Folder 對(duì)象提供一組可用于復(fù)制、刪除和移動(dòng)當(dāng)前文件夾的方法。這些方法的運(yùn)行方式與 FileSystemObject 對(duì)象的CopyFolder、DeleFolder 和 MoveFolder 方法相同，但這些方法不要求 source 參數(shù)，因?yàn)樵次募褪沁@個(gè)文件夾。
備注：CopyFolder、DeleFolder等方法是基于FileSystemObject 對(duì)象的；而下面的Copy、Delete等方法是基于FileSystemObject對(duì)象下的Folder對(duì)象，他們實(shí)現(xiàn)的功能是類似的。

 Copy的使用

方法名：Copy(destination,overwrite)
說(shuō)明：將文件夾的所有內(nèi)容，復(fù)制到destination文件夾中。詳細(xì)說(shuō)明請(qǐng)見(jiàn)表5
示例：

Dim sourcepath
sourcepath = "C:/testing"
Call FolderAttributes(sourcepath)

Sub FolderAttributes(sourcepath)
Dim fso,objset
Set fso = CreateObject("Scripting.FileSystemObject")
'使用GetFolder方法來(lái)返回Folder對(duì)象
Set objset = fso.getFolder(sourcepath)
'將testing中的所有內(nèi)容復(fù)制到123文件夾中
objset.Copy("d:/123")
End Sub

備注：如果目標(biāo)文件夾不存在，則腳本在運(yùn)行是將自動(dòng)創(chuàng)建

Delete的使用

方法名：Delete(force)
說(shuō)明：刪除文件夾及里面的所有內(nèi)容。詳細(xì)說(shuō)明請(qǐng)見(jiàn)表5
示例：

Dim sourcepath
sourcepath = "C:/testing"
Call FolderAttributes(sourcepath)

Sub FolderAttributes(sourcepath)
Dim fso,objset
Set fso = CreateObject("Scripting.FileSystemObject")
'使用GetFolder方法來(lái)返回Folder對(duì)象
Set objset = fso.getFolder(sourcepath)
'將testingw文件夾及文件夾里所有的內(nèi)容全部刪除
objset.Delete(True)
End Sub

備注：如果文件夾屬性為只讀且Delete的參數(shù)為False，則腳本在運(yùn)行是將提示“沒(méi)有權(quán)限”；當(dāng)文件夾不存在時(shí)，將提示“路徑未找到”。

Move的使用

方法名：Move(destination)
說(shuō)明：將文件夾及里面所有的內(nèi)容移動(dòng)到 destination 指定的文件夾。詳細(xì)說(shuō)明請(qǐng)見(jiàn)表5
示例：

Dim sourcepath
sourcepath = "C:/testing"
Call FolderAttributes(sourcepath)

Sub FolderAttributes(sourcepath)
Dim fso,objset
Set fso = CreateObject("Scripting.FileSystemObject")
'使用GetFolder方法來(lái)返回Folder對(duì)象
Set objset = fso.getFolder(sourcepath)
'使用Move()將testing文件夾及里面所有的內(nèi)容，移動(dòng)到目標(biāo)文件夾123中
objset.Move("C:/123")
End Sub

備注：如果目標(biāo)文件夾123已存在，則腳本運(yùn)行時(shí)提示“文件已存在”；如果目標(biāo)文件夾123在D:/，則腳本運(yùn)行使提示“沒(méi)有權(quán)限”

CreateTextFile的使用

方法名：CreateTextFile(filename,overwrite,unicode)
說(shuō)明：創(chuàng)建指定文件并返回 TextStream 對(duì)象，該對(duì)象可用于讀或?qū)憚?chuàng)建的文件。詳細(xì)說(shuō)明請(qǐng)見(jiàn)表5。
示例：

Dim sourcepath
sourcepath = "C:/testing"
Call FolderAttributes(sourcepath)

Sub FolderAttributes(sourcepath)
Dim fso,objset
Set fso = CreateObject("Scripting.FileSystemObject")
'使用GetFolder方法來(lái)返回Folder對(duì)象
Set objset = fso.getFolder(sourcepath)
'在testing文件夾下，使用CreateTextFile()創(chuàng)建myClass2.doc文件
objset.CreateTextFile "myClass2.doc",true
End Sub

備注：CreateTextFile()所創(chuàng)建的文件類型是根據(jù)所提供的擴(kuò)展名來(lái)確定的，如也可以寫(xiě)成myClass2.txt、myClass.exe等等；FileSystemObject對(duì)象也可以調(diào)用CreateTextFile(),我們可以將上面的代碼改寫(xiě)成：
fso.CreateTextFile “C:/testing/myClass.doc”,true

Folder對(duì)象所提供的屬性：

 如上面提到的，我們可以使用下面的腳本來(lái)訪問(wèn)Folder對(duì)象

Dim objfso,objset
'創(chuàng)建FileSystemObject對(duì)象
Set objfso = createobject("Scripting.FileSystemObject")
'返回C:/testing的Folder的對(duì)象
Set objset = objfso.GetFolder("C:/testing")

注：通過(guò)Folder對(duì)象我們就可以訪問(wèn)其提供的方法及屬性
Drive、DateCreated、Name屬性的使用
示例：

Dim sourcepath
sourcepath = "C:/testing"
Call FolderAttributes(sourcepath)
 
Sub FolderAttributes(sourcepath)
   Dim fso,objset
       Set fso = CreateObject("Scripting.FileSystemObject")
       '使用GetFolder方法來(lái)返回Folder對(duì)象
       Set objset = fso.getFolder(sourcepath)
       '通過(guò)Folder對(duì)象來(lái)訪問(wèn)Folder屬性
       reporter.ReportEvent micDone ,"測(cè)試Folder屬性","文件夾所在的磁盤(pán)為：" objset.Drive " 文件夾所創(chuàng)建的日期：" objset.DateCreated " 文件夾的名字為：" objset.Name
End Sub

SubFolers屬性的使用

示例：

Dim sourcepath
sourcepath = "C:/Program Files/Common Files"
Call FolderAttributes(sourcepath)
 
Sub FolderAttributes(sourcepath)
   Dim fso,objset,objFolders,FolderName,i
   i = 0
       Set fso = CreateObject("Scripting.FileSystemObject")
       '使用GetFolder方法來(lái)返回Folder對(duì)象
       Set objset = fso.getFolder(sourcepath)
       'SubFolders屬性將返回所有子文件夾對(duì)應(yīng)的Folder集合
       Set objFolders = objset.SubFolders
       '遍歷Folder集合，統(tǒng)計(jì)出共有多少個(gè)文件夾，及相關(guān)文件夾的名字
       For Each objFolder in objFolders
              i = i +1
              'vbcr為換行符
              FolderName =  FolderName + objFolder.Name + vbcr
       Next
       msgbox ("共有" i "個(gè)文件夾，文件夾的名字為：" FolderName)
End Sub

Files屬性的使用

示例：

Dim objFso,objGetFolder,intCount,strFileName
intCount = 0
'創(chuàng)建FileSystemObject對(duì)象
Set objFso= CreateObject("Scripting.FileSystemObject")
'使用GetFolder()獲得文件夾對(duì)象
Set objGetFolder = objFso.GetFolder("C:/test")
'遍歷Files集合并顯示文件夾中所有的文件名
For Each strFile in objGetFolder.Files
       intCount = intCount + 1
       strFileName =strFileName   "第" intCount "個(gè)文件夾名為：" strFile.Name vbcr
Next
msgbox strFileName

3. 以文件有關(guān)的方法及屬性

用FileSystemObject對(duì)象來(lái)操作文件的方法：

 CopyFile及MoveFile的使用

方法名：CopyFile(source,destination,overwrite)
說(shuō)明：將一個(gè)或多個(gè)文件從某位置復(fù)制到另一位置。詳細(xì)說(shuō)明請(qǐng)見(jiàn)表7
方法名：MoveFile(source,destination)
說(shuō)明：將 source 指定的一個(gè)或多個(gè)源文件移動(dòng)到 destination 指定的目的文件夾。
示例：

Dim sourcepath,targetpath
sourcepath = "C:/testing/*.txt"
targetpath = "C:/123/"
Call FolderAttributes(sourcepath,targetpath)
Sub FolderAttributes(sourcepath,targetpath)
   Dim fso
       Set fso = CreateObject("Scripting.FileSystemObject")
'將testing文件夾下所有擴(kuò)展名名為.txt的文件，復(fù)制到123文件夾下
       fso.CopyFile sourcepath,targetpath
       fso.MoveFile sourcepath,targetpath
End Sub

備注：如果C:/123文件夾不存在，則腳本運(yùn)行時(shí)提示“路徑不存在”

CreateTextFile及DeleteFile的使用

方法名：CreateTextFile(filename,overwrite,unicode)
說(shuō)明：創(chuàng)建指定文件并返回 TextStream 對(duì)象，該對(duì)象可用于讀或?qū)憚?chuàng)建的文件。
方法名：DeleFile(filespec,force)
說(shuō)明：刪除指定的文件。詳細(xì)說(shuō)明請(qǐng)見(jiàn)表7.
示例：

Dim sourcepath
sourcepath = "C:/testing/ myClass2.doc "
Call FolderAttributes(sourcepath)
 
Sub FolderAttributes(sourcepath)
   Dim fso
       Set fso = CreateObject("Scripting.FileSystemObject")
'在testing文件夾下，使用CreateTextFile()創(chuàng)建myClass2.doc文件
fso.CreateTextFile sourcepath,true
'刪除testing文件夾下，所有擴(kuò)展名為.txt的文件
fso.DeleteFile sourcepath,true
End Sub

備注：如果所刪除的文件為只讀屬性且DeleteFile()的參數(shù)為false的話，則腳本運(yùn)行是出現(xiàn)“沒(méi)有權(quán)限”FileExists的使用
方法名：FileExists(filespec)
說(shuō)明：判斷所指定的文件是否存在。此方法將返回Bool值. 詳細(xì)說(shuō)明請(qǐng)見(jiàn)表7.
示例：

Dim sourcepath
sourcepath = "C:/testing/test.txt"
Call FolderAttributes(sourcepath)
 
Sub FolderAttributes(sourcepath)
   Dim fso
       Set fso = CreateObject("Scripting.FileSystemObject")
       '判斷C:/testing/test.txt是否有存在，如果存在返回“true”;否則返回“false”
       If fso.FileExists(sourcepath) Then
              msgbox "true"
       else
              msgbox "false"
       End If
End Sub

GetBaseName、GetFileName及GetExtensionName的使用

方法名：GetBaseName(filespec)
說(shuō)明：返回字符串，文件 (不帶擴(kuò)展名), 或者提供的路徑說(shuō)明中的文件夾。
方法名：GetExtensionName(filespec)
說(shuō)明：返回字符串，該字符串包含路徑最后一個(gè)組成部分的擴(kuò)展名。
方法名：GetFileName(pathspec)
說(shuō)明：返回指定路徑（不是指定驅(qū)動(dòng)器路徑部分）的最后一個(gè)文件或文件夾。
示例：

Dim sourcepath
sourcepath = "C:/testing/test.txt"
Call FolderAttributes(sourcepath)
 
Sub FolderAttributes(sourcepath)
   Dim fso
       Set fso = CreateObject("Scripting.FileSystemObject")
       '返回文件名test, 擴(kuò)展名 txt, 文件名+擴(kuò)展名 test.txt
         Msgbox (fso.GetBaseName(sourcepath))
         Msgbox (fso. GetExtensionName(sourcepath))
       Msgbox (fso.GetFileName(sourcepath))
End Sub

GetFile的使用

方法名：GetFile(filespec)
說(shuō)明：返回與指定路徑中某文件相應(yīng)的 File 對(duì)象，既而可以訪問(wèn)到File的屬性。
示例：

Dim sourcepath
sourcepath = "C:/testing/778899.txt"
Call FolderAttributes(sourcepath)
 
Sub FolderAttributes(sourcepath)
   Dim fso,objFile
       Set fso = CreateObject("Scripting.FileSystemObject")
       '調(diào)用GetFile()返回File對(duì)象，通過(guò)File對(duì)象來(lái)訪問(wèn)其下的屬性
       set objFile = fso.GetFile(sourcepath)
       reporter.ReportEvent micDone,"訪問(wèn)file的屬性","該文件所在的盤(pán)符為：" objFile.Drive "              文件名為：" objFile.Name
End Sub

注：關(guān)于File對(duì)象的屬性，將在下面會(huì)詳細(xì)介紹

GetTempName的使用

方法名：GetTempName()
說(shuō)明：返回隨機(jī)生成的臨時(shí)文件或文件夾的名稱，用于執(zhí)行要求臨時(shí)文件或文件夾的操作
示例：

Dim fso, tempfile
'創(chuàng)建FileSystemObject對(duì)象
Set fso = CreateObject("Scripting.FileSystemObject")
'調(diào)用CreateTempFile函數(shù)，并將對(duì)象賦值給tempfile
Set tempfile = CreateTempFile
'在臨時(shí)文件中寫(xiě)入字符
tempfile.WriteLine "世界你好"
'關(guān)閉對(duì)象
tempfile.Close
 
Function CreateTempFile
   Dim tfolder, tname, tfile
   Const TemporaryFolder = 2
   'GetSpecialFolder()中的參數(shù)2，返回一個(gè)名為T(mén)emp的臨時(shí)文件夾
   Set tfolder = fso.GetSpecialFolder(TemporaryFolder)
   '隨機(jī)生成一個(gè)臨時(shí)文件名
   tname = fso.GetTempName
   '在Temp臨時(shí)文件夾下面，創(chuàng)建一個(gè)臨時(shí)文件
   Set tfile = tfolder.CreateTextFile(tname)
   '將結(jié)果賦值給函數(shù)
   Set CreateTempFile = tfile
End Function

備注：GetTempName 方法不創(chuàng)建文件，該方法僅提供臨時(shí)文件名。示例中的的結(jié)果，默認(rèn)保存在C:/Documents and Settings/Administrator/Local Settings/Temp

OpenTextFile的使用

方法名：(filename,iomode,create,format)
說(shuō)明：打開(kāi)指定的文件并返回一個(gè) TextStream 對(duì)象，可以讀取、寫(xiě)入此對(duì)象或?qū)⑵渥芳拥轿募Ｔ敿?xì)的說(shuō)明見(jiàn)表7.
示例：

Dim spec
spec = "C:/testing.txt"
'三個(gè)參數(shù)的分別為：以只讀模式打開(kāi)文件、以只寫(xiě)方式打開(kāi)文件、打開(kāi)文件并在文件末尾進(jìn)行寫(xiě)操作
Const intForReading = 1,intForWriting = 2,intForAppending = 8
'調(diào)用OpenTextFileTest()
Call OpenTextFileTest(spec,intForAppending)
 
Sub OpenTextFileTest(sepc,intForAppending)
   Dim fso,objTStream
   '創(chuàng)建FileSystemObject對(duì)象
   Set fso = CreateObject("Scripting.FileSystemObject")
   '參數(shù)true表示：如果文件不存在，則創(chuàng)建文件。最后OpenTextFile()將返回TextStream對(duì)象
   Set objTStream = fso.OpenTextFile(sepc,intForAppending,true)
   '利用TextStream對(duì)象來(lái)將字符串寫(xiě)入文件
   objTStream.write "hello word!"
   '釋放TextStream對(duì)象
   objTStream.close
End Sub

File對(duì)象所提供的屬性

我們?cè)谇懊鍲ile對(duì)象的方法中曾提到，可以使用FileSystemObject對(duì)象的GetFile()來(lái)訪問(wèn)File對(duì)象屬性。
訪問(wèn)File對(duì)象屬性的示例如下：

Dim sourcepath
sourcepath = "C:/testing/778899.txt"
Call FolderAttributes(sourcepath)

Sub FolderAttributes(sourcepath)
Dim fso,objFile
Set fso = CreateObject("Scripting.FileSystemObject")
'調(diào)用GetFile()返回File對(duì)象，通過(guò)File對(duì)象來(lái)訪問(wèn)其下的屬性
set objFile = fso.GetFile(sourcepath)
reporter.ReportEvent micDone,"訪問(wèn)file的屬性","該文件所在的盤(pán)符為：" objFile.Drive " 文件名為：" objFile.Name
End Sub

備注：File對(duì)象屬性的使用方法和前面介紹的Folder對(duì)象屬性的使用方法一樣，所以在這不一一列出。

TextStream對(duì)象概述

TextStream對(duì)象是用于訪問(wèn)文本文件的對(duì)象，它是FileSystemObject一個(gè)獨(dú)立的附屬對(duì)象，但在使用TextStream對(duì)象時(shí)，我們?nèi)砸柚鶩ileSystemObject 對(duì)象或其附屬對(duì)象來(lái)創(chuàng)建一個(gè) TextStream 對(duì)象并訪問(wèn)磁盤(pán)文件的內(nèi)容。可以通過(guò)FileSystemObject 對(duì)象的CreateTextFile()及OpenTextFile()，來(lái)獲取TextStream的對(duì)象句柄。
下面我們來(lái)具體的看看TextStream 對(duì)象的方法及屬性的使用。

一、TextStream對(duì)象的方法

Close、Write、WriteLine及WriteBlankLines的使用

方法名：Close()
說(shuō)明：關(guān)閉正在打開(kāi)的文件
方法名：WriteLine(string)
說(shuō)明：向文件寫(xiě)入字符串 string（可選）和換行符。
示例：

Dim strPath,strText
strPath = "C:/testing.txt"
strText = "This is Test !"  vbCrLf  “hello word !”
'調(diào)用函數(shù)
Call CreateFile(strPath,strText)

Sub CreateFile(strPath,strText)
Dim objFso,objStream
'創(chuàng)建FileSystemObject對(duì)象
Set objFso = CreateObject("Scripting.FileSystemObject")
'使用FileSystemObject對(duì)象的CreateTextFile()，來(lái)返回一個(gè)TextStream對(duì)象句柄
Set objStream = objFso.CreateTextFile(strPath,True)
'三個(gè)Write的意思分別為：在文本中寫(xiě)入字符、寫(xiě)入帶換行符的字符、寫(xiě)入3個(gè)換行符
objStream.Write(strText)
‘objStream.WriteLine(strText)
‘objStream. WriteBlankLines 3
'關(guān)閉TextStream對(duì)象
objStream.Close
End Sub

Read、ReadAll及ReadLine的使用

方法名：Read(numchars)
說(shuō)明：從 TextStream 文件中讀入指定數(shù)目的字符并返回結(jié)果字符串。
方法名：ReadAll()
說(shuō)明：讀入全部 TextStream 文件并返回結(jié)果字符串。
方法名：ReadLine()
說(shuō)明：從 TextStream 文件中讀入一整行字符（直到下一行，但不包括下一行字符），并返回結(jié)果字符串。
示例：

Sub CreateFile(strPath,strText)
Dim objFso,objStream
'創(chuàng)建FileSystemObject對(duì)象
Set objFso = CreateObject("Scripting.FileSystemObject")
'使用FileSystemObject對(duì)象的CreateTextFile()，來(lái)返回一個(gè)TextStream對(duì)象句柄
Set objStream = objFso.CreateTextFile(strPath,True)
'寫(xiě)入字符
objStream.WriteLine(strText)
Set objStream = objFso.OpenTextFile(strPath,1,true)
msgbox (objStream.ReadLine)
'msgbox (objStream.ReadAll)
' msgbox (objStream.Read(Len(strText)))
'關(guān)閉TextStream對(duì)象
objStream.Close
End Sub

Skip、SkipLine的使用

方法名：Skip(numchars)
說(shuō)明：讀取 TextStream 文件時(shí)跳過(guò)指定數(shù)目的字符
方法名：SkipLine()
說(shuō)明：當(dāng)讀到 TextStream 文件時(shí)，跳過(guò)下一行。
示例：

Dim strPath,strText
strPath = "C:/testing.txt"
'調(diào)用函數(shù)
Call CreateFile(strPath)

Sub CreateFile(strPath)
Dim objFso,objStream
'創(chuàng)建FileSystemObject對(duì)象
Set objFso = CreateObject("Scripting.FileSystemObject")
'使用FileSystemObject對(duì)象的CreateTextFile()，來(lái)返回一個(gè)TextStream對(duì)象句柄
Set objStream = objFso.CreateTextFile(strPath,True)
'在文本中寫(xiě)入字符
objStream.Write "This is Test !"  vbCrLf  "hello word !"
'以只讀的方式打開(kāi)文件
Set objStream = objFso.OpenTextFile(strPath,1,true)
'讀取文件時(shí)跳過(guò)5個(gè)字符；或者跳過(guò)當(dāng)前行，讀取下一行
objStream.Skip(5)
'objStream.SkipLine
'讀取文本內(nèi)容
msgbox objStream.ReadAll
'關(guān)閉TextStream對(duì)象
objStream.Close
End Sub

備注：兩者的區(qū)別是：Skip——跳過(guò)指定的幾個(gè)字符；SkipLine——跳過(guò)一行

二、TextStream對(duì)象的屬性

TextStream 的屬性提供有關(guān)文件內(nèi)文件指針當(dāng)前位置的信息，如表9所示。注意，所有的屬性是只讀的。

AtEndOfLine 和 AtEndOfStream 屬性僅對(duì)以 iomode 參數(shù)為 ForReading 的方式打開(kāi)的文件可用，否則將會(huì)出錯(cuò)。

AtEndOfLine及AtEndOfStream的使用

示例：

Dim strPath,strText
strPath = "C:/testing.txt"
'調(diào)用函數(shù)
Call CreateFile(strPath)
 
Sub CreateFile(strPath)
    Dim objFso,objStream,str
    '創(chuàng)建FileSystemObject對(duì)象
    Set objFso = CreateObject("Scripting.FileSystemObject")
    '以只讀的方式打開(kāi)文件，如果文件不存在則創(chuàng)建它
    Set objStream = objFso.OpenTextFile(strPath,1,true)
    '如果當(dāng)前的指針不在行末，則讀取文本內(nèi)容
    Do While objStream.AtEndOfLine > true
    ‘Do While objStream.AtEndOfStream > true
       str = str + objStream.Read(1)
    Loop
    msgbox str
     '關(guān)閉TextStream對(duì)象
    objStream.Close
End Sub

備注：兩者間的區(qū)別是：AtEndOfLine——讀取到當(dāng)前文本行的末尾；AtEndOfStream——讀取到整個(gè)文本的末尾

Column及Line的使用

示例：

Sub TestTextStream(strPath)
  Dim objFso,objTStream,str
    Set objFso = CreateObject("Scripting.FileSystemObject")
    '以只讀的方式打開(kāi)文件
    Set objTStream = objFso.OpenTextFile(strPath,1)
    '如果當(dāng)前的指針不在整個(gè)文檔的末尾，讀取文本的所有內(nèi)容
  Do While objTStream.AtEndOfStream > true
          objTStream.ReadAll
         str = str + "共有"  objTStream.Line  "行數(shù)據(jù)，光標(biāo)最后所在列號(hào)為："  objTStream.Column  vbCrLf
  Loop
    '打印信息
print str
End Sub

FileSystemObject實(shí)例代碼

創(chuàng)建文件

set fso = server.CreateObject("Scripting.FileSystemObject")
set f = fso.CreateTextFile("C:\test.txt", true) '第二個(gè)參數(shù)表示目標(biāo)文件存在時(shí)是否覆蓋
f.Write("寫(xiě)入內(nèi)容")
f.WriteLine("寫(xiě)入內(nèi)容并換行")
f.WriteBlankLines(3) '寫(xiě)入三個(gè)空白行（相當(dāng)于在文本編輯器中按三次回車(chē)）
f.Close()
set f = nothing
set fso = nothing

打開(kāi)并讀文件

set fso = server.CreateObject("Scripting.FileSystemObject")
set f = fso.OpenTextFile("C:\test.txt", 1, false) '第二個(gè)參數(shù) 1 表示只讀打開(kāi)，第三個(gè)參數(shù)表示目標(biāo)文件不存在時(shí)是否創(chuàng)建
f.Skip(3) '將當(dāng)前位置向后移三個(gè)字符
f.SkipLine() '將當(dāng)前位置移動(dòng)到下一行的第一個(gè)字符，注意：無(wú)參數(shù)
response.Write f.Read(3) '從當(dāng)前位置向后讀取三個(gè)字符，并將當(dāng)前位置向后移三個(gè)字符
response.Write f.ReadLine() '從當(dāng)前位置向后讀取直到遇到換行符（不讀取換行符），并將當(dāng)前位置移動(dòng)到下一行的第一個(gè)字符，注意：無(wú)參數(shù)
response.Write f.ReadAll() '從當(dāng)前位置向后讀取，直到文件結(jié)束，并將當(dāng)前位置移動(dòng)到文件的最后
if f.atEndOfLine then
  response.Write("一行的結(jié)尾！")
end if
if f.atEndOfStream then
  response.Write("文件的結(jié)尾！")
end if
f.Close()
set f = nothing
set fso = nothing

打開(kāi)并寫(xiě)文件

set fso = server.CreateObject("Scripting.FileSystemObject")
set f = fso.OpenTextFile("C:\test.txt", 2, false) '第二個(gè)參數(shù) 2 表示重寫(xiě)，如果是 8 表示追加
f.Write("寫(xiě)入內(nèi)容")
f.WriteLine("寫(xiě)入內(nèi)容并換行")
f.WriteBlankLines(3) '寫(xiě)入三個(gè)空白行（相當(dāng)于在文本編輯器中按三次回車(chē)）
f.Close()
set f = nothing
set fso = nothing

判斷文件是否存在

set fso = server.CreateObject("Scripting.FileSystemObject")
if fso.FileExists("C:\test.txt") then
  response.Write("目標(biāo)文件存在")
else
  response.Write("目標(biāo)文件不存在")
end if
set fso = nothing

移動(dòng)文件

set fso = server.CreateObject("Scripting.FileSystemObject")
call fso.MoveFile("C:\test.txt", "D:\test111.txt") '兩個(gè)參數(shù)的文件名部分可以不同
set fso = nothing

復(fù)制文件

set fso = server.CreateObject("Scripting.FileSystemObject")
call fso.CopyFile("C:\test.txt", "D:\test111.txt") '兩個(gè)參數(shù)的文件名部分可以不同
set fso = nothing

刪除文件

set fso = server.CreateObject("Scripting.FileSystemObject")
fso.DeleteFile("C:\test.txt")
set fso = nothing

創(chuàng)建文件夾

set fso = server.CreateObject("Scripting.FileSystemObject")
fso.CreateFolder("C:\test") '目標(biāo)文件夾的父文件夾必須存在
set fso = nothing

判斷文件夾是否存在

set fso = server.CreateObject("Scripting.FileSystemObject")
if fso.FolderExists("C:\Windows") then
    response.Write("目標(biāo)文件夾存在")
else
    response.Write("目標(biāo)文件夾不存在")
end if
set fso = nothing

刪除文件夾

set fso = server.CreateObject("Scripting.FileSystemObject")
fso.DeleteFolder("C:\test") '文件夾不必為空
set fso = nothing

檢測(cè)驅(qū)動(dòng)器C盤(pán)是否存在

Set fso = Server.CreateObject("Scripting.FileSystemObject")
fso.DriveExists("c:")

獲取文件路徑的驅(qū)動(dòng)器名

Set fso=Server.CreateObject("Scripting.FileSystemObject")
p=fso.GetDriveName(Server.MapPath("aqa33"))
Response.Write("驅(qū)動(dòng)器名稱是：" p)
set fs=nothing

取得某個(gè)指定的路徑的父文件夾的名稱

Set fso=Server.CreateObject("Scripting.FileSystemObject")
p=fso.GetParentFolderName(Server.MapPath("aqa331.asp"))
Response.Write("父文件夾名稱是：" p)
set fs=nothing

取得指定路徑中的最后一個(gè)成分的文件擴(kuò)展名

Set fs=Server.CreateObject("Scripting.FileSystemObject")
Response.Write(fs.GetExtensionName(Server.MapPath("aqa33.asxd")))
set fs=nothing

取得指定路徑中的最后一個(gè)成分的文件名

Set fs=Server.CreateObject("Scripting.FileSystemObject")
Response.Write(fs.GetFileName(Server.MapPath("aqa33.asxd")))
set fs=nothing

返回在指定的路徑中文件或者文件夾的基本名稱。

Set fso=Server.CreateObject("Scripting.FileSystemObject")
Response.Write(fso.GetBaseName("c:\windows\cursors\abc.cur"))
Response.Write("br />")
Response.Write(fso.GetBaseName("c:\windows\cursors\"))
Response.Write("br />")
Response.Write(fso.GetBaseName("c:\windows\"))
set fso=nothing

好了，這篇文章就介紹到這里了，基本上內(nèi)容就差不多了。希望大家以后多多支持腳本之家。