VBSでのフォルダ名一括変更処理

Question

特定のフォルダ以下全てのフォルダについて、全角の（）を半角に置換するコードを書き、希望通りの動きが出来たのですが、何故うまくいっているのか分からない部分があり質問を投稿しました。

Option Explicit
Dim FSO,fs,fn, f,foldername,subfolder
Set FSO = CreateObject("Scripting.FileSystemObject")
'カレントディレクトリを引数として関数呼び出し
RenameFolder FSO.GetFolder(FSO.GetParentFolderName(WScript.ScriptFullName))

sub RenameFolder(Folder)
	For Each f In Folder.subfolders
		'再帰用にサブフォルダのオブジェクト作成
		Set fs = WScript.CreateObject("Scripting.FileSystemObject")
        Set fn = fs.GetFolder(f)
		foldername = f.Name
		Dim rename
		rename = foldername
		rename = Replace(rename,"（","(")
		rename = Replace(rename,"）",")")
		'renameに変更が加えられた時
		if foldername <> rename then 
			f.Name = rename
		End if
		'下層フォルダを再帰呼び出し
		RenameFolder fn
	Next
	set fs = Nothing
	set fn = Nothing
	Set FSO = Nothing
end sub

---

ファイル階層
├─test
│ ├─2011114（a）
│ ├─20115
│ └─済2xxxx1116(a)
│ └─10223402（）
└─test2
├─2011203423（a）
└─済201111116(a)

「'下層フォルダを再帰呼び出し」の部分で、fnを引数として再帰的に「RenameFolder」を呼び出し、下位ディレクトリのサブフォルダを調べようとしたのですが、これだとサブフォルダが無いフォルダ（例えば2011114（a））がfnに格納されたとき、

For Each f In Folder.subfolders

のFolder.subfolders部分がnullになりエラーが出るかと思っていたのですが、エラーが出ずに処理が続きました。
また、そもそもフォルダがないフォルダでこのコードを実行したのですが、特にエラーは出ませんでした。

これはVBSの仕様なのでしょうか？それとも、別の行でエラーを回避しているのでしょうか。
コードは出来ましたが、すっきりしないのでどなたかご回答いただけますと幸いです。よろしくお願いします。

Answer 1

VBSの仕様という理解でいいと思います。
サブフォルダがないときは、Folder.subfolders は要素がゼロ個のコレクションとなり、
その場合 Forループは一度も回らずに素通りします。

Comments

[myy388]

回答ありがとうございます。スッキリしました。