Windows 서브 디렉토리의 파일 이름을 바꾸는 스크립트

Question

밑줄이있는 파일 이름에 공백이있는 Windows 서브 디렉토리의 파일 이름을 바꾸는 스크립트를 제안 할 수 있습니까? 예를 들어 파일 이름이

abc xyz.pdf 

그것은

abc_xyz.pdf 

Answer 1

펄 : 재귀 찾기 및 파일에 actioning에 대한 사용 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? 
} 

Answer 2

다음 배치 파일을 테스트되지해야하지만, 작업을해야하는 경우.

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

:rename 
set filename=%1 
set newname=%filename: =_% 
rename "filename" "newname" 

Answer 3

다음은 VBScript 스크립트입니다. 이 폴더 C에있는 파일의 이름을 변경합니다 : 여전히 PERL 그래서이의 자상했다 학습 테스트

 
    Dim fso, f, f1, fc, s 
    Set fso = CreateObject("Scripting.FileSystemObject") 
    Set f = fso.GetFolder("C:\Test") 
    Set fc = f.Files 
    For Each f1 in fc 
     f1.move f1.ParentFolder & "\" & replace(f1.Name, " ", "_") 
    Next 

Answer 4

임 \ ...

opendir (curDir, "."); 

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

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

}

내 초기 테스트에 잘 보인다. 그 재귀 아니지만.

Answer 5

다음은 작동하는 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