How to declare a variable in one Function and use the same in different Function in UFT

Function Msg1()

    Execute "Public X : X=10"
    ExecuteGlobal "Public Y : Y=10"


End Function

Function Msg2()
    MsgBox X 'Returns empty
    Msgbox Y 'Returns 10


End Function


Call Msg1
Call Msg2


...

Function to copy files from one Folder to another based on their Extension like .txt, .bmp, .docx using VB Script

SF = "C:\Copy\SF\" 'Source Folder
DF = "C:\Copy\DF\" 'Destination Folder

Call CopyFiles(SF, DF, "txt")


'Function to copy Files based on their extension
Function CopyFiles(SF, DF, Ext)

    'SF = Source Folder
    'DF = Destination Folder
    'Ext = Extension like txt, bmp, docx
    'Example - Call CopyFiles("C:\Copy\SF\", "C:\Copy\DF\", "txt")
    
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set fol1 = fso.GetFolder(SF)
    Set fis = fol1.Files

    For Each fs In fis

    fname = fs.Name
            
        If Ext = fso.GetExtensionName(fname) Then
            fso.CopyFile SF&fname, DF
        End If
    
    Next

End Function


...

Releasing memory space used by an Array in VB Script

Dim NumArray(9)
NumArray(0) = 20

MsgBox UBound(NumArray) 'Returns 9
MsgBox NumArray(0) 'Returns 20

Erase NumArray 'Free memory
MsgBox NumArray(0) 'Returns Empty


'For Dynamic Array

Dim DynamicArray()
ReDim DynamicArray(9) '  reinitializing 
DynamicArray(1) = 21

MsgBox DynamicArray(1) 'Returns 21
MsgBox UBound(DynamicArray) 'Returns 9

Erase DynamicArray ' Free memory

MsgBox UBound(DynamicArray) 'Error
MsgBox DynamicArray(1) 'Error

ReDim Preserve DynamicArray(9)

MsgBox UBound(DynamicArray) 'Returns 9
MsgBox DynamicArray(1) 'Returns Empty



'For Multidimensional Array

Dim ma(2,3,4)
ma(0,0,0) = 23
MsgBox ma(0,0,0) 'Returns 23

Erase ma

MsgBox UBound(ma,2) 'Returns 3
MsgBox ma(0,0,0) 'Returns Empty


...

AOM - Automation Object Model

'Creating QuicTest Object
Set qtapp = createobject("QuickTest.Application")

'Launching the Application
If qtapp.Launched<> Ture Then
    qtapp.Launch
End If

qtapp.Visible = True

'Connecting to ALM
If Not qtapp.TDConnection.IsConnected Then
    qtapp.TDConnection.Connect "QC_URL", "Domain","Project","User","pwd"
End If

'Open a Test script
qtapp.Open "C:\UFT\Test1", True

'Get all Associated Addins and Print them all
adins = qtapp.Test.GetAssociatedAddins

For i = 1 To ubound(adins)
    msgbox adins(i)
Next

'Get the count of Actions associated with the test and Print them all
actions = qtapp.Test.Actions.Count

For i = 1 To actions
    msgbox qtapp.Test.Actions(i).Name
Next

'Get the count of Associated Function Libraries
lcount = qtapp.Test.Settings.Resources.Libraries.Count

'Find and add Library file to the test if not found
set Lib = qtapp.Test.Settings.Resources.Libraries

If Lib.Find("C:\UFT\lib.vbs") = -1 Then
    Lib.Add "C:\UFT\lib.vbs", 1     'Position like 1,2
End If

'Find and add Object Repository fie to the test if not found
Set rep = qtapp.Test.Actions("Action1").ObjectRepositories

If rep.Find("C:\UFT\rep.tsr") = -1 Then
    rep.Add "C:\UFT\rep.tsr", 1     'Position like 1,2
End If

'Adding recovery scenario to the Test
qtApp.Test.Settings.Recovery.Add "C:\UFT\Recover.qrs", "Recover", 1    'Position like 1,2

'Enabling the Recovery scenario
qtApp.Test.Settings.Recovery.Item(1).Enabled = True

'Saving the Test
qtapp.Test.Save



'*********************************
'Some Run Settings
qtApp.Test.Settings.Run.IterationMode = "rai"
qtApp.Test.Settings.Run.StartIteration = 1
qtApp.Test.Settings.Run.EndIteration = 1
qtApp.Test.Settings.Run.DisableSmartIdentification = False

'Some Log Tracking Settings
With App.Test.Settings.LogTracking
    .IncludeInResults = False
    .Port = 18081
    .IP = "127.0.0.1"
    .MinTriggerLevel = "ERROR"
    .EnableAutoConfig = False
    .RecoverConfigAfterRun = False
    .ConfigFile = ""
    .MinConfigLevel = "WARN"
End With

'***********************************


'Executing the Test
set qtest = qtapp.Test

'Performing next step if any error found
qtest.Settings.Run.OnError = "NextStep"

'Create the Run Results Options object and Save the Run Result
Set qtestResults = CreateObject("QuickTest.RunResultsOptions")

qtestResults.ResultsLocation = "C:\UFT\Res1" ' Set the Location

'Run the test 
qtTest.Run qtResultsOpt

