HP ALM VBScript – Upload the Most Recent File in Folder

Some test artifacts are generated with random names or appended with time-stamps.

This makes it difficult to attach the right file to the test run.

Below is an example to find the latest screenshot file.

REM Upload test screenshot.
Set fso = CreateObject("Scripting.FileSystemObject")
Set folder = fso.GetFolder(screenshotPath)
Set recentFile = Nothing
REM Search for the latest image file in the folder.
For Each file in folder.Files
If UCase(fso.GetExtensionName(file.name)) = "PNG" Then
If (recentFile is Nothing) Then
Set recentFile = file
ElseIf (file.DateLastModified > recentFile.DateLastModified) Then
Set recentFile = file
End If
End If
Next
REM Upload recent image file.
TDHelper.UploadAttachment screenshotPath & "" & recentFile.name, CurrentRun

The loop looks at each file in the folder and compares the Date Last Modified.

The recentFile variable is updated only if the file compared is later.

By Jason Tolotta

Self-proclaimed information technology enthusiast.

Leave a comment

Your email address will not be published. Required fields are marked *

This site uses Akismet to reduce spam. Learn how your comment data is processed.