Отправляет email-рассылки с помощью сервиса Sendsay
  Все выпуски  

RusFAQ.ru: Программирование на Basic / VBA


Информационный Канал Subscribe.Ru

РАССЫЛКИ ПОРТАЛА RUSFAQ.RU

/ КОМПЬЮТЕРЫ И ПО / Языки программирования / Basic/VBA

Выпуск № 48
от 20.04.2005, 06:40

Администратор:Калашников О.А.
В номере:Вопросов: 1, Ответов: 2


Вопрос № 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


Отправить вопрос экспертам этой рассылки

Приложение (если необходимо):

* Код программы, выдержки из закона и т.п. дополнение к вопросу.
Эта информация будет отображена в аналогичном окне как есть.

Обратите внимание!
Вопрос будет отправлен всем экспертам данной рассылки!

Для того, чтобы отправить вопрос выбранным экспертам этой рассылки или
экспертам другой рассылки портала RusFAQ.ru, зайдите непосредственно на RusFAQ.ru.


Форма НЕ работает в почтовых программах The BAT! и MS Outlook (кроме версии 2003+)!
Чтобы отправить вопрос, откройте это письмо в браузере или зайдите на сайт RusFAQ.ru.


© 2001-2005, RusFAQ.ru, Россия, Москва. Все права защищены.
Идея, дизайн, программирование, авторское право: Калашников О.А.


http://subscribe.ru/
http://subscribe.ru/feedback/
Подписан адрес:
Код этой рассылки: comp.soft.prog.basicvba
Отписаться

В избранное