VBNet - Форум - ProgressBar + FileCopy

Вопрос: ProgressBar + FileCopy Добавлено: 30.06.02 17:11

Автор вопроса: Новичек

Народ, подскажите как привязать ProgressBar к такой операции, как копирование файлов?
Ответить

Ответы Всего ответов: 5

Номер ответа: 1
Автор ответа:

paul_sn

Вопросов: 16
Ответов: 164

Web-сайт: sergeyev.zzn.com
Профиль | Цитата | #1

Добавлено: 30.06.02 18:07

Пиши на мыло - пришлю пример, на словах сложно объяснить.

Павел

Ответить

Номер ответа: 2
Автор ответа:

CyRax

Разработчик Offline Client

ICQ: 204447456

Вопросов: 180
Ответов: 4229

Web-сайт: basicproduction.nm.ru
Профиль | Цитата | #2

Добавлено: 01.07.02 03:28

Я не понял.

Ты с линейкой состояния не умеешь работать или файлы копировать ?

Ответить

Номер ответа: 3
Автор ответа:

User Unknown

Вечный Юзер!

ICQ: uu@jabber.cz

Вопросов: 120
Ответов: 3302

Профиль | Цитата | #3

Добавлено: 03.07.02 09:50

Итак, напишу как сделать такую АРХИНУЖНУЮ вещь, как показ прогресса для перемещение/копирование файлов. Не буду изобретать велосипед и клеить в проект добавочные всякие АктивИксы. Мы пойдем другим путём. Есть ОС - есть стандартные диалоги. Заметим, уже сделанные и умные. Умные - отслеживают и расчитывают все, что можно.

Печатаю со своего старого листинга, в смысле руками без Васика. Господа, ищите орфо и синтаксические ошибки.

Все константы и функцию SHFileOperation нужно найти и определить в проекте с помощью АПИ Вьювера (ну лень мне каждый раз переключать раскладку клавиатуры)). Вроде как и все...

:::::::::::::::::КОД::::::::::::::::::::::::::

Dim udtSHFileOPStruct As SHFILEOPSTRUCT, ret As long

With udtSHFileOPStruct

.hwnd = Form1.hwnd

.wFunc = FO_COPY ' Если это заменить на FO_MOVE (FileOperationMOVE) будет диалог про перемещение файлов.

.pFrom = "C:\file.ext" & vbNullChar & vbNullChar ' Откуда

.pTo = "D:\file.ext" & vbNullChar & vbNullChar 'Куда

.fFlags = FOF_SIMPLEPROGRESS

End With

ret = SHFileOperation(udtSHFileOPStruct)

If ret = 0 Then Msgbox "Все прошло успешно" 'Местный ERRORLEVEL По желанию можно добавить "Else Msgbox "Ни черта не вышло"" И, для маньяков специально, можно отследить код ошибки и выдать "осмысленное" сообщение об ошибке.

:::::::::::::::КОНЕЦ КОДА:::::::::::::::::::

P.S. Админам - Можете добавить в "Библиотеку кодов".

Ответить

Номер ответа: 4 Автор ответа: Morpheus Вопросов: 224 Ответов: 3777	Web-сайт: xury.zx6.ru Профиль \| Цитата \| #4	Добавлено: 12.04.06 15:21
	8\|-DXX )))))) :::::::::::::::КОНЕЦ КОДА::::::::::::::::::: да... тяжело раньше было Ответить

Номер ответа: 5 Автор ответа: LamerOnLine ICQ: 334781088 Вопросов: 108 Ответов: 2822	Профиль \| Цитата \| #5	Добавлено: 12.04.06 15:30
	Morpheus, че эт ты решил археологией заняться? ЗЫ Зато, помнится, раньше смайлы были Ответить

Страница: 1 |