| bombording |
24-03-2014 12:04 2327851 |
Переименование файла по условиям
Добрый день.
Задача:
Необходимо просканировать файлы в директории и в случае если:
- имя файла имеет расширение .xls
И
- имя файла содержит более 22 символов
выполнить следующее:
- скопировать этот файл но уже с новым именем которое соответсвует 21 последних символов в имени файла. Грубо говоря отрезать часть имени файла.
Помогите пожалуйста реализовать данный функционал.
Спасибо!
|
читать дальше »
Код:
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
|
Время: 02:31.
© OSzone.net 2001-
