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

解決

たま 2003-05-09 15:01:41 No: 77885 IP: [192.*.*.*]

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

編集削除

nanashi 2003-05-09 15:14:17 No: 77886 IP: [192.*.*.*]

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

編集削除

たま 2003-05-09 15:52:14 No: 77887 IP: [192.*.*.*]

早速の回答ありがとうございます！
今回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-09 16:24:30 No: 77888 IP: [192.*.*.*]

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

編集削除

たま 2003-05-12 15:27:08 No: 77889 IP: [192.*.*.*]

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

編集削除

ＶＢレスキュ−（花ちゃん） URL 2003-05-12 22:17:34 No: 77890 IP: [192.*.*.*]

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

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

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

編集削除

たま 2003-05-14 19:52:25 No: 77891 IP: [192.*.*.*]

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

編集削除