フォルダ作成 - X-Finderスクリプト 2011-02-04 (Fri) 14:19

フォルダを作成する X-Finder用スクリプト

ファイル作成を少し変えただけだけど一応掲載。

実行すると

NewFolder
を作成し、フォルダ名編集状態にする。既に存在する場合は、

NewFolder (2)
NewFolder (3)


のようになる。
ファイル作成と同じくなぜかエクスプローラ互換では動きません。なんでだろ?

var shell = new ActiveXObject("WScript.Shell");
var fs1 = new ActiveXObject("Scripting.FileSystemObject");
var sBnam = 'NewFolder';
var sName = sBnam;
var i = 1;
var sCurrent = WScript.Env('Current');

if(sCurrent.substring(sCurrent.length-1,sCurrent.length) == ':'){
    WScript.Exec('NewFolder:');
    WScript.Quit();
}
shell.CurrentDirectory = sCurrent;
while(true){
    if(fs1.FolderExists(sName)){
        sName = sBnam + ' (' + (++i).toString(10) + ')';
        continue;
    }
    else
        break;
}
WScript.Exec('NewFolder:' + sName + '/');
WScript.Exec('Refresh:2');
WScript.Exec('Select:Clear');
WScript.Exec('Focus:End');
WScript.Exec('Rename:');

関連記事

コメントの投稿

管理者にだけ表示を許可する

注意事項
基本的にこのブログはブログ主の備忘録です。

ブログの内容にはブログ主の主観や時には正確でない情報が含まれていることもあります。書いてある内容がすべての環境にあてはまることを保証するものでもありません。
また過去の記事の情報はそれが参照された時点では既に陳腐化していることもあります。

その辺をご理解の上で当ブログ内に書いてあることを試す場合は自己責任でお願いします。

万一何らかの損害が生じても責任は持てませんのであしからず!

記事内容の誤りの指摘、疑問点の回答などコメント頂けると助かります。
カレンダー
04 | 2017/05 | 06
- 1 2 3 4 5 6
7 8 9 10 11 12 13
14 15 16 17 18 19 20
21 22 23 24 25 26 27
28 29 30 31 - - -
ブログ内検索
カラーコードチェッカ
カラーコードの確認
入力例) #ffffff | blue
カテゴリ
最新記事
最新コメント
最新トラックバック
リンク
ブロとも申請フォーム

この人とブロともになる

メールフォーム

名前:
メール:
件名:
本文: