Examples:
i) Create a Folder
Dim objFso
Set objFso=CreateObject(“scripting.FileSystemObject”)
objFso.CreateFolder “C:\NageshQtp”
ii) Check if the Folder Exist or not? If not create the Folder
Dim objFso, myFolder
myFolder=”C:\NageshQtp”
Set objFso=CreateObject(“scripting.FileSystemObject”)
If Not objFso.FolderExists(myFolder) Then
objFso.CreateFolder (myFolder)
End If
iii) Copy a Folder
Dim objFso, myFolder
myFolder=”C:\Nagesh\Qtp”
Set objFso=CreateObject(“scripting.FileSystemObject”)
objFso.CopyFolder myFolder,”E:abcd”
iv) Delete a folder
Dim objFso, myFolder
myFolder=”C:\NageshQtp”
Set objFso=CreateObject(“scripting.FileSystemObject”)
objFso.DeleteFolder( myFolder)
2nd
Dim objFso, myFolder
myFolder=”C:\NageshQtp”
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
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:\NageshQtp1.txt”)
objFso.CreateTextFile (“C:\NageshQtp2.doc”)
objFso.CreateTextFile (“C:\NageshQtp3.xls”)
objFso.CreateTextFile (“C:\NageshQtp4.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:\NageshQtp1.txt”
myFile2=”C:\NageshQtp2.doc”
myFile3=”C:\NageshQtp3.xls”
myFile4=”C:\NageshQtp4.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
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:\NageshQtp.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:\NageshQtp2.txt”,1) ’1 for Read, 2 for Write and 8 for Append
Do Until myFile.AtEndOfStream=True
myChar=myFile.ReadLine
Msgbox myChar
Loop
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:\NageshQtp.txt”,1) ’1 for Read, 2 for Write and 8 for Append
myFile.SkipLine
Do Until myFile.AtEndOfStream =True
myLine=myFile.ReadLine
myField=Split(myLine,”,”)
SystemUtil.Run “C:Program FilesHPQuickTest Professional\samples\flight\app\flight4a.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:\NageshQtp3.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:\NageshQtp.doc”)
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:\NageshQtp1.pdf”) Then
objFso.DeleteFile(“C:\NageshQtp.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:\NageshQtp.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:\NageshQtp.txt”
File2=”C:\Nagesh.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”
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
Option Explicit
Dim objFso, File1, myWord, myData, myFile, objRegEx, MatchesFound, TotMatches
File1=”C:\NageshQtp.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) How to count no of items in the listbox
Option Explicit
Dim objFso, FilePath, myFile, oButton, myButton, Buttons, i, TotButtons
FilePath=”C:\NageshQtp.txt”
Set objFso=CreateObject(“scripting.FileSystemObject”)
Set myFile=objFso.OpenTextFile(FilePath,2)
myFile.WriteLine “Button Names”
myFile.WriteLine “————”
Set oButton=Description.Create
oButton(“micclass”).value=”WinButton”
SystemUtil.Run “C:Program Files\HP\QuickTest Professional\samples\flight\app\flight4a.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 system 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”)
Set myFile=objFso.OpenTextFile(“C:\NageshQtp.txt”,2)
myFile.WriteLine “Customer Names”
myFile.WriteLine “———”
If Not Window(“Flight Reservation”).Exist(3) Then
SystemUtil.Run “C:Program Files\HP\QuickTest Professional\samples\flight\app\flight4a.exe”,”",”C:Program Files\HP\QuickTest Professional\samples\flight\app”,”open”
Dialog(“Login”).Activate
Dialog(“Login”).WinEdit(“Agent Name:”).Set “nagesh”
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
xx) how to verify update Order behaviour in the Flight reservation application and how to pass multiple values from the textfile
Option explicit
Dim fso,f,s,arr,strStatus
Set fso=CreateObject("Scripting.filesystemobject")
set f=fso.OpenTextFile("E:\Records.txt",1)
While not f.AtEndOfStream
s=f.ReadLine
arr=split(s," ")
Window("Flight Reservation").WinMenu("Menu").Select "File;Open Order..."
Window("Flight Reservation").Dialog("Open Order").WinCheckBox("Order No.").Set "ON"
Window("Flight Reservation").Dialog("Open Order").WinEdit("Edit").Set arr(1)
Window("Flight Reservation").Dialog("Open Order").WinButton("OK").Click
strStatus = Window("Flight Reservation").WinButton("Update Order").GetROProperty("Enabled")
If strStatus="False" Then
Reporter.ReportEvent micPass,"Update is Disabled","Test is pass"
Else
Reporter.ReportEvent micFail,"Update is Enabled","Test id failed"
End If
Wend
f.Close
Set fso=nothing
xxi)How to count number of items in the Fly From Combo Box and how to display their name one by one.
s = Window("Flight Reservation").WinComboBox("Fly From:"). GetItemsCount()
msgbox s
For i=0 to n-1 step 1
y = Window("Flight Reservation").WinComboBox("Fly From:").GetItem(i) msgbox y
Next
xxii):How to display FlyFrom Combo Box items one by one into Notepad
Option explicit
Dim fso,s,x,n
Set fso=createobject("Scripting.filesystemobject")
Set s=fso.opentextfile ("C:\Documents and Settings\Sai Sarvani\Desktop\ sample.txt",2)
x = Window("Flight Reservation").WinComboBox("Fly From:"). GetItemsCount
For i=0 to n-1 step 1
n = Window("Flight Reservation").WinComboBox("Fly From:").GetItem(i) s.writeline n
next
s.close
xxiii)How to display Flyfrom Combo box items one by one into Runtime Data table and the same data table export to Excel Sheet
datatable.AddSheet ("output").Addparameter "From", " "
n = Window("Flight Reservation").WinComboBox("Fly From:").GetItemsCount
For i=0 to n-1 step 1
x = Window("Flight Reservation").WinComboBox("Fly From:").GetItem(i) datatable.SetCurrentRow (i+1)
datatable.Value ("From", "output") =x
Next
datatable.ExportSheet "C:\Documents and Settings\Sai Sarvani\Desktop\ output1.xls", "output"
xxiv)If you select one item from Fly From Combo Box, that item should be disappeared in Fly To Combo Box
n = Window("Flight Reservation").WinComboBox("Fly From:").GetItemsCount
For i=0 to n-1 step 1
x = Window("Flight Reservation").WinComboBox("Fly From:").GetItem(i) Window("Flight Reservation").WinComboBox("Fly From:").Select x
m = Window("Flight Reservation").WinComboBox("Fly To:").GetItemsCount()
For j=0 to m-1 step 1
y = Window("Flight Reservation").WinComboBox("Fly To:").GetItem(j)
If strcomp(x,y,0)<>0 Then
reporter.ReportEvent micPass,"Items are not same", "test isPass"
else
reporter.ReportEvent micFail,"Items are same", "Test is fail"
End If
Next
Next
xxv)How to count number of subfolders and files in a specified folder and how to display their names one by one? Prepare script for above expected?
Option explicit Dim fso,f,sf,n,g,ft,m,k
Set fso=createobject("Scripting.filesystemobject") Set f=fso.folder ("F:\XP")
Set sf=f.subfolders n=sf.count msgbox n
For each g in sf
msgbox g.name
Next
Set ft=f.files m=ft.count msgbox m
For each k in ft
msgbox k.name
Next
‘**************************************************************************
xxvi)How to get data from one file and how set result into another file
‘*************************************************************************
Set objFso=Createobject("Scripting.FileSystemObject")
set f=objFso.OpenTextFile("C:\Testdata.txt",1)
objFso.CreateFolder("C:\Result")
Set f1=objFso.CreateTextFile("C:\Result\Result.txt")
f1.WriteLine "No Tickets"&space(3)&"Price"&space(3)&"Total"&space(5)&"status"
While not f.AtEndOfStream
s=f.ReadLine
arr=split(s," ")
Window("Flight Reservation").WinMenu("Menu").Select "File;Open Order..."
Window("Flight Reservation").Dialog("Open Order").WinCheckBox("Order No.").Set "ON"
Window("Flight Reservation").Dialog("Open Order").WinEdit("Edit").Set arr(1)
Window("Flight Reservation").Dialog("Open Order").WinButton("OK").Click
t = Window("Flight Reservation").WinEdit("Tickets:").GetVisibleText()
p = Window("Flight Reservation").WinEdit("Price:").GetVisibleText()
p=mid(p,2,len(p)-1)
tot = Window("Flight Reservation").WinEdit("Total:").GetVisibleText()
tot=mid(tot,2,len(tot)-1)
If cdbl(tot)=cdbl(p)*cint(t) Then
Reporter.ReportEvent 0,"Step1","Calculation Pass"
f1.writeline t&space(12)&p&space(2)&tot&space(4)&"Calculation is Pass"
else
Reporter.ReportEvent 1,"Step1","Calculation Fail"
f1.writeline t&space(12)&p&space(2)&tot&space(4)&"Calculation is Fail"
End If
Wend
f.Close
f1.Close
Set f=nothing
Set f1=nothing
Set objFSo=nothing
‘*****************************************************************************
‘Descriptive Programming
*****************************************************************************
Set objFlyFrom = Description.Create
objFlyFrom("Class Name").value = "wincomboBox"
objFlyFrom("attached text").value = "Fly From:"
Set objFlyTo = Description.Create
objFlyTo("Class Name").value = "wincomboBox"
objFlyTo("attached text").value = "Fly To:"
'Set objwin=Description.Create
'objwin("text").value="Flight Reservation"
FlyFrom_ItemsCount = Window("text:=Flight Reservation").WinComboBox(objFlyFrom).GetItemsCount
For i=0 to FlyFrom_ItemsCount-1 step 1
FlyFrom_Item = Window("text:=Flight Reservation").WinComboBox(objFlyFrom).GetItem(i)
Window("text:=Flight Reservation").WinComboBox(objFlyFrom).Select FlyFrom_Item
FlyTo_ItemsCount=Window("text:=Flight Reservation").WinComboBox(objFlyTo).GetItemsCount
For j = 0 to FlyTo_ItemsCount-1
If strcomp(FlyFrom_Item,Window("text:=Flight Reservation").WinComboBox(objFlyTo).GetItem(j))=0 Then
Reporter.ReportEvent micFail, "step1", "Item equals in Fly To"
else
Reporter.ReportEvent micPass, "step1", "Item equals in Fly To"
End If
Next
Next
‘*****************************************************************************
