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

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

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

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

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

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”)

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”

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: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

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”)

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=Nothin

File System Operations

Tags: Capture Customer Names from 1 to 10 Orders in FR and export to a Text File, dim objfso, File System Operation, File System Operations, Filesystemobject, myfile.writeline, vbscript