Import a data sheet into your test at runtime.

' ============================================================= ' function: ImportDataSheet' desc : Imports a single data sheet ' params : strFile - full path of the xls file with the sheet ' strSource - name of the sheet on the xls' strTarget - name of the sheet to import it to ' returns : void' ============================================================= Function ImportDataSheet(strFile, strSource, strTarget)   Dim objFS   ' create a file system object Set objFS = CreateObject("Scripting.FileSystemObject")   '...

Read More

Export a data sheet at runtime.

' ============================================================= ' function: ExportDataSheet' desc : Exports a data sheet ' params : strFile - full path to save the exported xls, note ' that any existing xls will be deleted' strSheet - sheet to export ' returns : void' ============================================================= Function ExportDataSheet(strFile, strSheet)   Dim objFS   ' create a file system object Set objFS = CreateObject("Scripting.FileSystemObject")   ' check that the xls doesn't already...

Read More

Import a data table into your test at runtime.

' ============================================================= ' function: ImportDataTable' desc : Imports a data table ' params : strFile - full path of the xls file to import ' returns : void' ============================================================= Function ImportDataTable(strFile)   Dim objFS   ' create a file system object Set objFS = CreateObject("Scripting.FileSystemObject")   ' check that the source file exists If objFS.FileExists(strFile) Then       ' import the data table...

Read More

Export a data table at runtime.

' ============================================================= ' function: ExportDataTable' desc : Exports a data table ' params : strFile - full path to save the exported xls, note ' that any existing xls will be deleted' returns : void ' ============================================================= Function ExportDataTable(strFile)   Dim objFS   ' create a file system object Set objFS = CreateObject("Scripting.FileSystemObject")   ' check that the xls doesn't already exist If objFS.FileExists(strFile) Then...

Read More

Create Folder: Create a local or network folder.

' ============================================================= ' function: FolderCreate' desc    : Creates a folder ' params  : strFolderPath - the folder to create (full path) ' returns : void' ============================================================= Function FolderCreate(strFolderPath)   Dim objFS   ' create a file system object Set objFS = CreateObject("Scripting.FileSystemObject")   ' create the folder If Not objFS.FolderExists(strFolderPath) Then     objFS.CreateFolder...

Read More

Copy Folder: Copy a local or network folder.

' ============================================================= ' function: FolderCopy' desc : Copys a folder and all of its files to a new path ' params : strSourceFolder - the folder to copy' strDestinationFolder - the location to copy to ' returns : void' ============================================================= Function FolderCopy(strSourceFolder, strDestinationFolder)   Dim objFS   ' create a file system object Set objFS = CreateObject("Scripting.FileSystemObject")   ' check that the source folder exists...

Read More

Copy a file from one location to another.

' =============================================================  ' function: FileCopy ' desc : Copies a file from one location to another  ' params : strFile - full path to the source file ' strTarget - the folder to copy the file to  ' returns : void ' =============================================================  Function FileCopy(strFile, strTarget)  Dim objFS  ' create a file system object  Set objFS = CreateObject("Scripting.FileSystemObject")  ' check that the source file...

Read More

Compare Files: Compare the contents of two text files

' ============================================================= ' function: CompareFiles ' desc :    Compares two text files ' params :  strFile1 is the first file '           strFile2 is the second file ' returns : True if they are the same, False otherwise ' ============================================================= Function CompareFiles(strFile1, strFile2) Dim objFS Dim objFileA, objFileB Dim strLineA, strLineB dim intCompareResult...

Read More