ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Каким образом прогрессбар ???
14 сообщений из 14, страница 1 из 1
Каким образом прогрессбар ???
    #34114259
mazday
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
mazday
Участник
Привет всем !!!


подскажите пожалуйста каким образом при копировании можно вставить прогрессбар в эту конструкцию, чтоб пользователь мог видеть что ход процесса выполняется а не стоит на месте или не весит вообще ??

lcFolder2Copy ="c:\test" откуда
lcWhere2Copy = "c:\test1" куда
llOverWrite = .T.
loFSO = CREATEOBJECT('Scripting.FileSystemObject')
loFSO.CopyFolder(lcFolder2Copy,lcWhere2Copy,llOverWrite)
RELEASE loFSO
...
Рейтинг: 0 / 0
09.11.2006, 07:13
| Ответить | Цитировать | Написать  
Каким образом прогрессбар ???
    #34114266
piva
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
piva
Участник
Поиск - он рулез Шмяк
...
Рейтинг: 0 / 0
09.11.2006, 07:28
| Ответить | Цитировать | Написать  
Каким образом прогрессбар ???
    #34114272
Фотография Владимир СА
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Владимир СА
Участник
mazday...подскажите пожалуйста каким образом при копировании можно вставить прогрессбар в эту конструкцию, чтоб пользователь мог видеть что ход процесса выполняется а не стоит на месте или не весит вообще ??

lcFolder2Copy ="c:\test" откуда
lcWhere2Copy = "c:\test1" куда
llOverWrite = .T.
loFSO = CREATEOBJECT('Scripting.FileSystemObject')
loFSO.CopyFolder(lcFolder2Copy,lcWhere2Copy,llOverWrite)
RELEASE loFSO
А почему ты выбрал этот способ копирования? М.б. использовать команду
Код: plaintext
COPY FILE FileName1 TO FileName2
Ну а если ты хочешь использовать ProgressBar, то тебе надо:
1. открывать файл на низком уровне FOPEN()
2. узнать его длину в байтах или в строках
3. и побайтно или построчно копировать в другой файл, который ты открыл на низком уровне FCREATE(), и тут используй ProgressBar.
...
Рейтинг: 0 / 0
09.11.2006, 07:34
| Ответить | Цитировать | Написать  
Каким образом прогрессбар ???
    #34114300
mazday
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
mazday
Участник
мне б с практической стороны с кодом б ребята а мож поможите
...
Рейтинг: 0 / 0
09.11.2006, 08:14
| Ответить | Цитировать | Написать  
Каким образом прогрессбар ???
    #34114613
mazday
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
mazday
Участник
ребята помогите горю просто

ссылка от Piva не катит мне нужно полностью копирование каталога с подкаталогами т.е. полность структуру каталога
...
Рейтинг: 0 / 0
09.11.2006, 10:19
| Ответить | Цитировать | Написать  
Каким образом прогрессбар ???
    #34114650
Фотография Shiva Razrushitel
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shiva Razrushitel
Участник
apiSHFileOperation - сама показывает прогресс
----------------------------------------------------------
но супер-самурая без бомбы ххх возьмеш, асобено пока я еее свой макинтош © Z.May
...
Рейтинг: 0 / 0
09.11.2006, 10:26
| Ответить | Цитировать | Написать  
Каким образом прогрессбар ???
    #34115131
mazday
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
mazday
Участник
а можно подробней о apiSHFileOperation
...
Рейтинг: 0 / 0
09.11.2006, 11:44
| Ответить | Цитировать | Написать  
Каким образом прогрессбар ???
    #34115184
Фотография Shiva Razrushitel
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shiva Razrushitel
Участник
ну вообщето гугль
...
Рейтинг: 0 / 0
09.11.2006, 11:51
| Ответить | Цитировать | Написать  
Каким образом прогрессбар ???
    #34115191
AleksMed
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
AleksMed
Участник
mazdayа можно подробней о apiSHFileOperation
Как раз в ссылке от Pivы она и фигурирует
...
Рейтинг: 0 / 0
09.11.2006, 11:52
| Ответить | Цитировать | Написать  
Каким образом прогрессбар ???
    #34117894
