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

解決

さくら 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

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