お世話になっております。

フォルダ移動についてご質問させていただきます。

【要望】

フォルダ移動のノードでエラーを発生させたい

キャプチャ①

【困っていること】

フォルダを別のところに移動したいのですが、

フォルダ内にあるファイルが開かれており、永久にフォルダ移動が実行中でフリーズしております。

（キャプチャ①をご参照ください）

キャプチャ①の例外処理の異常系にいってほしいのですが

スクリプトをどのようにいじればエラーがでるかご教示いただけますでしょうか。

WScript.Timeout = 10

をスクリプトの前方に記入して実行しましたが10秒たってもタイムアウトされず行き詰っております。

下記はスクリプトの一部分です（おそらくobjFolder.MoveHereで止まっているような気がしております）

before = !移動元フォルダ!
after = !移動先フォルダ!

〜

Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.NameSpace(after)

objFolder.MoveHere before

〜

恐れ入りますがよろしくお願い致します。