フォルダー名の複雑な変更についての質問

質問

• フォルダー名を変更する際にエラーが発生する場合、修正方法を教えてください。
• 以下のフォルダー名でエラーが出ます: - The Blues Band – The Rooster Crowed(2018) - Sisare – Leaving The Land (2018)
• watabe007さんから頂いたスクリプトを利用してフォルダー名を変更していますが、一部でエラーが発生しています。修正方法を教えてください。

回答No.6

Prome_Lin

失礼しました。

「Sisare – Leaving The Land (2018)」などのフォルダ群が存在する直上のフォルダをドラッグ＆ドロップする形式に変更しました。

また、「Sisare – Leaving The Land (2018)」の「–」についてだけですが、「-」に置換してからファイル名を変更していますので、Unicode文字「–」だけには対応しました。

Option Explicit
Dim f, gf, m, n, p, p1, p2, so, wa
Set so = CreateObject("Scripting.FileSystemObject")
Set wa = WScript.Arguments
If wa.Count <> 1 or so.FolderExists(wa(0)) = False Then
MsgBox("ドラッグ＆ドロップできるのは、フォルダ１つだけです")
WScript.Quit
End If
Set gf = so.GetFolder(wa(0))
For Each f In gf.SubFolders
If InStr(f.Name, "–") > 0 Then
Set m = so.GetFolder(gf & "\" & f.Name)
m.Name = Replace(f.Name, "–", "-")
n = m.Name
Set m = Nothing
Else
n = f.Name
End If
p1 = InStr(n, "(")
p2 = InStr(n, ")")
If p1 > 0 and p2 > 0 and p1 < p2 Then
p = Mid(n, p1 + 1, p2 - p1 - 1) & " " & n
Set m = so.GetFolder(gf & "\" & n)
m.Name = p
Set m = Nothing
End If
Next
Set gf = Nothing
Set wa = Nothing
Set so = Nothing
MsgBox("Finished!")

簡単な説明です。

If wa.Count <> 1 or so.FolderExists(wa(0)) = False Then

ドラッグ＆ドロップした「もの」が１つだけか、また、それが「フォルダ」か判定しています。

したがって、ファイルをドラッグ＆ドロップした場合には、プログラムは、メッセージを表示して、プログラムそのものを終了してしまいます。

Set gf = so.GetFolder(wa(0))

ドラッグ＆ドロップしたフォルダを取得しています。

For Each f In gf.SubFolders

ドラッグ＆ドロップされたフォルダ直下のサブフォルダをすべて調べます。

If InStr(f.Name, "–") > 0 Then

問題の「–」が含まれていた場合、

Set m = so.GetFolder(gf & "\" & f.Name)
m.Name = Replace(f.Name, "–", "-")
n = m.Name
Set m = Nothing

半角の「-」に置換して、フォルダ名を変更しています。

p1 = InStr(n, "(")
p2 = InStr(n, ")")
If p1 > 0 and p2 > 0 and p1 < p2 Then
p = Mid(n, p1 + 1, p2 - p1 - 1) & " " & n
Set m = so.GetFolder(gf & "\" & n)
m.Name = p
Set m = Nothing

ここは、前回と同じですので、説明を省略します。

End If
Next

を、すべてのサブフォルダで繰り返しています。

Set gf = Nothing
Set wa = Nothing
Set so = Nothing
MsgBox("Finished!")

あとは、終了処理で、最後に「Finished!」と表示しています。

お礼

Prome_Linさん、
　　こちらこそ早合点で見当外れなクレームを付ける事になり申し訳ありません。

改編いただいたスクリプトをテストすると
　　フォルダーの先頭に西暦が付加される形式で処理されました。

この時点で「–」が「Unicode文字」のフォルダーをテストの為サンプルに加えていたのですが
「–」（Unicode文字）は、半角の「-」に変換されるはずなのに変換されず元のUnicode文字ままで
処理されています。
（つまり、オリジナルフォルダーの先頭に西暦が付加された形式で変名されました。）

------------------------------
スレッドの流れとしては、
　　Unicode文字を処理する場合、親フォルダーを利用する処理方法が出まして
　　そちらの方向で話が進んでいましたが、

私としては、出来れば
　　変名すべきフォルダーを処理用の親フォルダーに集めずに
　　改名すべきフォルダーそれぞれをファイラ（ファイルマネージャー）から選択して
　　デスクトップにある処理用のVBSスクリプト等にドラッグ＆ドロップして処理したいのです。

　　処理時に問題の「–」（Unicode文字）は、半角の「-」に変換されて処理後のフォルダー名にも
　　反映されれば嬉しいのですが？

　　これは、VBScriptの仕様のため、無理な相談なのでしょうか？

　　VBScriptには、こだわらないので他の言語？で処理できれば問題はありません。

---------------------------------