Ad Home

Theme images by kelvinjay. Powered by Blogger.

Travel

Header Ads

Java

Selenium

UFT

Framework

General QA Concept

BDD

» » » All About File System Object

This document Tells about the details about file system Object....
Though it is given in QTP help file....i have tried to capture all of them in a single page......
-----------------------------------
dim oFSO
' creating the file system object
set oFSO = CreateObject ("Scripting.FileSystemObject")

' Create a new txt file
----------------------------------------------
' Parameters:
' FilePath - location of the file and its name

Function CreateFile (FilePath)
' varibale that will hold the new file object
dim NewFile
' create the new text ile
set NewFile = oFSO.CreateTextFile(FilePath, True)
set CreateFile = NewFile
End Function
-----------------------------------------------
' Check if a specific file exist

' Parameters:
' FilePath - location of the file and its name

Function CheckFileExists (FilePath)
' check if file exist
CheckFileExists = oFSO.FileExists(FilePath)
End Function
-----------------------------------------------
' Write data to file

' Parameters:
' FileRef - reference to the file
' str - data to be written to the file

Function WriteToFile (byref FileRef,str)
' write str to the text file
FileRef.WriteLine(str)
End Function
-----------------------------------------------
' Read line from file

' Parameters:
' FileRef - reference to the file

Function ReadLineFromFile (byref FileRef)
' read line from text file
ReadLineFromFile = FileRef.ReadLine
End Function
-----------------------------------------------
' Read Entire Text File Test

' Parameters:
' FileRef - reference to the file

Function ReadTextFileTest(Filepath)
Const ForReading = 1, ForWriting = 2, ForAppending = 8
Dim fso, f, Msg
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.OpenTextFile(Filepath, ForReading)
ReadTextFileTest = f.Readall()
End Function
-----------------------------------------------
' Closes an open file.

' Parameters:
' FileRef - reference to the file

Function CloseFile (byref FileRef)
FileRef.close
End Function
-----------------------------------------------
' Opens a specified file and returns an object that can be used to read from, write to, or append to the file.

' Parameters:
' FilePath - location of the file and its name
' mode options are:
' ForReading - 1
' ForWriting - 2
' ForAppending - 8

Function OpenFile (FilePath,mode)
' open the txt file and retunr the File object
set OpenFile = oFSO.OpenTextFile(FilePath, mode, True)
End Function
-----------------------------------------------
' Copy file.

' Parameters:
' FileRef - reference to the file

Sub FileCopy ( FilePathSource,FilePathDest)
' copy source file to destination file
oFSO.CopyFile FilePathSource, FilePathDest
End Function
-----------------------------------------------
' Delete a file.

' Parameters:
' FileRef - reference to the file

Sub FileDelete ( FilePath)
' copy source file to destination file
oFSO.DeleteFile ( FilePath)
End Function
-----------------------------------------------
' Create Folder if Not Exists.

Function ReportFolderStatus(fldr)
Dim fso, msg
Set fso = CreateObject("Scripting.FileSystemObject")
If Not (fso.FolderExists(fldr)) Then
Set f = fso.CreateFolder(fldr)
End If
End Function

ReportFolderStatus("C:\Temp")
-----------------------------------------------
' Count Number of Lines in txt file

Function NumberOfLines(FileName)
i = 0
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objTextFile = objFSO.OpenTextFile(FileName, ForReading)
Do Until objTextFile.AtEndOfStream
Redim Preserve arrFileLines(i)
arrFileLines(i) = objTextFile.ReadLine
i = i +1
Loop
NumberOfLines = UBound(arrFileLines)
objTextFile.Close
End Function

msgbox NumberOfLines("C:\Temp\myfile.txt")

«
Next
Newer Post
»
Previous
Older Post

No comments:

Leave a Reply