Sub BRScriptMain() 'The startup sub. 'Use Number to insert the current file number. (example: strFilename = strFilename & " " & Number) strFilename = GetDateFromFilename(strFilename) & "-" & GetTimeFromFilename(strFilename) strExtension = strExtension strPath = strPath End Sub 'END BRScriptMain Function MyFunction() MyFunction = "Hello World" End Function Function GetDateFromFilename(FileName) FilenameArr = split(FileName, "_") FilenameYear = Mid(FilenameArr(1), 5, 2) FilenameMonth = Mid(FilenameArr(1), 1, 2) FilenameDay = Mid(FilenameArr(1), 3, 2) GetDateFromFilename = FilenameYear & FilenameMonth & FilenameDay End Function Function GetTimeFromFilename(FileName) FilenameArr = split(FileName, "_") FilenameHour = Mid(FilenameArr(1), 5, 2) FilenameMinute = Mid(FilenameArr(1), 1, 2) FilenameSecond = Mid(FilenameArr(1), 3, 2) GetTimeFromFilename= FilenameHour & FilenameMinute & FilenameSecond End Function