' 重複ディレクトリ名を一覧表示するVBScript ' ' 2つのディレクトリパスを渡して、 ' サブディレクトリ名を取得後に比較して重複を探す。 ' 同じディレクトリ名が存在したらリストアップする。 ' ' usage : wscript $0 DIR1 DIR2 ' ' 2016/09/27 ver. 0.0.1 記述 Option Explicit ' 引数を取得 Dim argv Set argv = WScript.Arguments If argv.Count <> 2 Then MsgBox "引数の数が違います。" & vbCrLf & vbCrLf & _ "usage: wscript " & WScript.ScriptName & " DIR1 DIR2", _ vbOKOnly + vbCritical, "Error" WScript.Quit End If Dim fso, f1, f2, d1, d2, c Dim s ' サブフォルダ一覧を取得 set fso = createObject("Scripting.FileSystemObject") set f1 = fso.getFolder(argv(0)) set f2 = fso.getFolder(argv(1)) ' フォルダ名を比較して同名が見つかったら文字列変数に記録 s = "" c = 0 For Each d1 in f1.subfolders For Each d2 in f2.subfolders If StrComp(d1.Name, d2.Name, 1) = 0 Then s = s & d2.Name & vbCrLf c = c + 1 End If Next Next ' 結果表示 If c = 0 Then s = "重複ディレクトリ名はありません。" End If MsgBox s, vbOKOnly, "比較結果"