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

@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

Как то так.

Новые блоги и статьи Все статьи Все блоги /
Доктрина интенционального знания - Доктрина для портала "Срез". Hrethgir 25.07.2026 Может найдётся кто захочет оценить доктрину. . . Написания правил участия для меня роскошь, требующая лимита времени, поэтому все сообщения не прошедшие модерацию будут видны только участникам портала,. . .	сукцессия 44. Решил подать на припринт в межународные сервисы препринтов. Но нужно одобрение от ученых anaschu 25.07.2026 Английский вариант. Пока кто то не одобрит мою личность, мне не получиться это опубликовать на препринте. Но заявку на публикацию статьи я сегодня подам.	сукцессия 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`). . .

Опции темы