Vbscript FSO как сохранить файл с полным именем > 255 символов

Формулировка задачи:

' кусок из кода
    set FSO = CreateObject("Scripting.FileSystemObject") 'Подключаем FileSystemObject
'..........................................
inFolder = "C:\1\отсюдакопируем"
moveFolder = "C:\1\сюдакопируем"
set iFolder = FSO.GetFolder(inFolder)
'..................................
    For Each iFile in iFolder.files
               FSO.CopyFile iFile, moveFolder & "\" & RenamedFile(iFile.Name, moveFolder) '  копируем в C:\1\сюдакопируем
    next
'...............................................................

'-------такую функцию добавил...
function RenamedFile(xFile,xFolder)
  set FSO = CreateObject("Scripting.FileSystemObject") 'Подключаем FileSystemObject
  RenamedFile = xFolder & "\" & xFile.shortName
  i = 1
 'проверяем есть ли уже такой файл в папке C:\1\сюдакопируем
 'если существует добавляем индекс _1, _2...
    do while (FSO.FileExists(RenamedFile))         
              RenamedFile = xFolder & "\" & MID(xFile.shortName, 1, len(xFile.shortName)-Mid(xFile.Ext)-1) & "_" & i & "." & xFile.Ext
              i=i+1
    loop
end function

Однако у меня есть большие сомнения по поводу корректности обращения к xFile в функции RenamedFile(xFile,xFolder)
да и плюс ко всему ограничения на длинну строки(
В общем, понимаю, что без ликбеза никак.
Все откликнувшимся, заранее спасибо!

Решение задачи: «Vbscript FSO как сохранить файл с полным именем > 255 символов»

textual
                            Листинг программы 
                        

                            function RenamedFile(xFile,xFolder)

  set FSO = CreateObject("Scripting.FileSystemObject") 'Подключаем FileSystemObject
  RenamedFile = xFolder & "\" & xFile.shortName
msgbox(renamedFile)

  i = 1
 'проверяем есть ли уже такой файл в папке C:\1\сюдакопируем
 'если существует добавляем индекс _1, _2...
    do while (FSO.FileExists(RenamedFile))
          
              RenamedFile = xFolder & "\" & MID(xFile.shortName, 1, len(xFile.shortName)-len(fso.GetExtensionName(xfile.Name))-1) & _ 
                            "_" & i & "." & fso.GetExtensionName(xfile.Name)

              msgbox(RenamedFile)
               i=i+1
    loop
end function

                        