Windows 2000で NameSpace関数が上手く機能しない件その3

次のようなVBSを実行してみると、 Windows 2000ではエラーになっていました。

Set Shell=CreateObject("Shell.Application")
MsgBox(Shell.NameSpace("C:\Config.Msi\abc\..\"))

Windows 2000で NameSpace関数が上手く機能しない件

vbs


その原因が分かったので、 KDW の shell32 に機能を組み込んでみました。
Windows 2000で NameSpace関数が上手く機能しない件その2

ちなみに、oleaut32から レジストリ経由で shell32 がコールされるので、簡易インストールではだめで、レジストリを変更するか、システムインストールする必要があります。

vbs2

実行成功。

今度は、NameSpace関数で取り出した、値がZIPファイルの場合、ParseName を実行するとサポートしていないといわれる問題にぶつかっています。
vbs4

おすすめ

コメントを残す

メールアドレスが公開されることはありません。 が付いている欄は必須項目です