VB.netでメディアファイル（写真、動画）のプロパティを取得する方法

VB.netでメディアファイルのプロパティを取得するサンプルを作成しました。
画像や動画ファイルのプロパティの詳細タブに表示される情報をVB.netのプログラムで取得します。
写真の場合は、ファイルの更新日時とは別に撮影日時というプロパティがあります。
ムービーの場合は、更新日時が実際に撮影した時刻になりますが、撮影端末によっては、更新日時が世界標準時になっていて、時差が9時間あったりすることがあります。

スポンサーリンク

ムービーの場合、メタデータに保存されている 追加情報から撮影日時を知ることができる場合がありますが、今回は、VB.netでメディアファイルのプロパティを取得する 方法を紹介します。

VB.netでメディアファイルのプロパティを取得する方法

「参照の追加」で、「Microsoft Shell Controls And Automation」を追加します。

参照に「Shell32」が追加されました。

「Shell32」を右クリックして、プロパティを開きます。

「相互運用型の埋め込み」を「True」に変更します。

ソースコードは以下です。

        Dim shell As New ShellClass()
        Dim objFolder As Folder = shell.NameSpace("フォルダ名")
        Dim objItem As FolderItem
        Dim s項目名 As String
        Dim s値 As String
        Dim sText As String = ""
        objItem = objFolder.ParseName("ファイル名")
        For i As Integer = 0 To 1000
            s項目名 = objFolder.GetDetailsOf(Nothing, i)
            s値 = objFolder.GetDetailsOf(objItem, i)
            If Not String.IsNullOrEmpty(s値) Then
                sText &= i & "," & s項目名 & "," & s値 & vbCrLf
            End If
        Next

sTextが読取り結果です。

「相互運用型の埋め込み」を「True」にしていないと、「ShellClass」がエラーになります。
エラー内容は、

です。

画像ファイルで取得したデータです。

動画ファイルでも取得してみました。

撮影日時が分までしか取得できませんね。

FileInfoのLastWriteTimeで秒がわかるので、それを使えば良いと思います。
ツールで取り込むことで、更新日時が変わってしまう場合は、別の方法でファイルの順番を保つようにする必要があります。

動画ファイルのメタデータを読み込む方法はこちらです。

→VB.netでメディアファイル（写真、動画）のメタデータを取得する方法