情報関連 指定フォルダ内のJPGファイル横幅ピクセルを取得

VB&VBA
FROG ふろっぐ
 
  • オプション

    本文印刷

    お気に入りに追加

  • 検索

    Googlewwwjp-ia
     

    Googlewwwjp-ia
     
  • 情報

  • 関連

[VB&VBA][情報関連 指定フォルダ内のJPGファイル横幅ピクセルを取得]
Option Explicit


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






Production Japan Import Application. Since 1998