(VBA) Массовое переименование файлов

Есть несколько способов массового переименования файлов и один из них — через VBA. В заметке — представлен код

[code language="vb"]

Sub example_rename_files()

  rename_files "D:\Видео\", "*", ".mpeg", ".mp4"

End Sub

Sub rename_files( _
                  ByVal path As String _
                , ByVal mask As String _
                , ByVal old_text As String _
                , ByVal new_text As String _
                )

Dim old_FName As String

If Right(path, 1) <> "\" Then path = path & "\"
old_FName = Dir(path & mask)

Do

  new_FName = Replace(old_FName, old_text, new_text)
  Debug.Print "rename", old_FName, "to", new_FName
  Name path & old_FName As path & new_FName
  old_FName = Dir

Loop While old_FName <> ""

End Sub

[/code]

Оставьте комментарий

Этот сайт использует Akismet для борьбы со спамом. Узнайте, как обрабатываются ваши данные комментариев.