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