Автоматический поиск файла по маске и изменение его расширения

@TorvaldGot · Регистрация: 25.09.2015

Author24 — интернет-сервис помощи студентам

Добрый день уважаемые форумчане! Не откажите в помощи, по такому вопросу: необходим скрипт для поиска в заданном каталоге файлов, например, "C:\Downloads", по маске, например, ЛУ339000002, с целью дальнейшего изменения его формата на .doc. Спасибо большое заранее всем откликнувшимся.

@tisha_ · 07.06.2016, 13:15

Visual Basic

Set FSO=CreateObject("Scripting.FileSystemObject")
Set objRegExp = CreateObject("VBScript.RegExp")
objRegExp.Pattern = "(^[А-Я]{2}\d{9})"
Set path = fso.GetFolder("C:\123")
For Each file In path.Files
    If objRegExp.Test(file.Name) Then
    file.Name = file.Name & ".doc"
    'MsgBox(file.Name)
    End If
Next

@TorvaldGot · 07.06.2016, 13:55 **[ТС]**

Спасибо большое то что нужно!

@TorvaldGot 0 / 0 / 0 Регистрация: 25.09.2015 Сообщений: 51
		1
	Автоматический поиск файла по маске и изменение его расширения 07.06.2016, 11:08. Показов 1646. Ответов 2 Метки нет (Все метки) Добрый день уважаемые форумчане! Не откажите в помощи, по такому вопросу: необходим скрипт для поиска в заданном каталоге файлов, например, "C:\Downloads", по маске, например, ЛУ339000002, с целью дальнейшего изменения его формата на .doc. Спасибо большое заранее всем откликнувшимся. 0

@TorvaldGot 0 / 0 / 0 Регистрация: 25.09.2015 Сообщений: 51
	07.06.2016, 13:55 [ТС]	3
	Спасибо большое то что нужно! 0

Автоматический поиск файла по маске и изменение его расширения

Решение