Explorer.exe で呼び出すフォルダの一覧を取得する / VBScript で HTML に table で書きだす / この記事では table のパスをクリップボードにコピーできます。 : logical　error

Google

<< Explorer.exe のコ… | TOP | Shell コマンドで開… >>

2019年01月15日

Explorer.exe で呼び出すフォルダの一覧を取得する / VBScript で HTML に table で書きだす / この記事では table のパスをクリップボードにコピーできます。



例えば、「既定のプログラム」を呼び出すには以下のように指定します。
( REM はバッチファイルのコメントです。行をあける為にだけ使用しています )

▼ こちらでは、コマンドライン全てをコピーできます
Explorer.exe のコマンドライン を使用して CLSID で特殊フォルダを開く

REM
REM
REM
explorer ::{26EE0668-A00A-44D7-9371-BEB064C98683}\0\::{17CD9488-1228-4B2F-88CE-4298E93E0966}

この場合の「::{26EE0668-A00A-44D7-9371-BEB064C98683}\0\::{17CD9488-1228-4B2F-88CE-4298E93E0966}」
は get_shell_folder.zip 内の get_control_info_0.wsf で取得できます。

または、エクスプローラのアドレスに直接入力でも殆どが実行できます。

1) get_control_info_0.wsf

▼ パス部分をクリックするとクリップボヘードへコピーします

	名称	パス