MsgBox qtTest.LastRunResults.Status ' Check the results of the test run 

qtApp.Quit         'Close QuickTest
Set qtResultsOpt = Nothing        'Release the Run Results Options object 
Set qtApp = Nothing        'Releasing the memory


....

Encrypt URIs using VB Script

SEncrypt = Escape("Https://google.com")

MsgBox SEncrypt  'Returns 'Https%3A//google.com'


...

Use of TimeSerial Function In VB Script

Dim MyTime1

MsgBox TimeSerial(12 - 6, -15, 0) ' Returns 5:45:00 AM.

Msgbox TimeSerial(12 - 4, -15, -20) ' Returns 7:44:40 AM.

...

Find if any number is Positive, Negative or 0 using VB Script inbuilt Function 'Sgn'

Dim MyVar1, MyVar2, MyVar3, MySign

MyVar1 = 250 : MyVar2 = -351.44 : MyVar3 = 0

Msgbox Sgn(MyVar1)   ' Returns 1.

Msgbox Sgn(MyVar2)   ' Returns -1.

Msgbox Sgn(MyVar3)   ' Returns 0.

...

FormatDateTime Function in VB Script

MsgBox FormatDateTime("01/01/2017 10:11:12", 0)   'Returns 01/01/2017 10:11:12


MsgBox FormatDateTime("01/01/2017 10:11:12", 1)   'Returns Sunday, January 01, 2017


MsgBox FormatDateTime("01/01/2017 10:11:12", 2)   'Returns 1/1/2017


MsgBox FormatDateTime("01/01/2017 10:11:12", 3)   'Returns 10:11:12 AM


MsgBox FormatDateTime("01/01/2017 10:11:12", 4)   'Returns 10:11

Constant	Value	Description
vbGeneralDate	0	Display a date and/or time. If there is a date part, display it as a short date. If there is a time part, display it as a long time. If present, both parts are displayed.
vbLongDate	1	Display a date using the long date format specified in your computer's regional settings.
vbShortDate	2	Display a date using the short date format specified in your computer's regional settings.
vbLongTime	3	Display a time using the time format specified in your computer's regional settings.
vbShortTime	4	Display a time using the 24-hour format (hh:mm).

...

List of all Vb Script Error code

VBScript Syntax Errors:

Error Number	Description
1052	Cannot have multiple default property/method in a Class
1044	Cannot use parentheses when calling a Sub
1053	Class initialize or terminate do not have arguments
1058	'Default' specification can only be on Property Get
1057	'Default' specification must also specify 'Public'
1005	Expected '('
1006	Expected ')'
1011	Expected '='
1021	Expected 'Case'
1047	Expected 'Class'
1025	Expected end of statement
1014	Expected 'End'
1023	Expected expression
1015	Expected 'Function'
1010	Expected identifier
1012	Expected 'If'
1046	Expected 'In'
1026	Expected integer constant
1049	Expected Let or Set or Get in property declaration
1045	Expected literal constant
1019	Expected 'Loop'
1020	Expected 'Next'
1050	Expected 'Property'
1022	Expected 'Select'
1024	Expected statement
1016	Expected 'Sub'
1017	Expected 'Then'
1013	Expected 'To'
1018	Expected 'Wend'
1027	Expected 'While' or 'Until'
1028	Expected 'While,' 'Until,' or end of statement
1029	Expected 'With'
1030	Identifier too long
1014	Invalid character
1039	Invalid 'exit' statement
1040	Invalid 'for' loop control variable
1013	Invalid number
1037	Invalid use of 'Me' keyword
1038	'loop' without 'do'
1048	Must be defined inside a Class
1042	Must be first statement on the line
1041	Name redefined
1051	Number of arguments must be consistent across properties specification
1001	Out of Memory
1054	Property Set or Let must have at least one argument
1002	Syntax error
1055	Unexpected 'Next'
1015	Unterminated string constant

VBScript Run-time Errors:

Error Number	Description
429	ActiveX component can't create object
507	An exception occurred
449	Argument not optional
17	Can't perform requested operation
430	Class doesn't support Automation
506	Class not defined
11	Division by zero
48	Error in loading DLL
5020	Expected ')' in regular expression
5019	Expected ']' in regular expression
432	File name or class name not found during Automation operation
92	For loop not initialized
5008	Illegal assignment
51	Internal error
505	Invalid or unqualified reference
481	Invalid picture
5	Invalid procedure call or argument
5021	Invalid range in character set
94	Invalid use of Null
448	Named argument not found
447	Object doesn't support current locale setting
445	Object doesn't support this action
438	Object doesn't support this property or method
451	Object not a collection
504	Object not safe for creating
503	Object not safe for initializing
502	Object not safe for scripting
424	Object required
91	Object variable not set
7	Out of Memory
28	Out of stack space
14	Out of string space
6	Overflow
35	Sub or function not defined
9	Subscript out of range
5017	Syntax error in regular expression
462	The remote server machine does not exist or is unavailable
10	This array is fixed or temporarily locked
13	Type mismatch
5018	Unexpected quantifier
500	Variable is undefined
458	Variable uses an Automation type not supported in VBScript
450	Wrong number of arguments or invalid property assignment

...