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

名前

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

本文 ファイルのコピー＆移動も分からなかったんですね。 >ファイルリストボックスからエクスプローラーにドラッグ＆ドロップして >移動・コピーは、なんとかできたのですが。 と書いてあったので、ファイルのコピー＆移動は分かってると思いました。 さて、ファイルのコピー＆移動するにはいろいろやり方があります。 １ VBの機能を使う ２ ファイルシステムオブジェクトを使う ３ APIを使う 自分が知っているのは、こんなものです。 コーティングを以下に書きます。 １ VBの機能を使う Private Sub File1_OLEDragDrop(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single) Dim objFile As Variant For Each objFile In Data.Files 'コピーなら FileCopy objFile, File1.Path & "\" & ファイル名 '移動なら Name objFile As File1.Path & "\" & ファイル名 Next End Sub ２ ファイルシステムオブジェクトを使う Dim colFilesystem As Object Dim strSrcName As String Dim strDestName As String Set colFilesystem = CreateObject("Scripting.FileSystemObject") 'コピーなら colFilesystem.CopyFile objFile, File1.Path & "\" & ファイル名 '移動なら colFilesystem.MoveFile objFile, File1.Path & "\" & ファイル名 ' オブジェクトを解放 Set colFilesystem = Nothing APIでのやり方は、ここのＡＰＩ 技術関連を参考にしてください DirListBoxやFileListBoxは、使ったこと無いので 使い方間違ってたらすいません。 ヤマカサがあるけん博多タイ！