userfuncjtions

Define a public function to accept user entered URL and saved it in an environment variable.

In Setup Action:
Environment.Value("userEnteredURL")= UserInputURL()

In PublicFunction library:
'@Description Accept user input URL
Public Function UserInputURL()
    UserInputURL=Inputbox("Please enter the URL you want to test.","Enter Testing URL","http://newtours.demoaut.com/")
End Function

String functions:
Define a function to get the file name

Public Function GetFileName(filepath)

Date functions:Define a function that returns current date in MMM DD YYYY format
Function f_FormatingDate(fDateMMMDDYYY)

 tDate = Date
  
 tMonth  = MonthName(Month(CDate(tDate)), true)
 tDay = Day(Date())
 tYear= Year(Date())

 If tDay<10 Then
  tDay="0"& tDay
 End If

 fDateMMMDDYYY = tMonth & " " & tDay & " " & tYear

end function

Define a function to ask user to select an excel datatable
Function f_OpenFileDialog(tpath,kDataTable)
 Set ObjFSO = CreateObject("UserAccounts.CommonDialog") 
 ObjFSO.Filter="ExcelFiles|*.xls"
 ObjFSO.FilterIndex = 1

 ObjFSO.InitialDir = tpath

 InitFSO = ObjFSO.ShowOpen 
 If InitFSO = False Then
  msgbox  "Cannot proceed without selecting DataTable."
  End If
 KDataTable = ObjFSO.FileName 
end function

Add a new folder:
  function f_AddNewFolder(path, folderName)
    Dim fso1, f, fc, nf
    Set fso1 = CreateObject("Scripting.FileSystemObject")
    Set f = fso1.GetFolder(path)
    Set fc = f.SubFolders
    If folderName <> "" Then
      If Not(fso1.FolderExists(path & folderName)) then
 Set nf = fc.Add(folderName)
      End If
    Else
    Set nf = fc.Add("New Folder")
    End If
  End function

 Const OverwriteExisting = TRUE
 Set objFSO = CreateObject("Scripting.FileSystemObject")
 objFSO.CopyFile tFilePath  , "C:Temp", OverwriteExisting
   
    'Rename it by adding the run name
 Set objFSO = CreateObject("Scripting.FileSystemObject")
 objFSO.MoveFile (tFileNamePath_inTemp) , (tNewFileNamePath )
 set objFSO = nothing

 Function f_CloseOpenBrowsers()

 For each Process in GetObject("winmgmts:{impersonationLevel=impersonate}").ExecQuery ("select * from Win32_Process where Name='iexplore.exe'")
  Process.Terminate
 Next