Как скопировать выбранный файл в указанную папку с отображением хода копирования

@Lander13 · Регистрация: 03.10.2012

Студворк — интернет-сервис помощи студентам

Всем привет!!! нужен HELP!
задача состоит вот в чём:
на форме:
3 кнопки
2 текстовых поля
CommonDialog
ProgressBar1
Timer
и label
через элемент управления CommonDialog при нажатии на кнопку выводим окошко выбрать файл.
ну с этим я справился. вот код:

Visual Basic
1
2
3
4
5
6
7
 On Error Resume Next 
 CD.DialogTitle = "Выбрать файл"
 CD.Filter = "WinRar|*.rar|7-Zip|*.7z|Все файлы|*.*"
 CD.FileName = ""
 CD.ShowOpen
 If CD.FileName = "" Then Exit Sub
 Open CD.FileName For Binary As #1

теперь мне нужно поместить путь к этому файлу в текстовое поле. как-то запомнить выбранный файл.
После при нажатии на другую кнопку мне нужно выбрать путь к папке (так же запихав этот путь в другое текстовое поле) и при нажатии на кнопку "Копировать" скопировать выбранный файл в ту папку, которую мы выбрали.

копирование должно отображаться в ProgressBar1 и в label выводиться сколько времени прошло с момента начала копирования, сколько осталось и при возможности сколько % скопировалось. (вот это мне кажется самое сложное)

как это осуществить? подскажите пожалуйста?..может кто кодом поможет? а? очень нужно!!
заранее спасибо!

@Апострофф · 04.10.2012, 18:19

Сообщение от Lander13

а как можно сделать проверку на то, скопировался ли файл?

Visual Basic
1
2
3
4
5
if Picture1.Visible then
  msgbox "Файл не скопировался."
else
  msgbox "Файл скопировался."
endif

Как то так.

Новые блоги и статьи Все статьи Все блоги /
сукцессия 43. Вторая научная статья за месяц- прайминг и гатгил anaschu 25.07.2026 две стороны одной монеты	Более приземисто - Эстафету хвоста в .cdl (деревья эстафеты в сад). Hrethgir 24.07.2026 В будущем, после написания блока инверсии обхода дерева (эстафеты хвоста), я планирую вернуться к нашему прошлому разговору о том, обладают ли знания целеполаганием. Тогда я пришел к выводу, что. . .	Вот представьте что вам дали бессмертие. kumehtar 24.07.2026 Вот представьте что вам дали бессмертие, ничего более не меняя. Вообще ничего, только бессмертие в нынешнем виде. Рады были бы? Что бы вы тут делали всё это время? Никакой пенсии. Никакого нового. . .	сукцессия 41 anaschu 24.07.2026 Численная верификация бифуркации в агентной модели лесной сукцессии: от одного параметра к ансамблю Автор: пользователь @Shumilov_AS \| Раздел: Прикладная математика / Численные методы Кратко. . .
сукцессия 40. Ансамблевая кластерная параметризаци, часть 1. anaschu 24.07.2026 Пр# Сопровождение научной статьи ИИ-ассистентом: подготовка публикации и калибровка агентно-ориентированной модели сукцессии микоризных систем Полевые заметки о двухнедельной совместной работе. . .	Теория всего 12. ВГК на планете в стратегической игре "терра" anaschu 21.07.2026 ### Главные семантические изменения и дешифровка новой физики 1. `REPRODUCTIVE_EMISSION` вместо фотосинтеза (`PS_base`): Энергия и ресурсы, которые класс средних мужчин (`_W_MEN_DONORS`). . .	Публикация отклонённая на хабре. Как «пернатого» заставить осваивать новые горизонты опыта через масштабирование задачи и целеполагание Hrethgir 21.07.2026 https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=11948&stc=1&d=1784657928 Привет Хабр. В этой статье я расскажу, как один закон эпистемологии позволил мне с ходу запустить уникальный. . .	Теория всего 11. Основные параметры anaschu 21.07.2026 Дешифровка тензорного ядра Soil Chemistry 2. 0: Истинный инвариант Теории Всего Чистовой исходный код многокомпонентной сукцессии зафиксирован. Модель оперирует единым вектором состояния. . .