1	電源オプション	::{26EE0668-A00A-44D7-9371-BEB064C98683}\0\::{025A5937-A6BE-4686-A844-36FE4BEC8B6D}
2	NVIDIA コントロールパネル	::{26EE0668-A00A-44D7-9371-BEB064C98683}\0\::{0BBCA823-E77D-419E-9A44-5ADEC2C8EEB0}
3	タスクバーとナビゲーション	::{26EE0668-A00A-44D7-9371-BEB064C98683}\0\::{0DF44EAA-FF21-4412-828E-260A8728E7F1}
4	資格情報マネージャー	::{26EE0668-A00A-44D7-9371-BEB064C98683}\0\::{1206F5F1-0569-412C-8FEC-3204630DFB70}
5	既定のプログラム	::{26EE0668-A00A-44D7-9371-BEB064C98683}\0\::{17CD9488-1228-4B2F-88CE-4298E93E0966}
6	RemoteApp とデスクトップ接続	::{26EE0668-A00A-44D7-9371-BEB064C98683}\0\::{241D7C96-F8BF-4F85-B01F-E2B043341A4B}
7	Windows Defender ファイアウォール	::{26EE0668-A00A-44D7-9371-BEB064C98683}\0\::{4026492F-2F69-46B8-B9BF-5654FC07E423}
8	電話とモデム	::{26EE0668-A00A-44D7-9371-BEB064C98683}\0\::{40419485-C444-4567-851A-2DD7BFA1684D}
9	音声認識	::{26EE0668-A00A-44D7-9371-BEB064C98683}\0\::{58E3C745-D971-4081-9034-86E34B30836A}
10	ユーザーアカウント	::{26EE0668-A00A-44D7-9371-BEB064C98683}\0\::{60632754-C523-4B62-B45C-4172DA012619}
11	地域	::{26EE0668-A00A-44D7-9371-BEB064C98683}\0\::{62D8ED13-C9D0-4CE8-A914-47DD628FB1B0}
12	マウス	::{26EE0668-A00A-44D7-9371-BEB064C98683}\0\::{6C8EEC18-8D75-41B2-A177-8831D59D2D50}
13	エクスプローラーのオプション	::{26EE0668-A00A-44D7-9371-BEB064C98683}\0\::{6DFD7C5C-2451-11D3-A299-00C04F8EF6AF}
14	キーボード	::{26EE0668-A00A-44D7-9371-BEB064C98683}\0\::{725BE8F7-668E-4C7B-8F90-46BDB0936430}
15	デバイスマネージャー	::{26EE0668-A00A-44D7-9371-BEB064C98683}\0\::{74246BFC-4C96-11D0-ABEF-0020AF6B0B7A}
16	プログラムと機能	::{26EE0668-A00A-44D7-9371-BEB064C98683}\0\::{7B81BE6A-CE2B-4676-A29E-EB907A5126C5}
17	インデックスのオプション	::{26EE0668-A00A-44D7-9371-BEB064C98683}\0\::{87D66A43-7B11-4A28-9811-C86EE395ACF7}
18	Windows To Go	::{26EE0668-A00A-44D7-9371-BEB064C98683}\0\::{8E0C279D-0BD1-43C3-9EBD-31C3DC5B8A77}
19	ネットワークと共有センター	::{26EE0668-A00A-44D7-9371-BEB064C98683}\0\::{8E908FC9-BECC-40F6-915B-F4CA0E70D03D}
20	記憶域	::{26EE0668-A00A-44D7-9371-BEB064C98683}\0\::{F942C606-0914-47AB-BE56-1321B8035096}
21	自動再生	::{26EE0668-A00A-44D7-9371-BEB064C98683}\0\::{9C60DE1E-E5FC-40F4-A487-460851A8D915}
22	同期センター	::{26EE0668-A00A-44D7-9371-BEB064C98683}\0\::{9C73F5E5-7AE7-4E32-A8E8-8D23B85255BF}
23	回復	::{26EE0668-A00A-44D7-9371-BEB064C98683}\0\::{9FE63AFD-59CF-4419-9775-ABCC3849F861}
24	赤外線	::{26EE0668-A00A-44D7-9371-BEB064C98683}\0\::{A0275511-0E86-4ECA-97C2-ECD8F1221D08}
25	インターネットオプション	::{26EE0668-A00A-44D7-9371-BEB064C98683}\0\::{A3DD4F92-658A-410F-84FD-6FBBBEF2FFFE}
26	デバイスとプリンター	::{26EE0668-A00A-44D7-9371-BEB064C98683}\0\::{A8A91A66-3A7D-4424-8D24-04E180695C7A}
27	色の管理	::{26EE0668-A00A-44D7-9371-BEB064C98683}\0\::{B2C761C6-29BC-4F19-9251-E6195265BAF1}
28	バックアップと復元 (Windows 7)	::{26EE0668-A00A-44D7-9371-BEB064C98683}\0\::{B98A2BEA-7D42-4558-8BD1-832F41BAC6FD}
29	システム	::{26EE0668-A00A-44D7-9371-BEB064C98683}\0\::{BB06C0E4-D293-4F75-8A90-CB05B6477EEE}
30	セキュリティとメンテナンス	::{26EE0668-A00A-44D7-9371-BEB064C98683}\0\::{BB64F8A7-BEE7-4E1A-AB8D-7D8273F7FDB6}
31	フォント	::{26EE0668-A00A-44D7-9371-BEB064C98683}\0\フォント
32	トラブルシューティング	::{26EE0668-A00A-44D7-9371-BEB064C98683}\0\::{C58C4893-3BE0-4B45-ABB5-A63E4B8C8651}
33	管理ツール	C:\ProgramData\Microsoft\Windows\Start Menu\Programs\Administrative Tools
34	コンピューターの簡単操作センター	::{26EE0668-A00A-44D7-9371-BEB064C98683}\0\::{D555645E-D4F8-4C29-A827-D93C859C4F2A}
35	BitLocker ドライブ暗号化	::{26EE0668-A00A-44D7-9371-BEB064C98683}\0\::{D9EF8727-CAC2-4E60-809E-86F80A666C91}
36	日付と時刻	::{26EE0668-A00A-44D7-9371-BEB064C98683}\0\::{E2E7934B-DCE5-43C4-9576-7FE4F75E7480}
37	ワークフォルダー	::{26EE0668-A00A-44D7-9371-BEB064C98683}\0\::{ECDB0924-4208-451E-8EE0-373C0956DE16}
38	サウンド	::{26EE0668-A00A-44D7-9371-BEB064C98683}\0\::{F2DDFC82-8F12-4CDD-B7DC-D4FE1425AA4D}
39	ファイル履歴	::{26EE0668-A00A-44D7-9371-BEB064C98683}\0\::{F6B6E965-E9B2-444B-9286-10C9152EDBC5}


get_desktop_info.wsf

<JOB>
<SCRIPT language="VBScript">
bFlg = True

' 必要なオブジェクト
Set Fs = CreateObject( "Scripting.FileSystemObject" )
Set WshShell = CreateObject( "WScript.Shell" )
Set Shell = CreateObject( "Shell.Application" )

