ファイルリストボックスで複数選択したファイルを別なフォルダーへコピーするには?

解決


さくら  2004-08-08 23:54:19  No: 115469

あるフォルダー内のファイルをFileListBoxに表示させ、複数選択した後で、これらの複数選択したファイルをまとめて、違うフォルダーへコピーするにはどのようにすればよいでしょうか?
ご教授頂ければ幸いです。
使用環境VBA6.0です。


ともみ  2004-08-09 08:04:14  No: 115470

SelectedプロパティにはListに対応するファイルが選択されているかどうかが
Booleanで入っています。
ListCount分だけループしてSelectedが真のファイルをコピーすれば良いでしょう。
下記のような処理になるでしょう
For i=0 to File1.ListCount-1
 If File1.Selected(i) Then
   'コピー処理
 End If
Next

また、ドラッグ&ドロップでコピーするには、OleDragModeプロパティを自動に設定し
MultiSelectプロパティを標準または拡張に設定します。
あとはターゲットとなるフォルダを開いてドラッグ&ドロップでコピーできます。


さくら  2004-08-13 06:34:49  No: 115471

ともみさんありがとうございました。
解決しました。


※返信する前に利用規約をご確認ください。

※Google reCAPTCHA認証からCloudflare Turnstile認証へ変更しました。






  このエントリーをはてなブックマークに追加