VBS/WSH/JS - Переименование файла по условиям

[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