つらつら Excel VBA

私の備忘録です。

ファイルのプロパティ取得

Excel VBA

GetDetailsOf。作成日付や更新日付、アルバムやアーティスト、ビットレート等々のプロパティ情報を取得する。

'参照設定
'Microsoft Shell Controls And Automation

Sub プロパティ取得()
    
    Dim fso As Object, file As Object
    Set fso = CreateObject("Scripting.FileSystemObject")
    
    Set file = fso.GetFile(ThisWorkbook.FullName) '対象ファイルを指定
    
    Dim shell, folder
    Set shell = New Shell32.shell
    Set folder = shell.Namespace(file.ParentFolder.Path)
    
    Cells.Clear
    
    Dim i As Long
    For i = 0 To 500
        Cells(i + 1, 1).Value = i
        Cells(i + 1, 2).Value = folder.GetDetailsOf("", i) 'プロパティ名
        Cells(i + 1, 3).Value = folder.GetDetailsOf(folder.ParseName(file.Name), i) '内容
    Next
    
    Set folder = Nothing
    Set shell = Nothing
    
End Sub


プロパティ名を取得する箇所はNothingでも可。

= folder.GetDetailsOf("", i) 'プロパティ名
= folder.GetDetailsOf(Nothing, i) 'プロパティ名


OSやバージョンによって実行結果が違うので注意！
自分の環境の実行結果をそのまま載せておきますが、あてにしないこと。

