画像ファイル

質問

WIndows2000　Access2000

フロッピーディスク内の画像ファイルをデータベースに格納したいのですがどのようにしたらいいでしょうか。

画像ファイルがハードディスクにある場合に　データベースへの格納方法はわかっている状態です。
画像ファイルのテーブルの名前にパスを書いて、フォームでレコードが移動した際に　パスから読み込むというヤツです。

Me.imgJpg.Picture = Me.画像名

というVBAを作成しています。

フロッピーディスク内の画像ファイルをいったんハードディスク内に保存したいのですが、どのように移動させたらいいのでしょうか。
ご指導お願い致します。

回答No.3

PAPA0427

＃２です。追加でお送ります。

先日お送りしたメールでの方法をやってみました。
結果はＯＫでした。

当方では、マシンにＶＢ６やＢＯＣさんのツールが沢山入っていため環境によってはＮＧかもしれません。

もし、動作しない場合はごめんなさい。

回答No.2

PAPA0427

Access2000ではありませんが、ＶＢ６なら以下の様にコーディングすれば可能です。

Dim colFilesystem As Object
Dim DIRName As String
Dim Copy_Source_Name As String
Dim Copy_Dest_Name As String

'ファイル操作用のオブジェクト作成
Set colFilesystem = CreateObject("Scripting.FileSystemObject")

DIRName = "C:\TEST" '作成するフォルダー名
colFilesystem.CreateFolder (DIRName) 'フォルダー作成

Copy_Source_Name = "A:\TEST\*.jpg" 'コピー元ファイル名(*.jpg)
Copy_Dest_Name = "C:\TEST" 'コピー先ディレクトリ
colFilesystem.CopyFile Copy_Source_Name, Copy_Dest_Name 'コピー開始

'ファイルコピーの終了
Set colFilesystem = Nothing

たぶんオブジェクトの宣言でエラーがでなければ、ＶＢＡでも動作可能なはずです。

回答No.1

wolv

1. デスクトップなど適当なところに、フォルダーを作る。
2. My Computerを開く。
3. Aドライブを開く。
4. Ctrl+A として、すべて選択する。
5. 4で選択したファイル（とフォルダー）を1で作成したフォルダーの上にドラッグする。

これで、コピーされるはずです。
1で作ったフォルダーを開いて確認してみてください。

補足

手動で画像ファイルを移動させる事はわかります。
コマンドボタンをクリックさせた時のイベントでデータを移動させたいのです。
VBAでの操作が可能と思いますので　よろしくご指導お願い致します。