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

質問

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

回答No.7

Prome_Lin

私の力不足で申し訳ないのですが、一応の結果は出ました。

最大の問題は、親フォルダをドラッグ＆ドロップしたときのプログラムは、

For Each f In gf.SubFolders

というように、ドラッグ＆ドロップしたフォルダ直下のサブフォルダを調べます。

このやり方でしたら、Unicode文字に対処できたのですが、直接、名前を変更したいフォルダをドラッグ＆ドロップするプログラムでは、どうしても、「so.GetFolder()」で、フォルダの取得が出来ないのです。

「For Each f ～」の「f」も「Set f = so.GetFolder()」の「f」も同じ「オブジェクト」なのに・・・

そこでやむを得ず、以下のようにしました。

ドラッグ＆ドロップされたすべてのフォルダの親フォルダから、その親フォルダ直下のすべてのサブフォルダの「–」を、半角の「-」に置換してしまってから、もう一度、ドラッグ＆ドロップされたフォルダのフォルダ名の変更処理を行っています。

★★★
このプログラムの最大の問題は、ドラッグ＆ドロップしていないフォルダの「–」まで「-」に置換してしまうことです。

しかし、上述のとおり「so.GetFolder()」が使えないため、ドラッグ＆ドロップされたフォルダかどうか、特定できないのです。

もし、それでも問題がなければ、お使いください。

Option Explicit
Dim c, f, gf, i, n(), p, p1, p2, so, wa, x
Set so = CreateObject("Scripting.FileSystemObject")
Set wa = WScript.Arguments
c = wa.Count - 1
ReDim n(c)
For i = 0 to c
n(i) = wa(i)
n(i) = Replace(n(i), "?", "-")
Set gf = so.GetFolder(so.GetParentFolderName(wa(i)))
For Each f In gf.SubFolders
If InStr(f.Name, "–") > 0 Then
f.Name = Replace(f.Name, "–", "-")
End If
Next
Next
For i = 0 to c
Set f = so.GetFolder(n(i))
p1 = InStr(f.Name, "(")
p2 = InStr(f.Name, ")")
If p1 > 0 and p2 > 0 and p1 < p2 Then
p = Mid(f.Name, p1 + 1, p2 - p1 - 1) & " " & f.Name
f.Name = p
Set f = Nothing
End If
Next
Set wa = Nothing
Set so = Nothing
MsgBox("Finished!")

最初に、

For i = 0 to c
n(i) = wa(i)
n(i) = Replace(n(i), "?", "-")
Set gf = so.GetFolder(so.GetParentFolderName(wa(i)))
For Each f In gf.SubFolders
If InStr(f.Name, "–") > 0 Then
f.Name = Replace(f.Name, "–", "-")
End If
Next
Next

ドラッグ＆ドロップされたフォルダの親フォルダの中のサブフォルダのフォルダ名に含まれる「–」を「-」に置換して、フォルダ名を変更しています。

ここで分かるように、本来は「n(i) = Replace(n(i), "–", "-")」のはずなのに「–」が、「?」となっています。

これが、すべての原因なのですが、私では、どうすることも出来ませんでした。

For i = 0 to c
Set f = so.GetFolder(n(i))
p1 = InStr(f.Name, "(")
p2 = InStr(f.Name, ")")
If p1 > 0 and p2 > 0 and p1 < p2 Then
p = Mid(f.Name, p1 + 1, p2 - p1 - 1) & " " & f.Name
f.Name = p
Set f = Nothing
End If
Next

もう一度、最初から、フォルダ名の変更を行っています。

お礼

Prome_Linさん、何度も修正のスクリプトありがとうございます。

Unicode文字に対処するには、VBSの仕様で親フォルダーから参照するのが解決の早道なのを理解しました。

今回提供されたコードでサンプルフォルダーでテストしてみました。

　　Unicode文字が含まれないフォルダーはうまく処理できましたが
　　Unicode文字を含んだフォルダーは、エラーがでます。
　　　　　コードが見やすいようにコメントアウトした行を挿入したため、
　　　　　　エラー行24は,問題に挙げられていた
　　　　　　 　Set f = so.GetFolder(n(i))
　　　　　　になります。
　　又、
　　Unicode文字の「–」を半角に変更されるはずなのに変更されていません。

　　エラーがでるため、それ以降にフォルダーがあっても処理自体がSTOPしてしまいます。
　　　　（この結果は、当然なのは十分理解しています。）

心苦しいのですが、どうも意図した処理が上手く行っていないように感じます。