Переименование файлов - 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

                        

Оцени полезность:

8 голосов , оценка 3.75 из 5

Похожие ответы