ACCESSのフィールドサイズについて

ACCESSのフィールドにＯＬＥオブジェクト形式で写真データを格納しているのですが、この写真のサイズ(KB)を取得できるのでしょうか？

No.1 ベストアンサー 回答者： fuuten_no_neko 回答日時： 2006/06/08 06:41

できないと思いますが、この点に自信はありません(^^;

で、代案として

１．格納時に元データのサイズを取得し記録しておく
２．ＯＬＥオブジェクト形式をやめ元データを特定のフォルダに格納すると共に、そのファイルパスをデータベースで管理する

特に、２．の方法がお勧めです。現在約８千枚（将来は数万枚）の画像を管理していますがＯＬＥオブジェクト形式は何かと不便です。たとえばファイルパス方式ならば、１ドライブに格納しきれない大量のデータを複数ドライブに分散できるなど。またレタッチ時にオリジナルデータを残す操作なども簡単にできます。

この回答へのお礼

ありがとうございます。
参考になりました。

お礼日時：2006/06/09 21:01

No.3 回答者： nekon 回答日時： 2006/06/08 14:00

環境の違いか私が間違えてるだけなのか分かりませんが

O_cyanさんの記載方法ではACCESSマクロでファイルサイズが
取得出来なかったので訂正させて頂きます。

Dim Fso As New FileSystemObject
Dim MyFile As File
Dim MySize As Long　'ファイルサイズがバイト単位で返るのでIntegerでなくてLongに。

Set MyFile = Fso.GetFile(ファイルのフルパス)
MySize = MyFile.Size　'ファイルサイズがバイト単位で返ります
Set Fso = Nothing　'注*1

注1：Set Fso = Nothing が無くても
コード終了時に自動的にNothingされるが
私は念の為に付けるようにしています。

尚、FileSystemObjectを使用する場合はマクロの参照設定で
Microsoft Scripting Runtimeにチェックを入れて下さい。

他にFileLen関数を使用しても可能かと
Dim MySize As Long

MySize = FileLen("C:\My Documents\db1.mdb")　'ファイルサイズがバイト単位で返ります

また、APIのGetFileSize等でもファイルサイズを取得出来ますが
FileSystemObjectやFileLen関数の方がコードが短く簡単です。

この回答へのお礼

ありがというございます。
参考になりました。

お礼日時：2006/06/09 21:02

No.2 回答者： O_cyan 回答日時： 2006/06/08 11:05

>ＯＬＥオブジェクト形式で写真データを格納しているのですがこの写真のサイズ(KB)を取得できるのでしょうか

ＯＬＥオブジェクトではその写真のバイナリデータを格納しているのでその中からでは出来ません。
VBで通常はFileSystemObject等を使って写真のファイルサイズなどを取得します。
Dim Fso As New FileSystemObject
Dim MyFile As File
Dim MySize As integer
MyFile = Fso.GetFile("写真のフルパスとファイ名.拡張子")
MySize = FsoFile.Size
こんな感じで取得するようになります。

この回答へのお礼

ありがというございます。
参考になりました。

お礼日時：2006/06/09 21:02