Переименование файлов - VB
Формулировка задачи:
Добрый день.
Подскажите, как переименовать файл указывая только часть имени исходного файла.
Спасибо!
Подскажите, как переименовать файл указывая только часть имени исходного файла.
Спасибо!
Решение задачи: «Переименование файлов»
textual
Листинг программы
Set fso = CreateObject("Scripting.FileSystemObject")
FOLD = "Путь к папке"
For Each f in FOLD
if Left(f.Name,1) = "начало" and Right(f.Name,4) = "расш." Then
FSO.CopyFile f, FOLD & "\Новое название."
End if
Next
End Sub