Visual Basic, .NET, ASP, VBScript
 

   
   
     

Форум - Общий форум

Страница: 1 |

 

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

Поиск по форуму



© Copyright 2002-2011 VBNet.RU | Пишите нам