Windows Tips / 圧縮フォルダをエクスプローラーで使わないようにする - プログラミングの作業に何の価値も見出せなくなってしまったd金魚による日記

私はExplorerを沢山立ち上げるほうなので*1動作は軽いほうが好みである。
そして、ふとした事から
http://hail2u.net/blog/software/turn-off-zip-folder.html
の方法を見つける。
私はVBScriptで以下のように書き下してみた。
続きを読む



Set shell=CreateObject("WScript.Shell")
'r = MsgBox("Is the compression folder released? (y/n)", vbYesNo,"Setting Explorer Compression Folder Extension")

r = MsgBox("Explorerで圧縮フォルダを表示しない設定にしますか？",vbYesNo,"「はい」で表示しない　「いいえ」で表示する")
if vbYes = r Then

'unuse

shell.Run("regsvr32 /u zipfldr.dll")

shell.Run("regsvr32 /u cabview.dll")
Else

'use

shell.Run("regsvr32 zipfldr.dll")

shell.Run("regsvr32 cabview.dll")
End If

*2
上記のソースコードをテキストエディタにコピペしてwcf.vbsというファイル名で保存する。そしてそのファイルをダブルクリックして実行。

いちいち成功、失敗のメッセージボックスが表示されるが無視してよい。
こうしておけば面倒なコマンド入力がいらないので少し便利だと思う。

*1:http://d.hatena.ne.jp/studiokingyo/20060912#c1158382886

*2:もちろんこのコードのライセンスはNYSLである。