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

名前

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

本文 OKUさん、またまた返事ありがとうございます。 ご指導の元、ＡＰＩを使ってファイルの移動・コピーが 実現しました。ふー、なんとまー疲れました。ははっ。 でも、少し欲が出てしまい、なん点か教えていただきたいのですが 本当に何度もすみません。m+ +;m １．FileListBox上で「Ctrl」を押してドロップしたときにコピーさせたい。 ２．また「Ctrl」を押してる時に矢印と右下に「＋」プラスが付いたい マウスポインターにしたい。 ３．ドロップされた時に、フォルダとファイルを識別した。 いっぱいですみません。でも、ほんと分からなくて…。 '------------------------------------------------ API宣言「SHFileOperation」 Dim SHEF As SHFILEOPSTRUCT If Right(Dir1, 1) = "\" Then フォルダ = Dir1 Else フォルダ = Dir1 & "\" End If For Each objFile In Data.Files ファイル名 = Dir(objFile) With SHEF .hWnd = Me.hWnd .wFunc = FO_MOVE '---------------Ａ .pFrom = objFile .pTo = フォルダ & ファイル名 .fFlags = FOF_ALLOWUNDO End With Ret = SHFileOperation(SHEF) Next File1.Refresh 「今年のどんたくは、連休のいつったい」ですか？ ちょっと表現ちがうかな ^_^;