| |
10月第1週のうちに解決したいです。
−−−−−−−−−−−−−−−−−−−−−−−−−−−
大量のTIFF画像の中に壊れた（標準的な画像ビューワで開け
ない）画像がないか、調べたいです。
−−−−−−−−−−−−−−−−−−−−−−−−−−−
大量のTIFF画像と、１つのBook（一覧.XLS）があります。
一覧.XLS には１シート（worksheet.name="一覧"）が保存
されていて、A列に「各TIFFのファイル名」と、B列に
「フォルダパス名」が登録されています。
壊れた画像ファイルがないか、次の様なステップで一括で
検査したいです。WScript Host が便利そうに思いました。
−−−−−−−−−−−−−−−−−−−−−−−−−
WScript.Shell を使用可能にする。
WScript.Shellオブジェクト.Exec（画像ビューワ）
For lngNum = 1 to lngFileSum
画像ビューワ.Open (TIFF画像) ,False
If TIFF画像が正常に開かれた Then
"TIFFファイルは壊れていません。"
Else
"TIFFファイルは壊れています。"
End If
画像ビューワ.Close (TIFF画像)
Next lngNum
WScript.Shellオブジェクト.Terminate（画像ビューワ）
Set オブジェクト = Nothing
−−−−−−−−−−−−−−−−−−−−−−−−−
しかし、WScript には、オブジェクトが終了するまで待つ
か、終了を待たずに次のステップに移るか、の２つしか
選択肢が無さそうで「IF 画像が正常に開かれた」をVBAで
判定する方法を見つけられません。
WScript である必要はありません。VBAで実現可能でしたら
そのサンプルコードを教えて下さい。
なお、当方の標準的な画像ビューワは IrFanView ですが、
検査に使用するビューワはこれである必要はありません。
よろしくお願いします。
|
|
![[未読]](./data/excel/image/read_icon.gif){kind=icon}
