「スクリプト」の編集履歴（バックアップ）一覧に戻る

スクリプト - (2010/03/01 (月) 22:46:31) のソース

*タブファイラー・X-Finder [ x ] Part17 / 965
965 名前：&color(#006600){&bold()名無しさん＠お腹いっぱい。}}[sage] 投稿日：2010/02/17(水) 22:03:50 ID:cGpyB8d/0
流れと関係ないけど、USB的な意味で環境変数展開しないで Set: するコマンドが欲しい
前によく見たタブリネーム小ネタ

 // 一つ上のフォルダも表示
 Script:JScript
 var dirs = WScript.Env('Current').split('\\');
 WScript.Exec('Set: TabName=' + dirs[dirs.length-2] + '/' +dirs[dirs.length-1]);

 // ドライブ名も表示
 Script:JScript
 var fs = CreateObject("Scripting.FileSystemObject");
 var path = WScript.Env('Current');
 WScript.Exec('Set: TabName=' + fs.GetDriveName(path) + '//' + fs.GetFileName(path));

*タブファイラー・X-Finder [ x ] Part17 / 943
943 名前：&color(#006600){&bold(){名無しさん＠お腹いっぱい。}}[sage] 投稿日：2010/02/17(水) 06:45:56 ID:Iuz/Uf6U0
ちょっとやってみた
ttp://www1.axfc.net/uploader/File/so/39058.zip

選択したフォルダの子フォルダ以下で空のものを探すor削除する
右クリックに登録して使うつもり
　名前：適当に
　パス：Include:JScript (スクリプトファイルのPath)
　拡張：.folder
　動作：パスに選択項目を送る
適当にフォルダを選択して右クリックから実行すると
空のフォルダを検索して新規タブでツールフォルダに表示
スクリプトファイルを開いて実際に削除するように設定したら削除
この場合はWScript.Echoで削除したフォルダパスを表示
パスの前に*が付いているのは孫フォルダ、**は曾孫(ry
初期設定は曾孫フォルダまでファイルがあるかどうか検索する
例えば、以下のようなtestフォルダを選択して実行したとき
　test - test1(ファイルなし) - test11(ファイルなし) - test111(ファイルなし)
　　　　|
　　　　- test2(ファイルあり) - test21(ファイルなし)
検索の場合の結果
 **test1\test11\test111
 *test2\test21
削除の場合以下が削除される
 **test1\test11\test111
 *test1\test11
test1
 *test2\test21
選択したtestフォルダは対象外(削除して空になったとしても)
削除はだいじょうぶだと思うけど先ずは検索で利用してもらった方がいいかも