情報関連 指定フォルダ内のJPGファイル横幅ピクセルを取得
※より実装に近く表示させる為、コードの改行を避けています。スマホ等で閲覧される際は向きを変えてご覧ください。
※実装するバージョンによってはバージョンアップの仕様により動作しないコードもあります。実装には動作確認の上ご使用下さい。
Sub GetFileWidthPixelInFolder() '******************************************************* '指定フォルダ内のJPGファイル横幅ピクセルを取得 '******************************************************* 'JPGやMP3ファイルのプロパティを取得 Dim objCRT As Object, objFldr As Object, i As Byte Dim strPrprty(34) As String 'ファイル情報の項目名をセット Dim strFlNm As Object, str As String, folPath As String Dim Spl As Variant folPath = ThisWorkbook.Path & "\" & "Windows_MediaPlayer" 'ActiveX オブジェクトへの参照 Set objCRT = CreateObject("Shell.Application") '名前空間の名前を宣言 Set objFldr = objCRT.Namespace("" & folPath & "") For i = 0 To 33 'ファイル情報の項目名をセット(取得).Items '[GetDetailsOf]ファイル情報を取得(ファイル名.Items,情報番号) strPrprty(i) = objFldr.GetDetailsOf(objFldr.Items, i) Next For Each strFlNm In objFldr.Items If Right(strFlNm, 4) = ".jpg" Then str = "" 'クリア i = 27 '横ピクセル ' i = 28 '縦ピクセル str = objFldr.GetDetailsOf(strFlNm, i) '[GetDetailsOf]ファイル情報を取得(ファイル名,情報番号) Spl = Split(str) MsgBox strFlNm & vbTab & Spl(0) End If Next '-------------------------------------------------- '【JPG表示項目一覧】 '0 名前 1.jpg '1 サイズ 9 KB '2 種類 JPEG イメージ '3 更新日時 2008/04/11 17:14 '4 作成日時 2009/10/14 14:20 '5 アクセス日時 2009/10/14 16:12 '6 属性 '7 状態 '8 所有者 -------- '9 作成者 '10 タイトル '11 表題 '12 カテゴリ '13 ページ数 '14 コメント '15 著作権 '16 アーティスト '17 アルバムのタイトル '18 年 '19 トラック番号 '20 ジャンル '21 長さ '22 ビット レート '23 保護 '24 カメラのモデル '25 写真の撮影日 '26 大きさ 282 x 100 '27 282 ピクセル '28 100 ピクセル '29 この回のタイトル '30 プログラムの説明 '31 '32 オーディオ サンプル サイズ '33 オーディオ サンプル レート '-------------------------------------------------- '【MP3表示項目一覧】 '0 名前 02 Even the Nights Are Better.mp3 '1 サイズ 4,525 KB '2 種類 MP3 形式サウンド '3 更新日時 2009/04/07 8:19 '4 作成日時 2008/09/08 8:21 '5 アクセス日時 2009/10/14 16:24 '6 属性 a '7 状態 オンライン '8 所有者 -------- '9 作成者 Air Supply '10 タイトル Even the Nights Are Better '11 表題 '12 カテゴリ Rock '13 ページ数 '14 コメント '15 著作権 '16 アーティスト Air Supply '17 アルバムのタイトル Now And Forever '18 年 1982 '19 トラック番号 2 '20 ジャンル Rock '21 長さ 0:03:58 '22 ビット レート 192kbps '23 保護 いいえ '24 カメラのモデル '25 写真の撮影日 '26 大きさ '27 '28 '29 この回のタイトル '30 プログラムの説明 '31 '32 オーディオ サンプル サイズ 0 ビット '33 オーディオ サンプル レート 44 KHz End Sub |