QTP自動化測試之VBScript對象(3)_QuickTestPro

QTP自動化測試之VBScript對象(3)

發表于：2012-01-18來源：博客園作者：　　known點擊數：標簽：QTP自動化測試

3. FileSystemObject對象 FileSystemObject對象可以操作驅動器、文件夾及文件，其對象模型包含下面的對象和集合。對象/集合描述 FileSystemObject 主對象。包含用來

　　3. FileSystemObject對象

　　FileSystemObject對象可以操作驅動器、文件夾及文件，其對象模型包含下面的對象和集合。

對象/集合	描述
FileSystemObject	主對象。包含用來創建、刪除和獲得有關信息，以及通常用來操作驅動器、文件夾和文件的方法和屬性。和該對象相關聯的許多方法，與其他 FSO 對象中的方法完全相似；它們是為了方便才被提供的。
Drive	對象。包含用來收集信息的方法和屬性，這些信息是關于連接在系統上的驅動器的，如驅動器的共享名和它有多少可用空間。請注意，"drive" 并非必須是硬盤，也可以是 CD-ROM 驅動器，RAM 磁盤等等。并非必須把驅動器實物地連接到系統上；它也可以通過網絡在邏輯上被連接起來。
Drives	集合。提供驅動器的列表，這些驅動器實物地或在邏輯上與系統相連接。Drives 集合包括所有驅動器，與類型無關。要可移動的媒體驅動器在該集合中顯現，不必把媒體插入到驅動器中。
File	對象。包含用來創建、刪除或移動文件的方法和屬性。也用來向系統詢問文件名、路徑和多種其他屬性。
Files	集合。提供包含在文件夾內的所有文件的列表。
Folder	對象。包含用來創建、刪除或移動文件夾的方法和屬性。也用來向系統詢問文件夾名、路徑和多種其他屬性。
Folders	集合。提供在 Folder 內的所有文件夾的列表。
TextStream	對象。用來讀寫文本文件。

對象/集合

描述

FileSystemObject

主對象。包含用來創建、刪除和獲得有關信息，以及通常用來操作驅動器、文件夾和文件的方法和屬性。和該對象相關聯的許多方法，與其他 FSO 對象中的方法完全相似；它們是為了方便才被提供的。

Drive

對象。包含用來收集信息的方法和屬性，這些信息是關于連接在系統上的驅動器的，如驅動器的共享名和它有多少可用空間。請注意，"drive" 并非必須是硬盤，也可以是 CD-ROM 驅動器，RAM 磁盤等等。并非必須把驅動器實物地連接到系統上；它也可以通過網絡在邏輯上被連接起來。

Drives

集合。提供驅動器的列表，這些驅動器實物地或在邏輯上與系統相連接。Drives 集合包括所有驅動器，與類型無關。要可移動的媒體驅動器在該集合中顯現，不必把媒體插入到驅動器中。

File

對象。包含用來創建、刪除或移動文件的方法和屬性。也用來向系統詢問文件名、路徑和多種其他屬性。

Files

集合。提供包含在文件夾內的所有文件的列表。

Folder

對象。包含用來創建、刪除或移動文件夾的方法和屬性。也用來向系統詢問文件夾名、路徑和多種其他屬性。

Folders

集合。提供在 Folder 內的所有文件夾的列表。

TextStream

對象。用來讀寫文本文件。

　　FileSystemObject對象所有屬性、方法及對象和集合的詳細說明，您可以查閱參考文檔，因為內容比較多，我們就看一個簡單的示例，直觀地來了解一下該對象的使用，該示例是將一個文件復制到指定文件夾下。

						'定義并創建對象 

						Dim fso, filePath, folderPath 

						Set fso = CreateObject("Scripting.FileSystemObject") 

						filePath = "C:\\Test.txt"

						folderPath = "D:\\Test"

						Call MoveFile(filePath, folderPath) 

						'將文件移動到指定文件夾 

						Sub MoveFile(sourceFile, targetFolder) 

						    Dim file, fileName 

						    '獲取文件對象 

						    Set file = fso.GetFile(sourceFile) 

						    '判斷目標文件夾是否存在 

						    If Not fso.FolderExists(targetFolder) Then

						        fso.CreateFolder(targetFolder) 

						    End If

						    '將文件移動到目標位置 

						    file.Move(targetFolder & "\\" & file.Name) 

						End Sub

原文轉自：http://www.anti-gravitydesign.com

軟件測試 > 測試技術 > 軟件測試工具 > Mercury軟件測試工具 > QuickTestPro >