VBScriptでWindows以下のフォルダを移動したいのですがエラ

質問

VBScriptでWindows以下のフォルダを移動したいのですがエラーになります
VBScriptでC:\Windowsフォルダ以下のフォルダを別の場所に移動したいのですが、以下のような実行時エラーが出ます。

Microsoft VBScript 実行時エラー: 書き込みできません。

移動したいフォルダはWindowsフォルダ以下の$NtUninstall～で始まるフォルダで、プロパティを見た所隠しフォルダ属性になっています。
移動はファイルシステム関連オブジェクトのMoveFolderメソッドを使用しています。
試しにコマンドプロンプトからmoveコマンドで同様のことをした場合、「アクセスが拒否されました」とメッセージが出ます。
VBScriptでWindows以下のフォルダを移動したいのですが方法を教えて頂けますでしょうか。

回答No.2

localica · ベストアンサー

ファイルシステムオブジェクトのAttributesプロパティで変更可能です。

ただ、$NtUninstallを移動させるのはどうかと思いますが。

参考URL：

http://msdn.microsoft.com/ja-jp/library/cc428087.aspx

お礼

原因が分かりました。今回フォルダを別ドライブに移動させようとしたのですが、MoveFolderメソッドではそれができないことが分かりました(既知の内容でしたら申し訳ありません)。

代替方法は見つからないのですが、一旦この質問をクローズ致します。

回答いただき有難うございました。

補足

回答頂き有難うございました。
ご紹介頂いたURLを参照してAttributeを設定してみたのですが結果は変わりませんでした。
また、GUI上で当該フォルダのプロパティを見ると隠しフォルダにチェックが入っているのですが、Attributeの値は隠しフォルダのビットがオフになっていました。

ちなみに$NtUninstallは30日以上経過した場合削除しても構わないとあるサイトに載っておりました。プログラム上は問題があった場合に復帰できるよう、テープに退避する形にしております。

回答No.1

LOHA

OSはVistaでしょうか？

もしそうなら、システム的に重要なフォルダではUACで制限がかかっているので、ファイルの移動などの際に管理者権限が必要だと思われます。

右クリックで「管理者として実行」みたいなので実行してみるとどうでしょうか？

ちなみに、VisualStoreという機能もあり、たとえば（管理者権限なしで）Windowsフォルダに何かファイルを移動したとすると（エクスプローラーだと管理者権限を取得するかどうかのメッセージが出ますが）、「C:\Users\[ユーザー名]\AppData\Local\VirtualStore\」のWindowsフォルダに入ったりします。

以上参考までに。

補足

回答頂きありがとうございました。OSはXPです。
管理者権限で実行しています。GUIでは問題なくドラッグして実行できます。
上記フォルダを探してみましたが、当該フォルダは見当たりませんでした。