Переименование файла по условиям

[bombording]

Добрый день.

Задача:
Необходимо просканировать файлы в директории и в случае если:
- имя файла имеет расширение .xls
И
- имя файла содержит более 22 символов

выполнить следующее:
- скопировать этот файл но уже с новым именем которое соответсвует 21 последних символов в имени файла. Грубо говоря отрезать часть имени файла.

Помогите пожалуйста реализовать данный функционал.
Спасибо!

[Iska]

Option Explicit

Dim strSourceFolder

Dim objFSO
Dim objFile


strSourceFolder = "E:\Песочница\0368"

With WScript.CreateObject("Scripting.FileSystemObject")
If .FolderExists(strSourceFolder) Then
For Each objFile In .GetFolder(strSourceFolder).Files
If LCase(.GetExtensionName(objFile.Name)) = "xls" Then
If Len(.GetBaseName(objFile.Name)) > 22 Then
objFile.Copy .BuildPath(objFile.ParentFolder, Right(.GetBaseName(objFile.Name), 21) & "." & .GetExtensionName(objFile.Name))
End If
End If
Next
Else
WScript.Echo "Source folder [" & strSourceFolder & "] not found."
WScript.Quit 1
End If
End With

WScript.Quit 0