' ファイル
strPath = "Desktop_info.htm"
Set OutFile = Fs.OpenTextFile( strPath, 2, True )

' HTML 骨格部分
OutFile.WriteLine "<HTML><HEAD><TITLE>ProcessList</TITLE>"
OutFile.WriteLine "<META http-equiv=""Content-Type"" content=""text/html; charset=shift_jis"">"
OutFile.WriteLine "<STYLE type=""text/css"">* { font-size:12px;}</STYLE>"
OutFile.WriteLine "</HEAD><BODY>"
OutFile.WriteLine "<TABLE>"
OutFile.WriteLine "<TR>"

OutFile.WriteLine "<TH style='background-color:gray;color:white' nowrap></TH>"
OutFile.WriteLine "<TH style='background-color:gray;color:white' nowrap>名称</TH>"
OutFile.WriteLine "<TH style='background-color:gray;color:white' nowrap>タイプ</TH>"
OutFile.WriteLine "<TH style='background-color:gray;color:white' nowrap>パス</TH>"
if bFlg then
	OutFile.WriteLine "<TH style='background-color:gray;color:white' nowrap>説明</TH>"
end if

OutFile.WriteLine "</TR>"

' デスクトップ
Set objFolder = Shell.NameSpace( 0 )
' アイテムコレクション
Set objFolderItems = objFolder.Items()

' HTML データ部分
nCnt = 0
For Each item in objFolderItems 
	OutFile.WriteLine "<TR>"
	strCss = ""
	if nCnt Mod 2 = 0 then
		strCss = "style='background-color:#D0D0D0;'"
	end if

	' 連番
	OutFile.WriteLine "<TD nowrap " & strCss & "><B>" & (nCnt + 1) & "</b></TD>"

	' 詳細データ
	OutFile.WriteLine "<TD nowrap " & strCss & "><B>" & objFolder.GetDetailsOf(item, 0)  & "</b></TD>"
	OutFile.WriteLine "<TD nowrap " & strCss & ">" & objFolder.GetDetailsOf(item, 2)  & "</TD>"
	OutFile.WriteLine "<TD nowrap " & strCss & ">" & item.Path  & "</TD>"

if bFlg then
	on error resume next
	OutFile.WriteLine "<TD nowrap " & strCss & ">" & objFolder.GetDetailsOf(item, -1)  & "</TD>"
	if Err.Number <> 0 then
		OutFile.WriteLine "<TD nowrap " & strCss & "></TD>"
	end if
	on error goto 0
end if

	OutFile.WriteLine "</TR>"
	nCnt = nCnt + 1
Next 

OutFile.WriteLine "</TABLE></BODY></HTML>"
OutFile.Close

