質問: ACCESSのフィールドにOLEオブジェクト形式で写真データを格納しているのですが、この写真のサイズ(KB)を取得できるのでしょうか?
回答: 環境の違いか私が間違えてるだけなのか分かりませんが 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関数の方がコードが短く簡単です。