tagCANDY CGI VBレスキュー(花ちゃん) - 画像ファイルの写真の撮影日等の情報を取得(VB6.0) - Visual Basic 6.0 VB2005 VB2010
VB2005用トップページへVBレスキュー(花ちゃん)のトップページVB6.0用のトップページ
画像ファイルの写真の撮影日等の情報を取得(VB6.0)
元に戻る スレッド一覧へ 記事閲覧
このページ内の検索ができます。(AND 検索や OR 検索のような複数のキーワードによる検索はできません。)

画像ファイルの写真の撮影日等の情報を取得(VB6.0) [No.71の個別表示]
     サンプル投稿用掲示板  VB2005 〜 用トップページ  VB6.0 用 トップページ
日時: 2007/07/16 09:45
名前: 花ちゃん

***********************************************************************************
* カテゴリー:[ファイル][他のアプリ関係][]                                        *
* キーワード:デジカメ,プロパティ,概要,詳細設定,,                                 *
***********************************************************************************

元質問:写真の撮影日の取得 - ちり  2003/10/29-09:47 No.6422

XPのエクスプローラの詳細表示で、デジカメの撮影日が表示されるのですが、あの日時は取得できないのでしょうか?

--------------------------------------------------------------------------
Re^3: 写真の撮影日の取得 - 花ちゃん  2003/10/29-19:17 No.6439
--------------------------------------------------------------------------

撮影日だけならnobuさんが投稿されていたのですがファイルの更新日時と同じようです。

とりあえず下記を試して見て下さい。
Option Explicit

Private Sub Command1_Click()
   Dim ObjShell      As Object
   Dim ObjFolder     As Object
   Dim myText        As String
   Dim i             As Long
   Dim FolderName    As Variant  '※ 必ず Variant型を指定して下さい
   FolderName = "c:\"
   Set ObjShell = CreateObject("Shell.Application")
   'ファイルが存在するフォルダを指定(※Variant型を指定して下さい)
   Set ObjFolder = ObjShell.NameSpace(FolderName)
   For i = 0 To 34
      myText = myText & i & "  " & ObjFolder.GetDetailsOf(, i) & "=" _
         & ObjFolder.GetDetailsOf(ObjFolder.ParseName("test.jpg"), i) & vbCrLf
   Next
   MsgBox myText
End Sub

※ 通常のようにString型の変数を使ったらだめだったので変数で使用できないと
  思っていたら No.6443の投稿で教えて頂いたの修正しておきます。

-----------------------------------------------------------------------
上記の実行結果の画像を添付しておきます。
どのような項目が取得できるかが解るかと思います。
(画像をクリックすると元のサイズでご覧頂けます。)
メンテ

Page: 1 |

フォルダー内の全ファイル情報の表示(VB6.0)  (No.1の個別表示) [スレッド一覧へ]
日時: 2015/02/11 19:28
名前: 花ちゃん

***********************************************************************************
* カテゴリー:[ファイル][他のアプリ関係][フォルダー]                              *
* キーワード:フォルダー,プロパティ,概要,詳細設定,,                               *
***********************************************************************************

元質問:ファイル情報の表示 - りこ  2005/07/01-14:26 No.3710
所定のフォルダー内にある、ファイル名、サイズ、更新日、作成日を一覧表示したいのです。
ただ、ファイルシステムオブジェクトは使用しないで行いたいのです。
理想としては、DOSの「DIRコマンド」のような結果が表示できれば良いのですが・・・

--------------------------------------------------------------------------
Re: ファイル情報の表示 - 魔界の仮面弁士 2005/07/01-15:02 No.3711
--------------------------------------------------------------------------
とりあえず、Shellオブジェクトを利用したサンプル。

Option Explicit

Private Sub Sample(ByVal FolderName As Variant)
    Dim ColumnLimit As Long
    Dim iColumn As Long
    Dim oShell As Object    'As Shell32.Shell
    Set oShell = CreateObject("Shell.Application")
    Dim oFolder As Object   'As Shell32.Folder
    Set oFolder = oShell.NameSpace(FolderName)
    Dim oFolderItems As Object  'As Shell32.FolderItems
    Set oFolderItems = oFolder.Items
    ColumnLimit = 0
    Do
        Dim ColumnName As String
        ColumnLimit = ColumnLimit + 1
        ColumnName = oFolder.GetDetailsOf(oFolderItems, ColumnLimit)
        Debug.Print ColumnName;
        If ColumnName = "" Then
            Exit Do
        Else
            Debug.Print "|";
        End If
    Loop
    Debug.Print Tab(1); String(230, "-")
    Dim oFolderItem As Object 'As Shell32.FolderItem
    For Each oFolderItem In oFolderItems
        Debug.Print Tab(1); oFolder.GetDetailsOf(oFolderItem, 0);
        For iColumn = 1 To ColumnLimit
            Debug.Print "|"; oFolder.GetDetailsOf(oFolderItem, iColumn);
        Next
    Next
    Debug.Print Tab(1); String(230, "-")
End Sub

Private Sub Form_Load()
    Me.Text1.Text = "C:\Documents and Settings\All Users\Documents\My Pictures\Sample Pictures\"
    Me.Command1.Caption = "列挙"
End Sub

Private Sub Command1_Click()
    Sample Text1.Text
End Sub
メンテ

Page: 1 |

 投稿フォーム               スレッド一覧へ
題  名 スレッドをトップへソート
名  前
パスワード (記事メンテ時に使用)
投稿キー (投稿時 投稿キー を入力してください)
コメント

   クッキー保存   
スレッド一覧へ