Для этого вам нужны два небольших метода. Во-первых, добавление строки:
Function PadLeft(str, padChar, desiredLength)
Dim result
result = CStr(str)
Do Until Len(result)>=desiredLength
result = padChar & result
Loop
PadLeft = result
End Function
И метод для поиска имени папки:
Function ExtractFolderName(imageFileName)
Dim numericValue, rangeStart, rangeEnd
numericValue = CInt(imageFileName)
rangeStart = (Fix((numericValue / 1000)) * 1000) + 1
rangeEnd = (Fix((numericValue / 1000)) + 1) * 1000
ExtractFolderName = PadLeft(rangeStart, "0", 5) & "-" & PadLeft(rangeEnd, "0", 5)
End Function
Чтобы использовать его:
folderName = ExtractFolderName(rs("imageid"))
В принципе, метод выполняет некоторую математику по названию, чтобы найти желаемый диапазон. Обратите внимание, что это приведет к ошибке в случае не числового значения в базе данных.