昨年末教えて頂いた、JpegExifクラスに付いて、もう一点お教え願います。

ご紹介頂いた下記URLから、
VBA標準モジュールに、Public Sub JPEGファイルリスト作成()と、
VBAクラスモジュール、' JpegExifクラス、をコピペしたVBA_Code TESTを作成しました。
また、ここに例示されている、Office Libraryが参照するファイルとして、
Windows8(C:)\tbl_sampleを用意し、そこに、\Ekiben.JPG、を登録しました。

このTESTプログラムを実行すると、sheet1に、
フォルダ C:\tbl_sample\
ファイル名 ファイルサイズ(byte) 最終更新日付 撮影日付 ・・・・等
が記録されます。
ここに収納されている、\Ekiben.JPGの情報が読み出されない原因は何でしょうか？
TESTプログラムに、何か不備があるのでしょうか。宜しくご指導をお願します。

参照URL
演目1. デジカメJPEGファイルのExif情報を読み取る Excel 2003
http://www.btinc.jp/vba_labo/study1.html

No.1 ベストアンサー 回答者： goosj12zy 回答日時： 2017/02/01 16:22

WEB情報では、

JpegExifクラスを参照するには、object.Iniset(Path)で、フルパス指定をすれば良い様です。

この回答へのお礼

goosj12zyさん、ヒントを頂き、有難う御座いました。

早速、上記の、VBA標準モジュールにコピペした、
Public Sub JPEGファイルリスト作成()、を点検してみました。

行番号59のCode：
If objJpeg.InitSet(fileName) >= 0 Then、
を次のように書き直してみました。
If objJpeg.InitSet(tFolder & fileName) >= 0 Then。

これで、Ekiben.JPGの情報は正常に読み出せました！！！！

お礼日時：2017/02/01 16:39