OLEDragDropの値を使いたい

解決

ごんべい 2007-02-25 00:50:03 No: 135475

VB6 XPで使用しております。
初心者の質問で申し訳ありませんが下記のように記述して
Dropで値はちゃんとTextBoxに表示されますが、このファイルパスを
使用したいのですがどうすればいいのか悩んでおります。

Private Sub Form_Load()
Text1.OLEDropMode = 1
End Sub
________________________________________________________________
Private Sub Text1_OLEDragDrop(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, x As Single, Y As Single)
  Dim i%
  List1.Clear
  For i% = 1 To Data.Files.Count
    List1.AddItem Data.Files.Item(i%)
  Next i%
End Sub

aa = Data みたいにaaに代入したいのです。

よろしくお願いします。

通ってみた 2007-02-25 02:45:07 No: 135476

Dim aa As String

略
aa = Data.Files.Item(i)

で問題なく代入できますが・・・
ファイル名を除いたパスだけ欲しいなら、そのなかからファイル名を抜けばよいわけですし

ごんべい 2007-02-25 03:16:37 No: 135477

ありがとうございます。
問題なくできました。

List1.AddItem Data.Files.Item(i%)
aa = Data.Files.Item(i)
Next i%
End Sub

List1.AddItem Data.Files.Item(i%)
Next i%
aa = Data.Files.Item(i)
End Sub

では適合箇所が違うんですね。
大変勉強になりました。ありがとうございます。