vbscript - フォルダー構造に基づいてサブフォルダーを移動する VB スクリプト

Question

私はVBスクリプトを初めて使用し、フォルダー名の構造に基づいて特定のサブフォルダーを移動するVBスクリプトが必要です（つまり、「test2」から正確な「abc」サブフォルダーを取得し、「test1」に移動する必要があります") とフォルダの正確な構造は次のとおりです。

• E:\test1\42\5423284\4967957\html
• E:\test1\43\5403284\4567051\html
• E:\test1\48\7723589\9977457\html
• E:\test1\47\5428284\2797932\html
• E:\test1\42\5468284\1487651\html

上記では、「html」フォルダーには「abc」サブフォルダーが含まれていません

「abc」サブフォルダーの下にある「html」フォルダーの上に移動したい

• E:\test2\42\5423284\4967957\html\abc
• E:\test2\43\5403284\4567051\html\abc
• E:\test2\48\7723589\9977457\html\abc
• E:\test2\47\5428284\2797932\html\abc
• E:\test2\42\5468284\1487651\html\abc

どんな体でもこれを助けることができますか

前もって感謝します

Answer 1

「フォルダーの削除」の質問に対するこの回答に基づいて:

次のようなメソッドを提供するだけです：

  Public Function processFolder(oFolder)
    WScript.Echo "looking at", oFolder.Path
    processFolder = True
    If "abc" = oFolder.Name Then
       WScript.Echo "will move", oFolder.Path
       WScript.Echo "       to", Replace(oFolder.Path, "\df\", "\mf\")
       oFolder.Move Replace(oFolder.Path, "\df\", "\mf\")
       processFolder = False
    End If
  End Function