リネームツールをまたーり語るスレ 003

リネームツールをまた ..

■コピペモード
□スレを通常表示
□オプションモード
□このｽﾚｯﾄﾞのURL
■項目テキスト

5:名無しさん＠お腹いっぱい。
 05/08/12 13:17:04 CYAxM25E0
 
DnD用汎用スクリプト(別途関数部必須) 
 
Const FolderRename = 0 '1:フォルダをリネーム  2:フォルダ内のファイルをリネーム  その他:フォルダは無視 
Dim FSO, regEx, arg, oItm, oFolder, oFile 
 
Set arg = Wscript.Arguments 
If arg.Count > 0 Then 
    Set FSO = CreateObject("Scripting.FileSystemObject") 
    Set regEx = New RegExp 
    For Each oItm In arg 
        If FSO.FileExists(oItm) Then 
            Call FileRename(oItm) 
        ElseIf FSO.FolderExists(oItm) Then 
            Select Case FolderRename 
                Case 1 
                    Set oFolder = FSO.GetFolder(oItm) 
                    oFolder.Name = AddNum(oFolder.Name) 
                Case 2 
                    For Each oFile In  FSO.GetFolder(oItm).Files 
                        Call FileRename(oFile.Path) 
                    Next 
            End Select 
        End If 
    Next 
    Set FSO = Nothing 
End If 
Wscript.Quit 
 
Sub FileRename(sPath) 
    FSO.GetFile(sPath).Name = AddNum(FSO.GetBaseName(sPath)) & "." & FSO.GetExtensionName(sPath) 
End Sub

次ページ