RSFU(仮) その1

ROSEのSSファイル用スクリプト「RSFU(仮)」の製作に着手しました。名前は略称シリーズ(何　ROSE online Screenshot File Utilityというなんの捻りもない感じですｃ⌒っ.д.)っ

まずは習作その1。

var obj_shellapp;//Shell.Applicationオブジェクト
var obj_folder;//Folderオブジェクト。FileSystemObjectのFolderとは別
var colle_folderitems;//FolderItemsコレクション
var obj_folderitem;//FolderItemオブジェクト
var folderpath;//選択されたフォルダのパス名

obj_shellapp=WScript.CreateObject("Shell.Application");
//Shell.Applicationオブジェクトのインスタンスを作成
obj_folder=obj_shellapp.BrowseForFolder(0,"ROSE Onlineのインストールされているフォルダを以下略",1,0);
//フォルダ選択ダイアログを出し、選択されたフォルダのFolderオブジェクトを返す
colle_folderitems=obj_folder.Items();
//↑のフォルダのFolderItemsコレクションを取得
obj_folderitem=colle_folderitems.Item()
//このフォルダ自体のFolderItemオブジェクトを取得

folderpath=obj_folderitem.Path;

WScript.Echo(folderpath);

このスクリプトはフォルダ選択用のダイアログを出し、それで選択されたフォルダのパス名を表示する、というものです。とこれだけ書くとなんだそれだけかよと思われるかもしれませんが、とりあえず第1段階なので、まぁご勘弁を。