読者です 読者をやめる 読者になる 読者になる

palm84.hatenablog.com

革命的愛熊主義者同盟!

右クリック「送る」でファイルのプロパティ書き出し

小ネタ Windows VBScript

f:id:palm84:20150626190916p:plain

ワンパターンですみません...「送る」メニューからVBScript の GetDetailsOf メソッドにてファイルのプロパティをテキストファイルに書き出しするのです...

こんなかんじ...

  • GetDetailsOf_Show_log1.txt
0) 	名前	MacTypeInstaller_2013_1231_0.exe
1) 	サイズ	4.71 MB
2) 	項目の種類	アプリケーション
3) 	更新日時	2015/03/13 21:49
4) 	作成日時	2015/05/07 9:07
5) 	アクセス日時	2015/05/07 9:07
6) 	属性	HSAPLO
8) 	利用可能性	オンラインのみ
9) 	認識された種類	アプリケーション
10) 	所有者	xxx\yassy
11) 	分類	プログラム
19) 	評価	評価なし
50) 	合計サイズ	355 GB
53) 	コンピューター	xxx(この PC)
156) 	ファイル拡張子	.exe
157) 	ファイル名	MacTypeInstaller_2013_1231_0.exe
161) 	空き領域	159 GB
178) 	共有	いいえ
181) 	フォルダー名	backup
182) 	フォルダーのパス	D:\My_Files\ドキュメント\00_OneDrive\backup
183) 	フォルダー	backup (D:\My_Files\ドキュメント\00_OneDrive)
185) 	パス	D:\My_Files\ドキュメント\00_OneDrive\backup\MacTypeInstaller_2013_1231_0.exe
187) 	種類	アプリケーション
193) 	リンクの状態	未解決
242) 	使用領域	55%
282) 	共有状態	非共有
283) 		利用可能

mp3 だと時間やビットレートなんかも出ます。

0) 	名前	04 I want you to stay by me.mp3
1) 	サイズ	3.97 MB
2) 	項目の種類	MP3 形式サウンド
3) 	更新日時	2012/11/16 2:03
4) 	作成日時	2015/05/03 9:37
5) 	アクセス日時	2015/05/03 9:37
6) 	属性	A
8) 	利用可能性	オフラインで利用可能
9) 	認識された種類	オーディオ
10) 	所有者	xxx\yassy
11) 	分類	音楽
13) 	参加アーティスト	岩崎元是&WINDY
14) 	アルバム	フロム・サウス・アベニュー
15) 	年	1987
16) 	ジャンル	ポップ
19) 	評価	評価なし
20) 	作成者	岩崎元是&WINDY
21) 	タイトル	I want you to stay by me
26) 	トラック番号	4
27) 	長さ	00:04:20
28) 	ビット レート	128kbps
29) 	保護	いいえ
50) 	合計サイズ	355 GB
53) 	コンピューター	xxx (この PC)
156) 	ファイル拡張子	.mp3
157) 	ファイル名	04 I want you to stay by me.mp3
161) 	空き領域	159 GB
178) 	共有	いいえ
181) 	フォルダー名	フロム サウス アベニュー
182) 	フォルダーのパス	D:\My_Files\ミュージック\岩崎元是andWINDY\フロム サウス アベニュー
183) 	フォルダー	フロム サウス アベニュー (D:\My_Files\ミュージック\岩崎元是andWINDY)
185) 	パス	D:\My_Files\ミュージック\岩崎元是andWINDY\フロム サウス アベニュー\04 I want you to stay by me.mp3
187) 	種類	MP3 形式サウンド
193) 	リンクの状態	未解決
202) 	発行元	キティ
226) 	アルバムのアーティスト	岩崎元是&WINDY
242) 	使用領域	55%
282) 	共有状態	非共有
283) 		利用可能

※ 複数指定の右クリックもおk!

作成スクリプト

拡張子 .txt を外してWクリックで実行してくらはい。

f:id:palm84:20150626190917p:plain

やってることは...

  1. 実行した同じフォルダ内に GetDetailsOf_Show1.vbs 作成
  2. 「送る」(shell:sendto) にそのショートカットを作成
  3. ショートカットのアイコンを変更

「送る」から実行すると同じフォルダにログファイル GetDetailsOf_log1.txt が作成されます。実行時は常に上書きされます。

修正は GetDetailsOf_Show1.vbs をごにょごにょして下され。

上書きでなく追記に変更するには...

GetDetailsOf_Show1.vbs の下記の行を変更してくだされ。

28 : Set objTxt = objFSO.OpenTextFile(LogFile, ForWriting, true, -1)
28 : Set objTxt = objFSO.OpenTextFile(LogFile, ForAppending, true, -1)

ほなでした