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

解決

さくら  2004-08-08 23:54:19  No: 115469  IP: [192.*.*.*]

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

編集    削除
ともみ  2004-08-09 08:04:14  No: 115470  IP: [192.*.*.*]

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  IP: [192.*.*.*]

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

編集    削除