Вопрос № 19741: Доброго времен суток, господа эксперты!
Подскажите, как скопировать несколько файлов одновременно при помощи FileListBox ну и например командной кнопки в какой либо каталог?
Спасибо...
Вопрос № 19741
Доброго времен суток, господа эксперты!
Подскажите, как скопировать несколько файлов одновременно при помощи FileListBox ну и например командной кнопки в какой либо каталог?
Спасибо
Отправлен: 15.04.2005, 06:32
Вопрос задал: aov (статус: Посетитель)
Всего ответов отправлено: 2
Отвечает: Licvidator
Здравствуйте, aov!
Выставляем у него MultiSelect=1 (или 2, как Вам удобно) и дальше пишите цикл от 0 до File1.ListCount-1 и проверяете, если File1.Selected(i) then (например) FileCopy "путь_к_файлам,_загруженным_в_File1" & File1.list(i), "путь_к_конечному_каталогу" & File1.list(i)
удачи!
Ответ отправил: Licvidator (статус: Профессор)
Отправлен: 15.04.2005, 08:07
Отвечает: ale2k
Здравствуйте, aov!
В окне свойств для File1 сделай miltiselect=1
Выделить несколко файлов удерживая Ctrl
Private Sub Command1_Click()
For n = 0 To File1.ListCount - 1
If File1.Selected(n) Then FileCopy File1.Path & "" & File1.List(n), "d:" & File1.List(n)
Next n
End Sub
Ответ отправил: ale2k (статус: 4-ый класс)
Отправлен: 15.04.2005, 10:27