Visit: www.gcreddy.
com for QTP Information
www.gcreddy.com
File System Operations
Computer File System
OS Distribution
FileSystemObject
Dim objFso
‘Creating an Automation Object in File System class, that can be used to perform
Operations on Computer File System
Set objFso=CreateObject(“scripting.FileSystemObject”)
Examples:
i) Create a Folder
Dim objFso
Set objFso=CreateObject(“scripting.FileSystemObject”)
objFso.CreateFolder “C:Documents and Settings1 RIGHATWAYDesktophyderabad”
ii) Check if the Folder Exist or not? If not create the Folder
Dim objFso, myFolder
myFolder=”C:Documents and Settings1 RIGHATWAYDesktophyderabad”
Set objFso=CreateObject(“scripting.FileSystemObject”)
If Not objFso.FolderExists(myFolder) Then
objFso.CreateFolder (myFolder)
End If
1
Visit: www.gcreddy.com for QTP Information
iii) Copy a Folder
Dim objFso, myFolder
myFolder=”C:Documents and Settings1 RIGHATWAYDesktophyderabad”
Set objFso=CreateObject(“scripting.FileSystemObject”)
objFso.CopyFolder myFolder,”E:abcd”
iv) Delete a folder
Dim objFso, myFolder
myFolder=”C:Documents and Settings1 RIGHATWAYDesktophyderabad”
Set objFso=CreateObject(“scripting.FileSystemObject”)
objFso.DeleteFolder( myFolder)
2nd
Dim objFso, myFolder
myFolder=”C:Documents and Settings1 RIGHATWAYDesktophyderabad”
Set objFso=CreateObject(“scripting.FileSystemObject”)
If objFso.FolderExists(myFolder) Then
objFso.DeleteFolder( myFolder)
End If
v) Return a Collection of Disk Drives
Dim objFso, colDrives
Set objFso=CreateObject(“scripting.FileSystemObject”)
Set colDrives=objFso.Drives
For Each oDrive in colDrives
Msgbox oDrive
Next
vi) Get available space on a Drive
2
Visit: www.gcreddy.com for QTP Information
Dim objFso
Set objFso=CreateObject(“scripting.FileSystemObject”)
Set myDrive=objFso.GetDrive(“D:”)
Msgbox myDrive.AvailableSpace/(1024^3) & ” GB”
vii) Creating a Text File
Dim objFso
Set objFso=CreateObject(“scripting.FileSystemObject”)
objFso.CreateTextFile (“C:Documents and Settings1 RIGHATWAYDesktopabcd.txt”)
objFso.CreateTextFile (“C:Documents and Settings1 RIGHATWAYDesktopabcd.doc”)
objFso.CreateTextFile (“C:Documents and Settings1 RIGHATWAYDesktopabcd.xls”)
objFso.CreateTextFile (“C:Documents and Settings1 RIGHATWAYDesktopabcd.pdf”)
Note: We can Create other files also, but they act as Text/Flat Files
viii) Check if the File Exist or not? If not create the File
Dim objFso, myFile1,myFile2, myFile3, myFile4
myFile1=”C:Documents and Settings1 RIGHATWAYDesktopabcd.txt”
myFile2=”C:Documents and Settings1 RIGHATWAYDesktopabcd.doc”
myFile3=”C:Documents and Settings1 RIGHATWAYDesktopabcd.xls”
myFile4=”C:Documents and Settings1 RIGHATWAYDesktopabcd.pdf”
Set objFso=CreateObject(“scripting.FileSystemObject”)
If Not objFso.FileExists(myFile1) Then
objFso.CreateTextFile (myFile1)
End If
If Not objFso.FileExists(myFile2) Then
objFso.CreateTextFile (myFile2)
End If
3
Visit: www.gcreddy.com for QTP Information
If Not objFso.FileExists(myFile3) Then
objFso.CreateTextFile (myFile3)
End If
If Not objFso.FileExists(myFile4) Then
objFso.CreateTextFile (myFile4)
End If
ix) Read Data Character by Character from a text file
Dim objFso, myFile, myChar
Set objFso=CreateObject(“scripting.FileSystemObject”)
Set myFile=objFso.OpenTextFile(“C:Documents and Settings1
RIGHATWAYDesktopabcd.txt”,1) ’1 for Read, 2 for Write and 8 for Append
Do Until myFile.AtEndOfStream=True
myChar=myFile.Read(1)
Msgbox myChar
Loop
myFile.Close
Set objFso=Nothing
x)Read Line by Line from a Text File
Dim objFso, myFile, myChar
Set objFso=CreateObject(“scripting.FileSystemObject”)
Set myFile=objFso.OpenTextFile(“C:Documents and Settings1
RIGHATWAYDesktopabcd.txt”,1) ’1 for Read, 2 for Write and 8 for Append
Do Until myFile.AtEndOfStream=True
myChar=myFile.ReadLine
Msgbox myChar
Loop
4
Visit: www.gcreddy.com for QTP Information
myFile.Close
Set objFso=Nothing
xi) Data Driven Testing by fetching Test data directly from a Text file.
‘*******************************************************************
******************
‘Test Requirement: Data Driven Testing by fetching Test data directly from a Text
file.
‘Author: xyz
‘Date of Creation: 24-08-2010
‘Pre-requasites:
‘abcd.txt (Test Data File)
‘Test Flow:
‘Create File System object
‘Open the file with Read mode and store reference into a variable
‘Skipe the first line
‘Read line by line and split the Data
‘Login Operation
‘Form Looping and pass Parameters
‘*******************************************************************
******************
Dim objFso, myFile, myLine, myField
Set objFso=CreateObject(“scripting.FileSystemObject”)
Set myFile=objFso.OpenTextFile(“C:Documents and Settings1
RIGHATWAYDesktopabcd.txt”,1) ’1 for Read, 2 for Write and 8 for Append
myFile.SkipLine
Do Until myFile.AtEndOfStream =True
myLine=myFile.ReadLine
5
Visit: www.gcreddy.com for QTP Information
myField=Split(myLine,”,”)
SystemUtil.Run “C:Program FilesHPQuickTest
Professionalsamplesflightappflight4a.exe”
Dialog(“text:=Login”).Activate
Dialog(“text:=Login”).WinEdit(“attached text:=Agent Name:”).Set myField(0)
Dialog(“text:=Login”).WinEdit(“attached text:=Password:”).Set myField(1)
Wait 2
Dialog(“text:=Login”).WinButton(“text:=OK”).Click
Window(“text:=Flight Reservation”).Close
Loop
myFile.Close
Set objFso=Nothing
xii) Write Data to a Text File
Dim objFso, myFile, Result, a, b
a=10: b=20
Result=a+b
Set objFso=CreateObject(“scripting.FileSystemObject”)
Set myFile=objFso.OpenTextFile(“C:Documents and Settings1
RIGHATWAYDesktopabcd.txt”,2) ’1 for Read, 2 for Write and 8 for Append
myFile.WriteLine “Addition of a, b is: “&Result
myFile.Close
Set objFso=Nothing
xiii) Delete a Text File
Dim objFso
Set objFso=CreateObject(“scripting.FileSystemObject”)
objFso.DeleteFile(“C:Documents and Settings1 RIGHATWAYDesktopabcd.doc”)
6
Visit: www.gcreddy.com for QTP Information
Set objFso=Nothing
xiv) Check if the File Exists or not? If Exists delete the File
———–
Dim objFso
Set objFso=CreateObject(“scripting.FileSystemObject”)
If objFso.FileExists(“C:Documents and Settings1 RIGHATWAYDesktopabcd.pdf”)
Then
objFso.DeleteFile(“C:Documents and Settings1 RIGHATWAYDesktopabcd.pdf”)
End If
Set objFso=Nothing
xv) Calculate size of a Text File
Dim objFso
Set objFso=CreateObject(“scripting.FileSystemObject”)
File_Size= objFso.GetFile(“C:Documents and Settings1
RIGHATWAYDesktopabcd.txt”).Size
Msgbox File_Size& ” Bytes”
Set objFso=Nothing
xvi)Compare Two Text File by Size, by Text and by Binary values
Option Explicit
Dim objFso, File1, File2, myFile1, myFile2, File_First, File_Second, Files_Compare
File1=”C:Documents and Settings1 RIGHATWAYDesktopabcd.txt”
File2=”C:Documents and Settings1 RIGHATWAYDesktopxyz.txt”
Set objFso=CreateObject(“scripting.FileSystemObject”)
‘Comaring two text files by Size
If objFso.GetFile(File1).Size= objFso.GetFile(File2).Size Then
Msgbox “Files are Same in Size”
7
Visit: www.gcreddy.com for QTP Information
Else
Msgbox “Files are Not Same”
End If
‘Comaring two text files by Text
Set File_First=objFso.OpenTextFile(File1)
Set File_Second=objFso.OpenTextFile(File2)
myFile1=File_First.ReadAll
myFile2=File_Second.ReadAll
‘Msgbox myFile1
Files_Compare=strComp(myFile1,myFile2,1) ’1 for Texual Comparision
If Files_Compare=0 Then
Msgbox “Files are having Same Text”
Else
Msgbox “Files are having Different Text”
End If
‘Binary Comparision of Two Text Files
Files_Compare=strComp(myFile1,myFile2,0) ’0 for Binary Comparision (It is Default
mode)
If Files_Compare=0 Then
Msgbox “Files are Equal”
Else
Msgbox “Files are Not Equal”
End If
Set objFso=Nothing
xvii) Count the number of times a word appears in a Text File
8
Visit: www.gcreddy.com for QTP Information
Option Explicit
Dim objFso, File1, myWord, myData, myFile, objRegEx, MatchesFound, TotMatches
File1=”C:Documents and Settings1 RIGHATWAYDesktopabcd.txt”
Set objFso=CreateObject(“scripting.FileSystemObject”)
Set myFile=objFso.OpenTextFile(File1)
myData=myFile.ReadAll
myWord=”QTP”
Set objRegEx= New RegExp ‘Creating Regular Expression Object
objRegEx.Pattern=myWord ‘Search string
objRegEx.Global=True ‘ Finding all Matches
objRegEx.IgnoreCase=True ‘ Ignoring Case
Set MatchesFound=objRegex.Execute(myData) ‘Executing the Total file data to find
natches
TotMatches=MatchesFound.Count
Msgbox “Matches: “&TotMatches
Set objFso=Nothing
xviii) Capture all Button Names from Login dialog Box and Export to a Text
File
Option Explicit
Dim objFso, FilePath, myFile, oButton, myButton, Buttons, i, TotButtons
FilePath=”C:Documents and Settings1 RIGHATWAYDesktopabcd.txt”
Set objFso=CreateObject(“scripting.FileSystemObject”)
Set myFile=objFso.OpenTextFile(FilePath,2)
myFile.WriteLine “Button Names”
myFile.WriteLine “————”
Set oButton=Description.Create
9
Visit: www.gcreddy.com for QTP Information
oButton(“micclass”).value=”WinButton”
SystemUtil.Run “C:Program FilesHPQuickTest
Professionalsamplesflightappflight4a.exe”
Set Buttons=Dialog(“text:=Login”).ChildObjects(oButton)
TotButtons=Buttons.Count
For i= 0 to TotButtons-1 Step 1
myButton=Buttons(i).GetRoProperty(“text”)
myFile.WriteLine myButton
Next
myFile.Close
Set objFso=Nothing
xix) Capture Customer Names from 1 to 10 Orders in FR and export to a
Text File
*****************************************************************
‘Test Requirement: Capture Customer names from 1 to 10 orders
‘and export to text file
‘Test Flow:
‘Create an object in File system class
‘Open the text file in write mode using File sytem object
‘Login Operation
‘Form Loop to open 1 to 10 orders
‘capture the Customer names and write to external text file
‘*****************************************************************
Dim objFso, myFile
Set objFso=CreateObject(“scripting.FilesystemObject”)
10
Visit: www.gcreddy.com for QTP Information
Set myFile=objFso.OpenTextFile(“C:Documents and Settingsgcr.GCRC-
9A12FBD3D9Desktopabc.txt”,2)
myFile.WriteLine “Customer Names”
myFile.WriteLine “———”
If Not Window(“Flight Reservation”).Exist(3) Then
SystemUtil.Run “C:Program FilesHPQuickTest
Professionalsamplesflightappflight4a.exe”,”",”C:Program FilesHPQuickTest
Professionalsamplesflightapp”,”open”
Dialog(“Login”).Activate
Dialog(“Login”).WinEdit(“Agent Name:”).Set “hgghh”
Dialog(“Login”).WinEdit(“Password:”).SetSecure
“4c9e05a626f9b6471971fb15474e791b28cc1ed0″
Dialog(“Login”).WinButton(“OK”).Click
End If
For Order_Number= 1 to 10 step 1
Window(“Flight Reservation”).Activate
Window(“Flight Reservation”).WinButton(“Button”).Click
Window(“Flight Reservation”).Dialog(“Open Order”).WinCheckBox(“Order No.”).Set
“ON”
Window(“Flight Reservation”).Dialog(“Open Order”).WinEdit(“Edit”).Set
Order_Number
Window(“Flight Reservation”).Dialog(“Open Order”).WinButton(“OK”).Click
wait 2
Customer_Name = Window(“Flight Reservation”).WinEdit(“Name:”).GetVisibleText()
myFile.WriteLine Customer_Name
Next
myFile.Close
Set objFso=Nothing
11
Visit: www.gcreddy.com for QTP Information
12
