'===================================================================================================================== 'Function Name : QC_AttachScreenshots 'Description : To attach the screenshots to test run in QC 'Author : Jay 'Input Parameter : strScreenshotsFolder - The complete path of the folder that has the screenshots 'Return Value : None 'Date Created : 13/11/2014 '===================================================================================================================== Function QC_AttachScreenshots ( strScreenshotsFolder ) Dim objFSO, objFolderName, objfileList, objFile Set objFSO = CreateObject ( "Scripting.FileSystemObject" ) Set objFolderNam