Скрипт для переименования файлов в подкаталоге Windows

Может кто-нибудь предложить сценарий для переименования группы файлов в подкаталоге Windows с именами файлов с пробелами, подчеркивающими их. Например, если имя файла

abc xyz.pdf

Так должно быть

abc_xyz.pdf
Источник

5 ответов

Решение

Perl: использование File::Find для рекурсивного поиска и обработки файлов.

Обратите внимание, что вы должны быть осторожны с: не переименовывайте DIRECTORIES, которые подчеркивают, таким образом File::Basename,

use File::Find;
use File::Basename;
use File::Spec;
use strict;

find ({ 'wanted' => \&renamefile }, 'X:\my\sub\dir');

sub renamefile {
    my $file = $_;
    return unless (-f $file);   # Don't rename directories!
    my $dirname = dirname($file); # file's directory, so we rename only the file itself.
    my $file_name = basename($file); # File name fore renaming.
    my $new_file_name = $file_name;
    $new_file_name =~ s/ /_/g; # replace all spaces with underscores
    rename($file, File::Spec->catfile($dirname, $new_file_name))
        or die $!; # Error handling - what if we couldn't rename?
}
Источник

Я все еще изучаю Perl, так что попробовал...

opendir (curDir, ".");

@filesWithSpaces = grep(/.*\s.*\..*/, readdir (curDir));

foreach $oneFile (@filesWithSpaces){
  $newName = $oneFile;
  $newName =~ s/\ /_/g;
  print "RENAMING: $oneFile -> $newName \n";
  rename($oneFile, $newName);

}

Отлично смотрится на моих начальных тестах. Это не рекурсивно, хотя.

Источник

Вот скрипт VBSCript. Переименует файлы в папке C:\Test.

   Тусклый fso, f, f1, fc, s
   Set fso = CreateObject("Scripting.FileSystemObject")
   Установите f = fso.GetFolder("C:\Test")
   Установите fc = f.Files
   Для каждого ф1 в фк
      f1.move f1.ParentFolder & "\" & replace(f1.Name, " ", "_")
   следующий
Источник

Следующий пакетный файл не проверен, но должен работать.

@echo off
for %%i in (*) do call :rename "%%~ni"
goto :EOF

:rename
set filename=%1
set newname=%filename: =_%
rename "filename" "newname"
Источник

Вот рабочий VBScript. Однако он не попадает в подкаталоги указанного каталога.

Dim fso
Dim folder
Dim stringToFind
Dim replacement

' Check arguments
If Wscript.Arguments.Count <> 3 Then
    ' Usage
    Wscript.echo "Usage: rename.vbs folder string_to_find replacement"
    WScript.Quit
End If

Set fso = CreateObject("Scripting.FileSystemObject")

Set folder = fso.GetFolder(WScript.Arguments(0))

If Err.Number <> 0 Then
    WScript.Echo "Folder " & WScript.Arguments(0) & " does not exist."
    WScript.Quit
End If

stringToFind = WScript.Arguments(1)
replacement = WScript.Arguments(2)

For Each file in folder.Files
    fso.MoveFile file.ParentFolder & "\" & file.Name, file.ParentFolder & "\" & Replace(file.Name, stringToFind, replacement)
Next

Set folder = Nothing
Set fso = Nothing
Источник
Другие вопросы по тегам