mazday
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
mazday
Участник
блин ну не могу я не понимаю блин,

ссылка от Piva, дает возможность только копировать файлы, но не сами подкаталоги , т.е. есть каталог в нем файлы тогда он копирует, а если в этом каталоге лежит подкаталог с файлами то хрен

т.е. мне нужно примерно так , скопировать каталог с файлами и если в нем есть подкаталог с другими файлами во как это все равно что скопировать папку виндовс со всеми структурами во как
...
Рейтинг: 0 / 0
10.11.2006, 05:16
| Ответить | Цитировать | Написать  
Каким образом прогрессбар ???
    #34117897
Фотография ILL HEAD
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ILL HEAD
Участник
у меня есть пример использования apiSHFileOperation - копирование файла или каталога (с подкаталогами), но он написан на VB
если вам это поможет я могу его сюда запостить (небольшой код - 225 строк, запускать либо из VBA (из MS Access модуль) либо из VB6)
только что проверил - работает на ура
...
Рейтинг: 0 / 0
10.11.2006, 05:34
| Ответить | Цитировать | Написать  
Каким образом прогрессбар ???
    #34117899
Фотография ILL HEAD
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ILL HEAD
Участник
144 строки %) (убрал лишнее)
...
Рейтинг: 0 / 0
10.11.2006, 05:40
| Ответить | Цитировать | Написать  
Каким образом прогрессбар ???
    #34117910
Фотография ILL HEAD
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ILL HEAD
Участник
посмотрел пример PIVA
строчка
Код: plaintext
lnFlags=FOF_NOCONFIRMATION+FOF_FILESONLY+FOF_NOCOPYSECURITYATTRIBS
нужно учесть что: FOF_FILESONLY - Performs the operation only on files if a wildcard flename (*.*) is specified.
тоесть FOF_FILESONLY - может ограничивать копирование вложенных подкаталогов если вы указали копировать D:\Your_Folder\*.*
либо уберите эту константу из формирования lnFlags либо укажите источник без *.*
...
Рейтинг: 0 / 0
10.11.2006, 06:18
| Ответить | Цитировать | Написать  
Каким образом прогрессбар ???
    #34117954
foxwizard
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
foxwizard
Участник
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
LPARAMETERS tSource,tTarget
thisform.label1.Caption='Копирую файл '+tTarget
_screen.Caption=thisform.label1.Caption
*SET STEP ON
lnBufferSize= 1024 
lnLocal=Fopen(tSource)
lnFileLength=FSEEK(lnLocal, 0 , 2 )
FSEEK(lnLocal, 0 , 0 )
mB=FCREATE(tTarget)
*mB=FCREATE(tTarget)

lnUploaded= 0 

  * While there is something to upload
  DO WHILE lnUploaded<lnFileLength
    lcBuffer=FREAD(lnLocal,lnBufferSize)
    lnWritten= 0 
    FWRITE(mB,lcBuffer)
    lnUploaded=lnUploaded+LEN(lcBuffer)
    * Makes use of the Thermo object to show the progress
*	WAIT WINDOW STR(lnUploaded* 100 /lnFileLength) nowait
	thisform.therm1.procent=lnUploaded* 100 /lnFileLength
	thisform.label1.Caption='Копирую файл '+tSource+STR(thisform.therm1.procent)+' %выполнено'
	_screen.Caption=thisform.label1.Caption
*    Thermo(,,lnUploaded* 100 /lnFileLength)

  ENDDO
  thisform.therm1.procent= 0 
SELECT mylog  
REPLACE ok WITH .t.

FCLOSE(lnLocal)
FCLOSE(mB)
thisform.label1.Caption='Готово'
...
Рейтинг: 0 / 0
10.11.2006, 07:22
| Ответить | Цитировать | Написать  
14 сообщений из 14, страница 1 из 1
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Каким образом прогрессбар ???
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=41&msg=34117897&tid=1590421]:
 0ms
get settings:
 8ms
get forum list:
 14ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 156ms
get topic data:
 8ms
get forum data:
 2ms
get page messages:
 47ms
get tp. blocked users:
 1ms
others: 246ms
total:  488ms
созд. / загр.: 488ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]