パス名を使用してファイルの名前を変更するVBSスクリプト

Question

私はVBSスクリプティングには新しく、以前はExcel VBAでいくつかのことをやっていました。今私は、ファイルのパス名（それぞれ4文字に切り捨てられた）と単一のファイルの名前を変更するスクリプトを持っている）以下を参照してください。私の目的に合うように少し修正したスクリプトです。しかし、私はファイル名の変更プロセスを自動化し、単一のファイルに対してsciptが動作するのと同じ方法で、フォルダとそのサブフォルダ内のすべてのファイルの名前を変更したいと思います。誰でもこの質問で私を助けることができますか？

Set Shell = WScript.CreateObject("WScript.Shell") 
Set Parameter = WScript.Arguments 
For i = 0 To Parameter.Count - 1 
    Set fso = CreateObject("Scripting.FileSystemObject") 
    findFolder = fso.GetParentFolderName(Parameter(i)) 
    PathName = fso.GetAbsolutePathName(Parameter(i)) 
    FileExt = fso.GetExtensionName(Parameter(i)) 
    Search = ":" 
    findFolder2= Right(PathName, Len(PathName) - InStrRev(PathName, Search)) 
    arr = Split(findFolder2, "\") 
    For j=0 To UBound(arr)-1 
    arr(j) = ucase(Left(arr(j), 4)) 
    Next 
    joined = Join(arr, "%") 
    prefix = right(joined, len(joined)-1)  
    fso.MoveFile Parameter(i), findFolder + "\" + prefix 
next 

私はいくつかの有用なアイデアを得ることができると願っています。

ハービー

Answer 1

ツリーをウォークするには、レベルごとに自分自身を呼び出す関数が必要です。

On Error Resume Next 
Set fso = CreateObject("Scripting.FileSystemObject") 
Dirname = InputBox("Enter Dir name") 
ProcessFolder DirName 

Sub ProcessFolder(FolderPath) 
    On Error Resume Next 
    Set fldr = fso.GetFolder(FolderPath) 

    Set Fls = fldr.files 
    For Each thing in Fls 
     msgbox Thing.Name & " " & Thing.DateLastModified 
    Next 

    Set fldrs = fldr.subfolders 
    For Each thing in fldrs 
     ProcessFolder thing.path 
    Next 

End Sub 

他のファイルの実行方法に関するヘルプ

Set Shell = WScript.CreateObject("WScript.Shell") 
shell.Run(strCommand, [intWindowStyle], [bWaitOnReturn]) 

だから、ループの外、

Set Shell = WScript.CreateObject("WScript.Shell") 

、ループ内

shell.Run("wscript Yourscript.vbs thing.name, 1, True) 

またVBSヘルプファイルは、最近、MSのWebサイトで降ろされました。それはhttps://1drv.ms/f/s!AvqkaKIXzvDieQFjUcKneSZhDjwで私のskydriveで利用可能ですそれはscript56.chmと呼ばれています。