スクリプトです。ダウンロードして使用して下さい。 1) デスクトップ
Set obj = CreateObject("Shell.Application")
Set objFolder = obj.NameSpace( &h0 )
obj.Explore(objFolder.Self.Path)
2) HOSTS のあるディレクトリ
Set obj = CreateObject("Shell.Application")
Set objFolder = obj.NameSpace( &h25 )
obj.Explore(objFolder.Self.Path&"\drivers\etc")
3) コントロールパネル
Set obj = CreateObject("Shell.Application")
Set objFolder = obj.NameSpace( &h3 )
obj.Explore(objFolder.Self.Path)
4) 最近盛った項目
Set obj = CreateObject("Shell.Application")
Set objFolder = obj.NameSpace( &h8 )
obj.Explore(objFolder.Self.Path)
5) SysWOW64
Set obj = CreateObject("Shell.Application")
Set objFolder = obj.NameSpace( &h29 )
obj.Explore(objFolder.Self.Path)
6) Microsoft Framework
Set obj = CreateObject("Shell.Application")
Set objFolder = obj.NameSpace( &h24 )
obj.Explore(objFolder.Self.Path & "\Microsoft.NET\Framework" )
以下の番号を 1) のスクリプトの &h0 に置き換えると、それぞれの特殊フォルダを開きます。ですから、そのパスを基点とした良く使うけれど、面倒な場所にあるフォルダの位置をスクリプトに追加で書き込むといいです。( 例: HOSTS のあるディレクトリ )
| DESKTOP | 0x00 |
| PROGRAMS | 0x02 |
| CONTROLS | 0x03 |
| PRINTERS | 0x04 |
| PERSONAL | 0x05 |
| FAVORITES | 0x06 |
| STARTUP | 0x07 |
| RECENT | 0x08 |
| SENDTO | 0x09 |
| BITBUCKET | 0x0a |
| STARTMENU | 0x0b |
| DESKTOPDIRECTORY | 0x10 |
| DRIVES | 0x11 |
| NETWORK | 0x12 |
| NETHOOD | 0x13 |
| FONTS | 0x14 |
| TEMPLATES | 0x15 |
| COMMONSTARTMENU | 0x16 |
| COMMONPROGRAMS | 0x17 |
| COMMONSTARTUP | 0x18 |
| COMMONDESKTOPDIR | 0x19 |
| APPDATA | 0x1a |
| PRINTHOOD | 0x1b |
| LOCALAPPDATA | 0x1c |
| ALTSTARTUP | 0x1d |
| COMMONALTSTARTUP | 0x1e |
| COMMONFAVORITES | 0x1f |
| INTERNETCACHE | 0x20 |
| COOKIES | 0x21 |
| HISTORY | 0x22 |
| COMMONAPPDATA | 0x23 |
| WINDOWS | 0x24 |
| SYSTEM | 0x25 |
| PROGRAMFILES | 0x26 |
| MYPICTURES | 0x27 |
| PROFILE | 0x28 |
| SYSTEMx86 | 0x29 |
| PROGRAMFILESx86 | 0x30 |
タグ：VBScript
|
|
【Windowsの最新記事】
- 空の zip ファイル / VBScript で作成可能
- Windows 機能の呼び出し
- Windows : shell:sendto は、sendto だけで開くようです。
- Shell コマンドで開くフォルダ : HTA でクリックすると実行可能
- URI スキーム : Windows Update 画面を表示するコマンド
- エクスプローラを再起動して、ショートカットの拡張子( .LNK ) を表示するようにする / VBScript
- Explorer.exe のコマンドライン を使用して CLSID で特殊フォルダを開く / この記事では table のコマンドラインをクリックするとクリップボードにコピーできます。
- Windows7 と Windows10 : MSG コマンドを使えるようにするには ( msg.exe )
- Windows でパスワードを忘れた場合はインストールディスクがあれば簡単に復旧できるのは解った。
- Windows7 / 10 : イベントビュアーのログの設定をコマンドラインより行う(クリアを含む)
- Windows のエクスプローラのオプションダイアログを表示する rundll32.exe の引数
- 『Windows 10、バージョン 1709 の機能更新プログラム』の記録
- いまさらですが、『クリーンアップ』を管理者権限で起動して、Windows Update 関連やシステム関連の比較的大きなファイルを削除する
- Windows SDK の mt.exe を使用して、既存の exe を常に管理者権限で起動を求めるように変更する
- ファイル名を指定して実行と、『管理者権限』
- RICOHのデジタルフルカラー複合機でスキャンしたPDFを自分のPCに保存する
- 日本語入力で、変換ができなくなったら『辞書を修復』
- 広告から感染するウィルスに対する具体的な対処法について
- ファイル名を指定して実行(管理者)
- フォルダのセキュリティ設定
