ドラッグ&ドロップしたファイルのフルパス取得

解決

たま 2003-05-10 00:01:41 No: 77885

たまです。
VB6でOLEコンテナコントロールに、エクスプローラから
ファイルをドラッグ&ドロップしたタイミングで
ターゲットファイル(Excel/Word/pdfファイル・・・)の
フルパスを取得し、OLEオブジェクトに埋め込みたいのですが、
どなたか回答の程宜しくお願いします。

nanashi 2003-05-10 00:14:17 No: 77886

普通にData.Files(0)とかに入ってるハズですが。

たま 2003-05-10 00:52:14 No: 77887

早速の回答ありがとうございます！
今回VBは初めての為初歩的な質問ですみませんでした。
一応以下のように最初確認はしたのですが、
同じようにOLEコントロールのイベントからDataObjectのFilesを
取得するにはどのタイミングでData.Files(0)に設定するのか・・・
本当にすみませんが改めて宜しくお願い致します。

Private Sub lblFile_OLEDragDrop(Data As DataObject, ・・・)

  Dim sFilename As String

  sFilename = ""
  lblFile.Caption = ""

  lblFile.Caption = Data.Files(1)

  sFilename = trim(lblFile.Caption)
  If "" = Dir(sFilename, vbNormal) Then
  Else
    OLE1.CreateEmbed sFilename
  End If
End Sub

nanashi 2003-05-10 01:24:30 No: 77888

勘違いしていました。
OLEコンテナコントロールは使ったこと無いので分かりません。
というより、実は何に使うものなのかも知りませんでした（＾＾；

たま 2003-05-13 00:27:08 No: 77889

nanashiさんありがとうございました。
引き続き、どなたかご存知の方は宜しくお願い致します。
OLEコンテナからは無理なのでしょうか。

ＶＢレスキュ−（花ちゃん） URL 2003-05-13 07:17:34 No: 77890

ひょとして下記コードが抜けているとか。

Private Sub Form_Load()
lblFile.OLEDropMode = vbOLEDropManual
End Sub

上記と違うなら、私には意味が理解できません。

たま 2003-05-15 04:52:25 No: 77891

花さんありがとうございます。
lblFile.OLEDropMode = vbOLEDropManual
は定義済みでした。
別の手段でファイル名を取得するよう変更となった為、この件は
これで終わりにします。皆様ありがとうございました。