Access2000でこんなことできますか？

質問

Access2000でこんなことできますか？

Accessのフォーム上にテキストボックスＡとテキストボックスＢがあるとします。
テキストボックスＡには重複のないユニークなＩＤ番号のようなものが入っています。
テキストボックスＢはハイパーリンク型で、ファイル名をフルパスで保存します。

マイドキュメントなどに保存されているgifをこのフォームにドラッグアンドドロップすることにより以下の事をやりたい。

(1)ドロップしたファイル名を「テキストボックスＡのＩＤ番号.gif」に変更したい。
(2)テキストボックスＢに(1)でリネームした新しいファイル名（フルパス）を格納したい。
(3)ドロップしたファイルのコピーを、他の任意のディレクトリに作成したい。

と、こんなことをやりたいのですが、可能でしょうか？
到底むりのような気がするのですが。。。

もし可能であれば、ぜひやり方を教えてください。よろしくおねがいします。

回答No.1

maruru01 · ベストアンサー

こんにちは。maruru01です。

まず、ドラッグ＆ドロップはAccessでは出来ません（というか、私は方法を知りません）。
従って、ファイルを選択する方法として、コモンダイアログコントロールを使ってはどうですか。
コモンダイアログコントロールはWindowsアプリケーション（Accessも）でよく見かける[ファイルを開く]ダイアログを出します。
選択したファイルのフルパス名も、ファイル名のみも取得出来ます。
(1)取得したフルパスからパスのみとファイル名のみを取り出して、新しいファイル名を作成して（パスのみ＋テキストボックスAのID番号.gif）、
Name (旧名フルパス) As (新名フルパス)
でファイル名を変更します。
(2)テキストボックスB.Text = (新名)ですね。
(3)以下のとおり。
FileCopy (新名フルパス), (任意のディレクトリ)＋(新名ファイル名のみ)
移動（リネーム）のName、ファイルコピーのFileCopy関数の詳細はヘルプを参照して下さい。
では。

お礼

回答ありがとうございます。
さっそく試してみようとしたのですが、
「ＯＬＥサーバが登録されていません...」というメッセージが出て悩んでいました。
どうやらコモンダイアログコントロールはデベロッパーでないとつかえないような。。。
私がしようしているのはpremiumなので、どうしたものかと考えています。
とりあえず、貴重なご意見ありがとうございました。