File System Operations inwards UFT
i) What is Computer File System?
It is a characteristic of operating organization used to endure amongst Drives, Folders as well as files.
ii) Give examples for File System Operations
Create a folder
Copy folder
Delete folder
Create text file
Delete text file
Write data
Read data
Compare data
Search operations etc...
---------------------------------
iii) How cease user performs File System Operations
Manually, amongst the attention of Input devices.
iv) How to create automatic File System Operations using VBScript
Using File organization Object
---------------------------------
Script Examples:
-------------------
'Create a folder
Dim objFso
Set objFso = CreateObject("Scripting.FileSystemObject")
objfso.CreateFolder "C:\Users\gcreddy\Desktop\UFT"
Set objFso = Nothing 'To unloosen the Memory
----------------------------------------------------
'Check the beingness of UFT folder, if non exists thus Create the folder
Dim objFso, FolderPath
FolderPath = "C:\Users\gcreddy\Desktop\UFT"
Set objFso = CreateObject("Scripting.FileSystemObject")
If Not objFso.FolderExists(FolderPath) Then
objFso.CreateFolder Folderpath
End If
Set objFso = Nothing
--------------------------------------
'Delete a folder
Dim objFso, FolderPath
FolderPath = "C:\Users\gcreddy\Desktop\UFT"
Set objFso = CreateObject("Scripting.FileSystemObject")
objFso.DeleteFolder FolderPath
Set objFso = Nothing
'Copy a Folder
Dim objFso
Set objFso= CreateObject("Scripting.FileSystemObject")
objFso.CopyFolder "C:\Users\gcreddy\Desktop\UFT", "C:\"
Set objFso = Nothing
------------------------------------
'Create a Text File
Dim objFso
Set objFso= CreateObject("Scripting.FileSystemObject")
objFso.CreateTextFile "C:\Users\gcreddy\Desktop\QTP.txt"
objFso.CreateTextFile "C:\Users\gcreddy\Desktop\QTP.doc"
objFso.CreateTextFile "C:\Users\gcreddy\Desktop\QTP.xls"
objFso.CreateTextFile "C:\Users\gcreddy\Desktop\QTP.pdf"
Set objFso = Nothing
----------------------------------------------------
File System Operations
External operations
Create a Folder
Copy a Folder
Delete a Folder
Create a Text file
Delete a Text file
Etc...
----------------------
Text related operations
Writing
Write Continuously
Write Line yesteryear Line
Append
Reading
Read char yesteryear Char
Read Line yesteryear Line
Read All
Comparison
yesteryear Size (*External operation)
yesteryear Text
yesteryear Binary values
Search operations
-------------------------
Create File System Object
Set Variable = CreateObject("Scripting.FileSystemObject")
---------------------
Create Text Stream Object
Set Variable = FileSystemObject.CreateTextFile / OpenTextFile("File Path", File Mode)
File Modes
1 for Read (Default)
2 for Write
8 for Append
---------------------
'Read a Text file char yesteryear char
Dim objFso, objTextstream, myChar
Set objFso = CreateObject("Scripting.FileSystemObject")
Set objTextstream = objFso.OpenTextFile("C:\Users\gcreddy\Desktop\QTP.txt")
Do While objTextstream.AtEndOfStream = False
myChar = objTextstream.Read(1)
Msgbox myChar
Loop
objTextstream.Close
Set objTextstream = Nothing
Set objfso = Nothing
--------------------------------
'Read a Text file Line yesteryear Line
Dim objFso, objTextstream, myLine
Set objFso = CreateObject("Scripting.FileSystemObject")
Set objTextstream = objFso.OpenTextFile("C:\Users\gcreddy\Desktop\QTP.txt")
Do While objTextstream.AtEndOfStream = False
myLine = objTextstream.ReadLine
Msgbox myLine
Loop
objTextstream.Close
Set objTextstream = Nothing
Set objfso = Nothing
------------------------------
'Read a Text file Line yesteryear Line (Range of Lines)
Dim objFso, objTextstream, myLine, LineCount
Set objFso = CreateObject("Scripting.FileSystemObject")
Set objTextstream = objFso.OpenTextFile("C:\Users\gcreddy\Desktop\QTP.txt")
LineCount = 0
Do While objTextstream.AtEndOfStream = False
myLine = objTextstream.ReadLine
LineCount = LineCount + 1
If LineCount > 2 And LineCount < half-dozen Then
Msgbox myLine
End If
Loop
objTextstream.Close
Set objTextstream = Nothing
Set objfso = Nothing
--------------------------
'Read a Text file Line yesteryear Line (Range of Lines)
Dim objFso, objTextstream, myLine, LineCount
Set objFso = CreateObject("Scripting.FileSystemObject")
Set objTextstream = objFso.OpenTextFile("C:\Users\gcreddy\Desktop\QTP.txt")
LineCount = 0
Do While objTextstream.AtEndOfStream = False
myLine = objTextstream.ReadLine
LineCount = LineCount + 1
If LineCount = iii Then
a = Split(myLine)
Msgbox a(1)
End If
Loop
objTextstream.Close
Set objTextstream = Nothing
Set objfso = Nothing
----------------------------------
'Read a Text file (Read All)
Dim objFso, objTextstream, myContent
Set objFso = CreateObject("Scripting.FileSystemObject")
Set objTextstream = objFso.OpenTextFile("C:\Users\gcreddy\Desktop\QTP.txt")
myContent = objTextstream.ReadAll
Msgbox myContent
objTextstream.Close
Set objTextstream = Nothing
Set objfso = Nothing
-------------------------------
'Read a Text file (Read All)
Dim objFso, objTextstream, myContent
Set objFso = CreateObject("Scripting.FileSystemObject")
Set objTextstream = objFso.OpenTextFile("C:\Users\gcreddy\Desktop\UFT.txt")
myContent = objTextstream.ReadAll
Print myContent
objTextstream.Close
Set objTextstream = Nothing
Set objfso = Nothing
----------------------------------------
'Read Test Data from a Text file as well as perform Data Driven Testing for Login Operation
Dim objFso, objTextstream, myLine, myField
Set objFso = CreateObject("Scripting.FileSystemObject")
Set objTextstream = objFso.OpenTextFile("C:\Users\gcreddy\Desktop\QTP.txt")
objTextstream.SkipLine
While objTextstream.AtEndOfStream = False
myLine = objTextstream.ReadLine
myField = Split(myLine, ", ")
SystemUtil.Run "C:\Program Files\HP\Unified Functional Testing\samples\flight\app\flight4a.exe
Dialog("Login").Activate
Dialog("Login").WinEdit("Agent Name:").Set myField(0)
Dialog("Login").WinEdit("Password:").Set myField(1)
Wait 2
Dialog("Login").WinButton("OK").Click
Window("Flight Reservation").Close
Wend
objTextstream.Close
Set objTextstream = Nothing
Set objFso = Nothing
---------------------------------
'Read Test Data from a Text file (Range of Records) as well as perform Data Driven Testing for Login Operation
Dim objFso, objTextstream, myLine, myField, LineCount
Set objFso = CreateObject("Scripting.FileSystemObject")
Set objTextstream = objFso.OpenTextFile("C:\Users\gcreddy\Desktop\QTP.txt")
LineCount = 0
While objTextstream.AtEndOfStream = False
myLine = objTextstream.ReadLine
LineCount = LineCount + 1
If LineCount > four And LineCount < 9 Then
myField = Split(myLine, ", ")
SystemUtil.Run "C:\Program Files\HP\Unified Functional Testing\samples\flight\app\flight4a.exe”
Dialog("Login").Activate
Dialog("Login").WinEdit("Agent Name:").Set myField(0)
Dialog("Login").WinEdit("Password:").Set myField(1)
Wait 2
Dialog("Login").WinButton("OK").Click
Window("Flight Reservation").Close
End If
Wend
objTextstream.Close
Set objTextstream = Nothing
Set objFso = Nothing
----------------------------------
'Read Test Data from a Text file as well as perform Data Driven Testing for Login Operation
'Write Result to about other File
Dim objFso, objTextstream1, objTextstream2, myLine, myField, LineCount
Set objFso = CreateObject("Scripting.FileSystemObject")
Set objTextstream1 = objFso.OpenTextFile("C:\Users\gcreddy\Desktop\QTP.txt")
Set objTextstream2 = objFso.OpenTextFile("C:\Users\gcreddy\Desktop\Result.txt", 2)
objTextstream1.SkipLine
objTextstream2.WriteLine "Agent Password Result"
While objTextstream1.AtEndOfStream = False
myLine = objTextstream1.ReadLine
myField = Split(myLine, ", ")
SystemUtil.Run "C:\Program Files\HP\Unified Functional Testing\samples\flight\app\flight4a.exe
Dialog("Login").Activate
Dialog("Login").WinEdit("Agent Name:").Set myField(0)
Dialog("Login").WinEdit("Password:").Set myField(1)
Wait 2
Dialog("Login").WinButton("OK").Click
If Window("Flight Reservation").Exist(12) Then
Window("Flight Reservation").Close
objTextstream2.WriteLine myField(0) &", " &myField(1) & " Login Successful - Passed"
Else
SystemUtil.CloseDescendentProcesses
objTextstream2.WriteLine myField(0) &", " &myField(1) & " Login Unsuccessful - Failed"
End If
Wend
objTextstream1.Close
objTextstream2.Close
Set objTextstream1 = Nothing
Set objTextstream2 = Nothing
Set objFso = Nothing
----------------------------
'Write Data
Dim objFso, objTextstream, num1, num2, res
num1 = 500 : num2 = 600 : res = num1 + num2
Set objFso = CreateObject("Scripting.FileSystemObject")
Set objTextstream = objFso.OpenTextFile("C:\Users\gcreddy\Desktop\QTP.txt", 8)
objTextstream.Write "Addition of num1, num2 is: "& res
objTextstream.Close
Set objTextstream = Nothing
Set objFso = Nothing
-----------------------------------------
'Write Data Line yesteryear Line
Dim objFso, objTextstream, num1, num2, res
num1 = 500 : num2 = 600 : res = num1 + num2
Set objFso = CreateObject("Scripting.FileSystemObject")
Set objTextstream = objFso.OpenTextFile("C:\Users\gcreddy\Desktop\QTP.txt", 8)
objTextstream.WriteLine "Addition of num1, num2 is: "& res
objTextstream.Close
Set objTextstream = Nothing
Set objFso = Nothing
-----------------------------------------------
'Read Button Names from Login Dialog as well as write to Text file
Dim objFso, objTextstream, oButton, Buttons, i, sno
Set objFso = CreateObject("Scripting.FileSystemObject")
Set objTextstream = objFso.OpenTextFile("C:\Users\gcreddy\Desktop\QTP.txt", 2)
Set oButton = Description.Create
oButton("Class Name").Value = "WinButton"
Set Buttons = Dialog("Login").ChildObjects(oButton)
objTextstream.WriteLine "Button Names"
objTextstream.WriteLine "--------"
sno = 1
For i = 0 To Buttons.Count - i Step 1
objTextstream.WriteLine sno &") " & Buttons(i).GetRoProperty("text")
sno = sno + 1
Next
objTextstream.Close
Set objTextstream = Nothing
Set objFso = Nothing
--------------------------------------------
'Read Link Names from Rediff Home Page as well as write to Text file
Dim objFso, objTextstream, oLink, Links, i, sno
Set objFso = CreateObject("Scripting.FileSystemObject")
Set objTextstream = objFso.OpenTextFile("C:\Users\gcreddy\Desktop\QTP.txt", 2)
Set oLink = Description.Create
oLink("micclass").Value = "Link"
Set Links = Browser("Rediff.com - India, Business,").Page("Rediff.com - India, Business,").ChildObjects(oLink)
objTextstream.WriteLine "Link Names"
objTextstream.WriteLine "--------"
sno = 1
For i = 0 To Links.Count - i Step 1
objTextstream.WriteLine sno &") " & Links(i).GetRoProperty("text")
sno = sno + 1
Next
objTextstream.Close
Set objTextstream = Nothing
Set objFso = Nothing
--------------------------------------------
'Open i to 10 Records inwards Flight Reservation as well as Read Customer Names , Tickets
'Export to Text file
Dim objFso, objTextstream, ord, C_Name, Tickets
Set objFso = CreateObject("Scripting.FileSystemObject")
Set objTextstream = objFso.OpenTextFile("C:\Users\gcreddy\Desktop\QTP.txt", 2)
objTextstream.WriteLine "Customer Name Tickets"
For ord = i 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 ord
Window("Flight Reservation").Dialog("Open Order").WinButton("OK").Click
C_Name = Window("Flight Reservation").WinEdit("Name:").GetROProperty("text")
Tickets = Window("Flight Reservation").WinEdit("Tickets:").GetROProperty("text")
objTextstream.WriteLine C_Name &" "& Tickets
Next
objTextstream.Close
Set objTextstream = Nothing
Set objFso = Nothing
--------------------------------------------
'Compare ii text files yesteryear Size, yesteryear Text, as well as yesteryear Binary Values
Dim objFso, objTextstream1, objTextstream2, File1, File2, content1, content2
File1 = "C:\Users\gcreddy\Desktop\QTP.txt"
File2 = "C:\Users\gcreddy\Desktop\abc.txt"
Set objFso = CreateObject("Scripting.FileSystemObject")
'Compare ii text files yesteryear Size
Msgbox "File i Size is: " & objFso.GetFile(File1).Size & " Bytes"
Msgbox "File 2 Size is: " & objFso.GetFile(File2).Size & " Bytes"
If objFso.GetFile(File1).Size = objFso.GetFile(File2).Size Then
Msgbox "Files are Same yesteryear Size"
Else
Msgbox "Files are Not Same yesteryear Size"
End If
Set objTextstream1 = objFso.OpenTextFile(File1)
Set objTextstream2 = objFso.OpenTextFile(File2)
content1 = objTextstream1.ReadAll
content2 = objTextstream2.ReadAll
'Compare ii text files yesteryear Text
If StrComp(content1, content2, 1) = 0 Then
Msgbox "Files are Same yesteryear Text"
Else
Msgbox "Files are Not Same yesteryear Text"
End If
'Compare ii text files yesteryear Binary Values
If StrComp(content1, content2) = 0 Then
Msgbox "Files are Same"
Else
Msgbox "Files are Not Same"
End If
objTextstream1.Close
objTextstream2.Close
Set objTextstream1 = Nothing
Set objTextstream2 = Nothing
Set objFso = Nothing
i) What is Computer File System?
It is a characteristic of operating organization used to endure amongst Drives, Folders as well as files.
ii) Give examples for File System Operations
Create a folder
Copy folder
Delete folder
Create text file
Delete text file
Write data
Read data
Compare data
Search operations etc...
---------------------------------
iii) How cease user performs File System Operations
Manually, amongst the attention of Input devices.
iv) How to create automatic File System Operations using VBScript
Using File organization Object
---------------------------------
Script Examples:
-------------------
'Create a folder
Dim objFso
Set objFso = CreateObject("Scripting.FileSystemObject")
objfso.CreateFolder "C:\Users\gcreddy\Desktop\UFT"
Set objFso = Nothing 'To unloosen the Memory
----------------------------------------------------
'Check the beingness of UFT folder, if non exists thus Create the folder
Dim objFso, FolderPath
FolderPath = "C:\Users\gcreddy\Desktop\UFT"
Set objFso = CreateObject("Scripting.FileSystemObject")
If Not objFso.FolderExists(FolderPath) Then
objFso.CreateFolder Folderpath
End If
Set objFso = Nothing
--------------------------------------
'Delete a folder
Dim objFso, FolderPath
FolderPath = "C:\Users\gcreddy\Desktop\UFT"
Set objFso = CreateObject("Scripting.FileSystemObject")
objFso.DeleteFolder FolderPath
Set objFso = Nothing
'Copy a Folder
Dim objFso
Set objFso= CreateObject("Scripting.FileSystemObject")
objFso.CopyFolder "C:\Users\gcreddy\Desktop\UFT", "C:\"
Set objFso = Nothing
------------------------------------
'Create a Text File
Dim objFso
Set objFso= CreateObject("Scripting.FileSystemObject")
objFso.CreateTextFile "C:\Users\gcreddy\Desktop\QTP.txt"
objFso.CreateTextFile "C:\Users\gcreddy\Desktop\QTP.doc"
objFso.CreateTextFile "C:\Users\gcreddy\Desktop\QTP.xls"
objFso.CreateTextFile "C:\Users\gcreddy\Desktop\QTP.pdf"
Set objFso = Nothing
----------------------------------------------------
File System Operations
External operations
Create a Folder
Copy a Folder
Delete a Folder
Create a Text file
Delete a Text file
Etc...
----------------------
Text related operations
Writing
Write Continuously
Write Line yesteryear Line
Append
Reading
Read char yesteryear Char
Read Line yesteryear Line
Read All
Comparison
yesteryear Size (*External operation)
yesteryear Text
yesteryear Binary values
Search operations
-------------------------
Create File System Object
Set Variable = CreateObject("Scripting.FileSystemObject")
---------------------
Create Text Stream Object
Set Variable = FileSystemObject.CreateTextFile / OpenTextFile("File Path", File Mode)
File Modes
1 for Read (Default)
2 for Write
8 for Append
---------------------
'Read a Text file char yesteryear char
Dim objFso, objTextstream, myChar
Set objFso = CreateObject("Scripting.FileSystemObject")
Set objTextstream = objFso.OpenTextFile("C:\Users\gcreddy\Desktop\QTP.txt")
Do While objTextstream.AtEndOfStream = False
myChar = objTextstream.Read(1)
Msgbox myChar
Loop
objTextstream.Close
Set objTextstream = Nothing
Set objfso = Nothing
--------------------------------
'Read a Text file Line yesteryear Line
Dim objFso, objTextstream, myLine
Set objFso = CreateObject("Scripting.FileSystemObject")
Set objTextstream = objFso.OpenTextFile("C:\Users\gcreddy\Desktop\QTP.txt")
Do While objTextstream.AtEndOfStream = False
myLine = objTextstream.ReadLine
Msgbox myLine
Loop
objTextstream.Close
Set objTextstream = Nothing
Set objfso = Nothing
------------------------------
'Read a Text file Line yesteryear Line (Range of Lines)
Dim objFso, objTextstream, myLine, LineCount
Set objFso = CreateObject("Scripting.FileSystemObject")
Set objTextstream = objFso.OpenTextFile("C:\Users\gcreddy\Desktop\QTP.txt")
LineCount = 0
Do While objTextstream.AtEndOfStream = False
myLine = objTextstream.ReadLine
LineCount = LineCount + 1
If LineCount > 2 And LineCount < half-dozen Then
Msgbox myLine
End If
Loop
objTextstream.Close
Set objTextstream = Nothing
Set objfso = Nothing
--------------------------
'Read a Text file Line yesteryear Line (Range of Lines)
Dim objFso, objTextstream, myLine, LineCount
Set objFso = CreateObject("Scripting.FileSystemObject")
Set objTextstream = objFso.OpenTextFile("C:\Users\gcreddy\Desktop\QTP.txt")
LineCount = 0
Do While objTextstream.AtEndOfStream = False
myLine = objTextstream.ReadLine
LineCount = LineCount + 1
If LineCount = iii Then
a = Split(myLine)
Msgbox a(1)
End If
Loop
objTextstream.Close
Set objTextstream = Nothing
Set objfso = Nothing
----------------------------------
'Read a Text file (Read All)
Dim objFso, objTextstream, myContent
Set objFso = CreateObject("Scripting.FileSystemObject")
Set objTextstream = objFso.OpenTextFile("C:\Users\gcreddy\Desktop\QTP.txt")
myContent = objTextstream.ReadAll
Msgbox myContent
objTextstream.Close
Set objTextstream = Nothing
Set objfso = Nothing
-------------------------------
'Read a Text file (Read All)
Dim objFso, objTextstream, myContent
Set objFso = CreateObject("Scripting.FileSystemObject")
Set objTextstream = objFso.OpenTextFile("C:\Users\gcreddy\Desktop\UFT.txt")
myContent = objTextstream.ReadAll
Print myContent
objTextstream.Close
Set objTextstream = Nothing
Set objfso = Nothing
----------------------------------------
'Read Test Data from a Text file as well as perform Data Driven Testing for Login Operation
Dim objFso, objTextstream, myLine, myField
Set objFso = CreateObject("Scripting.FileSystemObject")
Set objTextstream = objFso.OpenTextFile("C:\Users\gcreddy\Desktop\QTP.txt")
objTextstream.SkipLine
While objTextstream.AtEndOfStream = False
myLine = objTextstream.ReadLine
myField = Split(myLine, ", ")
SystemUtil.Run "C:\Program Files\HP\Unified Functional Testing\samples\flight\app\flight4a.exe
Dialog("Login").Activate
Dialog("Login").WinEdit("Agent Name:").Set myField(0)
Dialog("Login").WinEdit("Password:").Set myField(1)
Wait 2
Dialog("Login").WinButton("OK").Click
Window("Flight Reservation").Close
Wend
objTextstream.Close
Set objTextstream = Nothing
Set objFso = Nothing
---------------------------------
'Read Test Data from a Text file (Range of Records) as well as perform Data Driven Testing for Login Operation
Dim objFso, objTextstream, myLine, myField, LineCount
Set objFso = CreateObject("Scripting.FileSystemObject")
Set objTextstream = objFso.OpenTextFile("C:\Users\gcreddy\Desktop\QTP.txt")
LineCount = 0
While objTextstream.AtEndOfStream = False
myLine = objTextstream.ReadLine
LineCount = LineCount + 1
If LineCount > four And LineCount < 9 Then
myField = Split(myLine, ", ")
SystemUtil.Run "C:\Program Files\HP\Unified Functional Testing\samples\flight\app\flight4a.exe”
Dialog("Login").Activate
Dialog("Login").WinEdit("Agent Name:").Set myField(0)
Dialog("Login").WinEdit("Password:").Set myField(1)
Wait 2
Dialog("Login").WinButton("OK").Click
Window("Flight Reservation").Close
End If
Wend
objTextstream.Close
Set objTextstream = Nothing
Set objFso = Nothing
----------------------------------
'Read Test Data from a Text file as well as perform Data Driven Testing for Login Operation
'Write Result to about other File
Dim objFso, objTextstream1, objTextstream2, myLine, myField, LineCount
Set objFso = CreateObject("Scripting.FileSystemObject")
Set objTextstream1 = objFso.OpenTextFile("C:\Users\gcreddy\Desktop\QTP.txt")
Set objTextstream2 = objFso.OpenTextFile("C:\Users\gcreddy\Desktop\Result.txt", 2)
objTextstream1.SkipLine
objTextstream2.WriteLine "Agent Password Result"
While objTextstream1.AtEndOfStream = False
myLine = objTextstream1.ReadLine
myField = Split(myLine, ", ")
SystemUtil.Run "C:\Program Files\HP\Unified Functional Testing\samples\flight\app\flight4a.exe
Dialog("Login").Activate
Dialog("Login").WinEdit("Agent Name:").Set myField(0)
Dialog("Login").WinEdit("Password:").Set myField(1)
Wait 2
Dialog("Login").WinButton("OK").Click
If Window("Flight Reservation").Exist(12) Then
Window("Flight Reservation").Close
objTextstream2.WriteLine myField(0) &", " &myField(1) & " Login Successful - Passed"
Else
SystemUtil.CloseDescendentProcesses
objTextstream2.WriteLine myField(0) &", " &myField(1) & " Login Unsuccessful - Failed"
End If
Wend
objTextstream1.Close
objTextstream2.Close
Set objTextstream1 = Nothing
Set objTextstream2 = Nothing
Set objFso = Nothing
----------------------------
'Write Data
Dim objFso, objTextstream, num1, num2, res
num1 = 500 : num2 = 600 : res = num1 + num2
Set objFso = CreateObject("Scripting.FileSystemObject")
Set objTextstream = objFso.OpenTextFile("C:\Users\gcreddy\Desktop\QTP.txt", 8)
objTextstream.Write "Addition of num1, num2 is: "& res
objTextstream.Close
Set objTextstream = Nothing
Set objFso = Nothing
-----------------------------------------
'Write Data Line yesteryear Line
Dim objFso, objTextstream, num1, num2, res
num1 = 500 : num2 = 600 : res = num1 + num2
Set objFso = CreateObject("Scripting.FileSystemObject")
Set objTextstream = objFso.OpenTextFile("C:\Users\gcreddy\Desktop\QTP.txt", 8)
objTextstream.WriteLine "Addition of num1, num2 is: "& res
objTextstream.Close
Set objTextstream = Nothing
Set objFso = Nothing
-----------------------------------------------
'Read Button Names from Login Dialog as well as write to Text file
Dim objFso, objTextstream, oButton, Buttons, i, sno
Set objFso = CreateObject("Scripting.FileSystemObject")
Set objTextstream = objFso.OpenTextFile("C:\Users\gcreddy\Desktop\QTP.txt", 2)
Set oButton = Description.Create
oButton("Class Name").Value = "WinButton"
Set Buttons = Dialog("Login").ChildObjects(oButton)
objTextstream.WriteLine "Button Names"
objTextstream.WriteLine "--------"
sno = 1
For i = 0 To Buttons.Count - i Step 1
objTextstream.WriteLine sno &") " & Buttons(i).GetRoProperty("text")
sno = sno + 1
Next
objTextstream.Close
Set objTextstream = Nothing
Set objFso = Nothing
--------------------------------------------
'Read Link Names from Rediff Home Page as well as write to Text file
Dim objFso, objTextstream, oLink, Links, i, sno
Set objFso = CreateObject("Scripting.FileSystemObject")
Set objTextstream = objFso.OpenTextFile("C:\Users\gcreddy\Desktop\QTP.txt", 2)
Set oLink = Description.Create
oLink("micclass").Value = "Link"
Set Links = Browser("Rediff.com - India, Business,").Page("Rediff.com - India, Business,").ChildObjects(oLink)
objTextstream.WriteLine "Link Names"
objTextstream.WriteLine "--------"
sno = 1
For i = 0 To Links.Count - i Step 1
objTextstream.WriteLine sno &") " & Links(i).GetRoProperty("text")
sno = sno + 1
Next
objTextstream.Close
Set objTextstream = Nothing
Set objFso = Nothing
--------------------------------------------
'Open i to 10 Records inwards Flight Reservation as well as Read Customer Names , Tickets
'Export to Text file
Dim objFso, objTextstream, ord, C_Name, Tickets
Set objFso = CreateObject("Scripting.FileSystemObject")
Set objTextstream = objFso.OpenTextFile("C:\Users\gcreddy\Desktop\QTP.txt", 2)
objTextstream.WriteLine "Customer Name Tickets"
For ord = i 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 ord
Window("Flight Reservation").Dialog("Open Order").WinButton("OK").Click
C_Name = Window("Flight Reservation").WinEdit("Name:").GetROProperty("text")
Tickets = Window("Flight Reservation").WinEdit("Tickets:").GetROProperty("text")
objTextstream.WriteLine C_Name &" "& Tickets
Next
objTextstream.Close
Set objTextstream = Nothing
Set objFso = Nothing
--------------------------------------------
'Compare ii text files yesteryear Size, yesteryear Text, as well as yesteryear Binary Values
Dim objFso, objTextstream1, objTextstream2, File1, File2, content1, content2
File1 = "C:\Users\gcreddy\Desktop\QTP.txt"
File2 = "C:\Users\gcreddy\Desktop\abc.txt"
Set objFso = CreateObject("Scripting.FileSystemObject")
'Compare ii text files yesteryear Size
Msgbox "File i Size is: " & objFso.GetFile(File1).Size & " Bytes"
Msgbox "File 2 Size is: " & objFso.GetFile(File2).Size & " Bytes"
If objFso.GetFile(File1).Size = objFso.GetFile(File2).Size Then
Msgbox "Files are Same yesteryear Size"
Else
Msgbox "Files are Not Same yesteryear Size"
End If
Set objTextstream1 = objFso.OpenTextFile(File1)
Set objTextstream2 = objFso.OpenTextFile(File2)
content1 = objTextstream1.ReadAll
content2 = objTextstream2.ReadAll
'Compare ii text files yesteryear Text
If StrComp(content1, content2, 1) = 0 Then
Msgbox "Files are Same yesteryear Text"
Else
Msgbox "Files are Not Same yesteryear Text"
End If
'Compare ii text files yesteryear Binary Values
If StrComp(content1, content2) = 0 Then
Msgbox "Files are Same"
Else
Msgbox "Files are Not Same"
End If
objTextstream1.Close
objTextstream2.Close
Set objTextstream1 = Nothing
Set objTextstream2 = Nothing
Set objFso = Nothing