Win7プロパティ名Win10プロパティ名
0名前0名前
1サイズ1サイズ
2項目の種類2項目の種類
3更新日時3更新日時
4作成日時4作成日時
5アクセス日時5アクセス日時
6属性6属性
7オフラインの状態7オフラインの状態
8オフラインで利用可能8利用可能性
9認識された種類9認識された種類
10所有者10所有者
11分類11分類
12撮影日時12撮影日時
13参加アーティスト13参加アーティスト
14アルバム14アルバム
15年15年
16ジャンル16ジャンル
17指揮者17指揮者
18タグ18タグ
19評価19評価
20作成者20作成者
21タイトル21タイトル
22件名22件名
23分類項目23分類項目
24コメント24コメント
25著作権25著作権
26トラック番号26トラック番号
27長さ27長さ
28ビット レート28ビット レート
29保護29保護
30カメラのモデル30カメラのモデル
31大きさ31大きさ
32カメラの製造元32カメラの製造元
33会社33会社
34ファイルの説明34ファイルの説明
35プログラム名35マスター キーワード
36継続時間36マスター キーワード
37オンライン37
38再帰38
39場所39
40任意出席者アドレス40
41任意出席者41
42開催者住所42プログラム名
43開催者名43継続時間
44アラーム時刻44オンライン
45必須出席者アドレス45再帰
46必須出席者46場所
47リソース47任意出席者アドレス
48会議の状態48任意出席者
49空き時間情報49開催者住所
50合計サイズ50開催者名
51アカウント名51アラーム時刻
52進捗状況52必須出席者アドレス
53コンピューター53必須出席者
54記念日54リソース
55秘書の名前55会議の状態
56秘書の電話56空き時間情報
57誕生日57合計サイズ
58住所 (会社)58アカウント名
59市 (会社)59
60国/地域 (会社)60進捗状況
61私書箱 (会社)61コンピューター
62郵便番号 (会社)62記念日
63都道府県 (会社)63秘書の名前
64番地 (会社)64秘書の電話
65FAX 番号 (会社)65誕生日
66会社のホーム ページ66住所 (会社)
67会社電話67市 (会社)
68コールバック番号68国/地域 (会社)
69自動車電話69私書箱 (会社)
70子供70郵便番号 (会社)
71会社代表電話71都道府県 (会社)
72部署72番地 (会社)
73電子メール アドレス73FAX 番号 (会社)
74電子メール274会社のホーム ページ
75電子メール375会社電話
76電子メールの一覧76コールバック番号
77電子メール表示名77自動車電話
78表題278子供
79名79会社代表電話
80氏名80部署
81性別81電子メール アドレス
82名282電子メール2
83趣味83電子メール3
84住所 (自宅)84電子メールの一覧
85市 (自宅)85電子メール表示名
86国/地域 (自宅)86表題2
87私書箱 (自宅)87名
88郵便番号 (自宅)88氏名
89都道府県 (自宅)89性別
90番地 (自宅)90名2
91自宅 FAX91趣味
92自宅電話92住所 (自宅)
93IM アドレス93市 (自宅)
94イニシャル94国/地域 (自宅)
95役職95私書箱 (自宅)
96ラベル96郵便番号 (自宅)
97姓97都道府県 (自宅)
98住所 (郵送先)98番地 (自宅)
99ミドル ネーム99自宅 FAX
100携帯電話100自宅電話
101ニックネーム101IM アドレス
102勤務先所在地102イニシャル
103住所 (その他)103役職
104ほかの市区町村104ラベル
105他の国/地域105姓
106他の私書箱106住所 (郵送先)
107他の郵便番号107ミドル ネーム
108他の都道府県108携帯電話
109他の番地109ニックネーム
110ポケットベル110勤務先所在地
111肩書き111住所 (その他)
112市区町村 (郵送先)112ほかの市区町村
113国/地域113他の国/地域
114私書箱 (郵送先)114他の私書箱
115郵便番号 (郵送先)115他の郵便番号
116都道府県116他の都道府県
117番地 (郵送先)117他の番地
118プライマリ電子メール118ポケットベル
119通常の電話119肩書き
120職業120市区町村 (郵送先)
121配偶者121国/地域
122サフィックス122私書箱 (郵送先)
123TTY/TTD 電話123郵便番号 (郵送先)
124テレックス124都道府県
125Web ページ125番地 (郵送先)
126内容の状態126プライマリ電子メール
127内容の種類127通常の電話
128取得日時128職業
129アーカイブ日時129配偶者
130完了日130サフィックス
131デバイス カテゴリ131TTY/TTD 電話
132接続済み132テレックス
133探索方法133Web ページ
134フレンドリ名134内容の状態
135ローカル コンピューター135内容の種類
136製造元136取得日時
137モデル137アーカイブ日時
138ペアリング済み138完了日
139クラス139デバイス カテゴリ
140状態140接続済み
141クライアント ID141探索方法
142貢献者142フレンドリ名
143コンテンツの作成日時143ローカル コンピューター
144前回印刷日144製造元
145前回保存日時145モデル
146事業部146ペアリング済み
147ドキュメント ID147クラス
148ページ数148状態
149スライド149状態
150総編集時間150クライアント ID
151単語数151共同作成者
152期限152コンテンツの作成日時
153終了日153前回印刷日
154ファイル数154前回保存日時
155ファイル名155事業部
156ファイル バージョン156ドキュメント ID
157フラグの色157ページ数
158フラグの状態158スライド
159空き領域159総編集時間
160ビットの深さ160単語数
161水平方向の解像度161期限
162幅162終了日
163垂直方向の解像度163ファイル数
164高さ164ファイル拡張子
165重要度165ファイル名
166添付166ファイル バージョン
167削除167フラグの色
168暗号化の状態168フラグの状態
169フラグの有無169空き領域
170終了済170
171未完了171
172開封の状態172グループ
173共有173共有の種類
174製作者174ビットの深さ
175日付時刻175水平方向の解像度
176フォルダー名176幅
177フォルダーのパス177垂直方向の解像度
178フォルダー178高さ
179参加者179重要度
180パス180添付
181場所ごと181削除
182種類182暗号化の状態
183連絡先の名183フラグの有無
184履歴の種類184終了済
185言語185未完了
186最終表示日186開封の状態
187説明187共有
188リンクの状態188製作者
189リンク先189日付時刻
190URL190フォルダー名
191メディアの作成日時191フォルダーのパス
192リリース日192フォルダー
193エンコード方式193参加者
194プロデューサー194パス
195発行元195場所ごと
196サブタイトル196種類
197ユーザー Web URL197連絡先の名
198作者198履歴の種類
199添付ファイル199言語
200BCC アドレス200最終表示日
201BCC201説明
202CC アドレス202リンクの状態
203CC203リンク先
204会話 ID204URL
205受信日時205
206送信日時206
207送信元アドレス207
208差出人208メディアの作成日時
209添付ファイルの有無209リリース日
210送信者アドレス210エンコード方式
211送信者名211エピソード番号
212ストア212プロデューサー
213送信先アドレス213発行元
214To do タイトル214シーズン番号
215宛先215サブタイトル
216経費情報216ユーザー Web URL
217アルバムのアーティスト217作者
218アルバム ID218
219ビート数/分219添付ファイル
220作曲者220BCC アドレス
221イニシャル キー221BCC
222コンパイルの一部222CC アドレス
223雰囲気223CC
224セットのパート224会話 ID
225期間225受信日時
226色226送信日時
227保護者による制限227送信元アドレス
228保護者による制限の理由228差出人
229使用領域229添付ファイルの有無
230EXIF バージョン230送信者アドレス
231イベント231送信者名
232露出補正232ストア
233露出プログラム233送信先アドレス
234露出時間234To do タイトル
235絞り値235宛先
236フラッシュ モード236経費情報
237焦点距離237アルバムのアーティスト
23835mm 焦点距離238アルバム アーティストで並べ替え
239ISO 速度239アルバム ID
240レンズ メーカー240アルバムで並べ替え
241レンズ モデル241参加アーティストで並べ替え
242光源242ビート数/分
243最大絞り243作曲者
244測光モード244作曲者で並べ替え
245向き245ディスク
246人物246イニシャル キー
247プログラムのモード247コンパイルの一部
248彩度248雰囲気
249対象の距離249セットのパート
250ホワイト バランス250期間
251優先度251色
252プロジェクト252保護者による制限
253チャンネル番号253保護者による制限の理由
254この回のタイトル254使用領域
255字幕255EXIF バージョン
256再放映256イベント
257SAP257露出補正
258放送日258露出プログラム
259プログラムの説明259露出時間
260記録時間260絞り値
261ステーション コール サイン261フラッシュ モード
262局名262焦点距離
263概要26335mm 焦点距離
264抜粋264ISO 速度
265自動要約265レンズ メーカー
266検索のランキング266レンズ モデル
267秘密度267光源
268共有ユーザー268最大絞り
269共有状態269測光モード
270製品名270向き
271製品バージョン271人物
272サポートのリンク272プログラムのモード
273ソース273彩度
274開始日274対象の距離
275課金情報275ホワイト バランス
276完了276優先度
277仕事の所有者277プロジェクト
278総ファイル サイズ278チャンネル番号
279商標279この回のタイトル
280ビデオ圧縮280字幕
281ディレクター281再放映
282データ速度282SAP
283フレーム高283放送日
284フレーム率284プログラムの説明
285フレーム幅285記録時間
286総ビット レート286ステーション コール サイン
287287局名
288288概要
289289抜粋
290290自動要約
291291関連度
292292ファイルの所有権
293293秘密度
294294共有ユーザー
295295共有状態
296296
297297製品名
298298製品バージョン
299299サポートのリンク
300300ソース
301301開始日
302302共有中
303303可用性の状態
304304状態
305305課金情報
306306完了
307307仕事の所有者
308308タイトルで並べ替え
309309総ファイル サイズ
310310商標
311311ビデオ圧縮
312312ディレクター
313313データ速度
314314フレーム高
315315フレーム率
316316フレーム幅
317317球形
318318ステレオ
319319ビデオの向き
320320総ビット レート

以上。