だいなファイラーでUWSCを使う

だいなファイラーというファイラーを長いこと使わせて貰っている。
ファイラーソフトをいくつか試したけれど、これが軽くてシンプルで私には使い易い。
自分にとって足りない機能は、UWSCを使えばアッサリと解決できる。

選択したファイル、フォルダのフルパスをクリップボードにコピー
選択したファイル、フォルダのフルパスを1つだけならデフォルトでコピー出来るのだけれど
複数の場合は出来ないので、UWSCを使いそれを可能に。

だいなファイラー側の設定は、キー設定の外部コマンド編集で
実行ファイルパスにUWSCの実行ファイルのパス
パラメータに

"uwsファイルのパス" $MF（もしくは$F）

uwscファイルの中身↓

path=""
for i=0 to resize(param_str)
	path=path+param_str[i]+chr(13)+chr(10)
next
sendstr(0,path)

任意のキーを割り当てれば、そのキーを押してコピーできる。

Noahを使って選択したファイル、フォルダを個別に圧縮
Noahという圧縮ソフトは、一度に複数のファイルを個別に圧縮してくれるソフト（各種DLLが必要）
だいなファイラーで選択したファイルをUWSCを使ってNoahで個別に圧縮。
zipのパスワードがあるファイルだけは解凍できるようにした。
複数のファイルのパスワードが同じ場合に限るが、入力ボックスにパスワードを入力すれば
後は自動で入力して解凍、圧縮。

uwsファイルの中身
27行目のNoahの実行ファイルのパスは変える必要がある。
dim type<span data-unlink>="7zip","{lzma","lzma(std)","lzma(fast)","PPMd}",_ "cab","{MSZIP","LZX21}",_ "lza","{lh5","lh6","lh7}",_ "tar","{normal","gzip","bzip2}",_ "zip","{7-zip","store","normal","password","パスワードzip解凍}" select popupmenu(type,0,0) case 1;noah.sub_a("-t7z","-mlzma",param_str) case 2;noah.sub_a("-t7z","-mlzma(std)",param_str) case 3;noah.sub_a("-t7z","-mlzma(fast)",param_str) case 4;noah.sub_a("-t7z","-mppmd",param_str) case 6;noah.sub_a("-tcab","-mmszip",param_str) case 7;noah.sub_a("-tcab","-mlzx21",param_str) case 9;noah.sub_a("-tlzh","-mlh5",param_str) case 10;noah.sub_a("-tlzh","-mlh6",param_str) case 11;noah.sub_a("-tlzh","-mlh7",param_str) case 13;noah.sub_a("-ttar","-mnormal",param_str) case 14;noah.sub_a("-ttar","-mgzip",param_str) case 15;noah.sub_a("-ttar","-mbzip2",param_str) case 17;noah.sub_a("-tzip","-m7-zip",param_str) case 18;noah.sub_a("-tzip","-mstore",param_str) case 19;noah.sub_a("-tzip","-mnormal",param_str) case 20;noah.sub_b(param_str,"p") case 21;noah.sub_b(param_str,"u") default;exit selend class noah const exepath="C:\noah\Noah.exe" //Noahの実行ファイルのパス procedure sub_a(type,mode,path</span>) exec(exepath+" -w "+type+" "+mode+sub_c(path)) fend procedure sub_b(path<span data-unlink>,z) ifb z="p";wt_a="ZIP32J.DLL Password Input";wt_b="#32770" elseif z="u";wt_a="ファイルの復号化";wt_b="#32770";endif while true pas_a=input("Pass Word",,true) pas_b=input("More Pass Word",,true) if pas_a=pas_b then break else msgbox("Pass Word Error") wend if z="p" then noah=exec(exepath+" -w -tzip -mpassword"+sub_c(path)) if z="u" then noah=exec(exepath+sub_c(path)) lockhard(true) for i=1 to length(path) pa=getid(wt_a,wt_b,-1) ifb z="p" sendstr(pa,pas_a,1);sleep(0.2) sendstr(pa,pas_b,2);sleep(0.2) elseif z="u" sendstr(pa,pas_a,1);sleep(0.2) endif clkitem(pa,"OK",clk_btn or clk_short) next lockhard(false) fend function sub_c(path</span>,f_path="") for i=0 to length(path)-1 f_path=f_path+" <#dbl>"+path[i]+"<#dbl>" next result=f_path fend endclass