エクスプローラーからファイルを移動・コピーするには？ (ID:106740)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 ＨＰみました。へー、福岡なんですか？私も、２年前まで３年間ほど 平尾に住んでいました。今まで住んだ土地の中で、一番好きなところです。 ヨイショじゃなくて。（大濠公園のベンチでゆっくりするのが好きでした） ＶＢの掲示板でこんなこと書くのは叱られてしまうので本題に戻りますね。 この前の質問では、説明不足でしたので、補足させて下さい。 まず、DirListBoxとFileListBoxを貼り付け、FileListBoxから ファイルを選択し、（例えば）デスクトップにドラッグすると、そこに ファイルのコピー・移動ができるところまではできています。 ただ、その逆ができていないのです。つまり、（例えば）デスクトップから FileListBoxにドラッグすると、ファイルのコピー・移動させたいのです。 OKUさんのパスの取得を試したのですが、パスが分かってもＶＢ初心者には その先の処理が分かりません。とほほ…。:^^: どうか、ご指導下さりますよう、お願いします。 'エクスプローラーにドラッグ＆ドロップ----------------------------- Private Const vbDropEffectLink = 4 Private Sub File1_MouseMove(Button As Integer, Shift As Integer _ , X As Single, Y AsSingle) If Button = vbLeftButton Then File1.OLEDrag File1.Refresh End If End Sub Private Sub File1_OLEStartDrag(Data As DataObject _ , AllowedEffects As Long) Dim i As Integer Dim objFile As String Data.Files.Clear For i = 0 To File1.ListCount - 1 If File1.Selected(i) = True Then If Right(Dir1, 1) = "\" Then objFile = Dir1 & File1.List(i) Else objFile = Dir1 & "\" & File1.List(i) End If If Dir(objFile) <> vbNullString Then 'クリップボードに Files型のデータを作成 Data.SetData , vbCFFiles Data.Files.Add objFile End If End If Next AllowedEffects = vbDropEffectCopy Or vbDropEffectMove _ Or vbDropEffectLink End Sub