結論から言うと、4行で取得できます 拡張子:txtvbswsfjsphpjavahtmlutf8sjis Set Shell = Wscript.CreateObject( "Shell.Application" ) Set objFolder = Shell.NameSpace( &H25 ) Set objFolderItem = objFolder.Self Wscript.Echo objFolderItem.Path なんだ、簡単じゃないか・・・と思いますが、ここだけ見ているからであって、 Shell オブジェクトの説明は、日本人にとって嫌がらせとしか思えないところにあります。 NameSpace Method ※ 引数の詳細はさらに ここ スクリプトは、エンドユーザでも使えるのがいいんだから、 一般にも解りやすくなってて欲しいものですが、殆どムリ。 これに始まった事では無いですが、Microsoft の節操の無い変化は、 日本の事情とは全く合致していません。( なんか日本は強制落ちこぼれ ) 負けるか。 という気持ちにしょっちょうなります。
Set Shell = Wscript.CreateObject( "Shell.Application" ) Set objFolder = Shell.NameSpace( &H25 ) Set objFolderItem = objFolder.Self Wscript.Echo objFolderItem.Path