WshShell.Run( "RunDLL32.EXE shell32.dll,ShellExec_RunDLL """ & _
	WshShell.CurrentDirectory & "\" & strPath & """" )
</SCRIPT>
</JOB>


get_control_info_0.wsf

<JOB>
<SCRIPT language="VBScript">
bFlg = False

' 必要なオブジェクト
Set Fs = CreateObject( "Scripting.FileSystemObject" )
Set WshShell = CreateObject( "WScript.Shell" )
Set Shell = CreateObject( "Shell.Application" )

' ファイル
strPath = "Control_info_0.htm"
Set OutFile = Fs.OpenTextFile( strPath, 2, True )

' HTML 骨格部分
OutFile.WriteLine "<HTML><HEAD><TITLE>ProcessList</TITLE>"
OutFile.WriteLine "<META http-equiv=""Content-Type"" content=""text/html; charset=shift_jis"">"
OutFile.WriteLine "<STYLE type=""text/css"">* { font-size:12px;}</STYLE>"
OutFile.WriteLine "</HEAD><BODY>"
OutFile.WriteLine "<TABLE>"
OutFile.WriteLine "<TR>"

OutFile.WriteLine "<TH style='background-color:gray;color:white' nowrap></TH>"
OutFile.WriteLine "<TH style='background-color:gray;color:white' nowrap>名称</TH>"
OutFile.WriteLine "<TH style='background-color:gray;color:white' nowrap>タイプ</TH>"
OutFile.WriteLine "<TH style='background-color:gray;color:white' nowrap>パス</TH>"
if bFlg then
	OutFile.WriteLine "<TH style='background-color:gray;color:white' nowrap>説明</TH>"
end if

OutFile.WriteLine "</TR>"

' コントロールパネル
Set objFolder = Shell.NameSpace( "::{26EE0668-A00A-44D7-9371-BEB064C98683}\0" )

' アイテムコレクション
Set objFolderItems = objFolder.Items()

' HTML データ部分
nCnt = 0
For Each item in objFolderItems 
	OutFile.WriteLine "<TR>"
	strCss = ""
	if nCnt Mod 2 = 0 then
		strCss = "style='background-color:#D0D0D0;'"
	end if

	' 連番
	OutFile.WriteLine "<TD nowrap " & strCss & "><B>" & (nCnt + 1) & "</b></TD>"

	' 詳細データ
	OutFile.WriteLine "<TD nowrap " & strCss & "><B>" & objFolder.GetDetailsOf(item, 0)  & "</b></TD>"
	OutFile.WriteLine "<TD nowrap " & strCss & ">" & objFolder.GetDetailsOf(item, 2)  & "</TD>"
	OutFile.WriteLine "<TD nowrap " & strCss & ">" & item.Path  & "</TD>"
if bFlg then
	on error resume next
	OutFile.WriteLine "<TD nowrap " & strCss & ">" & objFolder.GetDetailsOf(item, -1)  & "</TD>"
	if Err.Number <> 0 then
		OutFile.WriteLine "<TD nowrap " & strCss & "></TD>"
	end if
	on error goto 0
end if

	OutFile.WriteLine "</TR>"
	nCnt = nCnt + 1
Next 

OutFile.WriteLine "</TABLE></BODY></HTML>"
OutFile.Close

WshShell.Run( "RunDLL32.EXE shell32.dll,ShellExec_RunDLL """ & WshShell.CurrentDirectory & "\" & strPath & """" )
</SCRIPT>
</JOB>

タグ：Windows7

【Windows10の最新記事】

posted by lightbox at 2019-01-15 16:10 | Windows10 |

Seesaa ブログ

	SQLServer の BCP で INT IDENTITY 列に csv からリストアする
	MySQL に PIPES_AS_CONCAT を設定して、CSV を出力する SQL
	Chrome ポリシー : レジストリ : ( ChatGPT 解説 )
	PL/SQL : 最も簡単な CSV 出力の記述
	VBScript を『管理者として実行する』には、Shell の runas ( 右クリックメニューの実行と同等 ) で実現します / Jscript も追加
	fake sendmail for windows を使って、PHP でごく普通に( mb_send_mail で )メール送信
	TCPDF をダウンロードして、Windows の任意のフォルダで TCPDF 同梱のサンプルを実行する為の設定
	JavaScript : window オブジェクトのプロパティとしてグローバル変数を定義する
	TCPDF をダウンロードして、フリーフォントを埋め込み型で使用する方法
	汎用型 : JSON データより履歴書のフォームを出力するサンプル
	ChatGPT でトップまでスクロールするブックマークレット
	Replit : cs-list
	Replit : js-web-speech
	Replit : js-csv-read-utf8
	Replit : text-editor
	指定した位置でレジストリエディタを開く為の VBScript をダウンロードします
	JScript / VBScript : 指定したフォルダ内のフォルダ毎の使用済みサイズを読める範囲でレポートする
	デスクトップを部分キャプチャした時に切り取り&スケッチを起動してキャプチャ画像に枠線を付加させる。
	#Zoom の必殺技 : 相手に自分の Zoom 関連のウインドウを見せる
	GAS でユーザ作成 : 組織は "orgUnitPath": "/組織名A/組織名B"

	一部のファイル形式がブロックされる(GMail)
	Creating Shortcut Menu Handlers
	Microsoft Word のキーボードショートカット
	Excel のショートカットキーとファンクションキー
	サイトへの不自然なリンクを否認する新しいツールの提供を開始しました

logical error

2019年01月15日

Explorer.exe で呼び出すフォルダの一覧を取得する / VBScript で HTML に table で書きだす / この記事では table のパスをクリップボードにコピーできます。

logical　error