For Each fl In fls.... / Microsoft Office

ReSQL.ru

Мобильная версия Контакт Правила FAQ Помощь

Гость

Войти | Регистрация | Профиль | Очистить

Новые сообщения | Избранное

Форумы | Пользователи | Статистика | Мод. лог | Поиск

Цитировать

Написать

Автор*:

Ввести пароль для входа

Тема*:

Сообщение

Данное сообщение тематическое

Сообщение содержит картинки или видео 18+

Автор:

ВНИМАНИЕ! На данном подфоруме действуют строгие правила. Удостоверьтесь, что ваше сообщение соответствует им!

Форум или тема закрыты для гостей. Необходима авторизация!

Загрузить последнюю сохраненную версию

Вложение:

Вставить как галерею

Максимальный размер вложений: 4,0 МБ, аудио/видео: 8,0 МБ. Картинки большего размера ужимаются, если возможно.

Введите код, изображенный на картинке. Если код нечитаемый, кликните картинку, чтобы загрузить другой вариант.

Отправляя сообщение, я выражаю свое согласие с правилами форума и принимаю пользовательское соглашение.

Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр

Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / For Each fl In fls....

4 сообщений из 4, страница 1 из 1

For Each fl In fls....

#33353475

vallot

Гость

Из директории по одному надо выбрать файлы и произвести действие!
Но выбирается почему то всегда только первый файл, помогите разобраться,
что не так сделано???
===============================================

Код: 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.

 Set fol = fsn.GetFolder("C:\Metalix\P\ORDER\" & ord & "\")
 Set fls = fol.Files


For Each fl In fls
strFileName= fl.Name
'------------------------------
PostMessage Hwnd, WM_COMMAND,  57601 ,  0 

'''---------------------------------------------------------
Do
hWndOrd = FindWindow(vbNullString, "Open Part")
hEd = FindWindowEx(hWndOrd,  0 , "ComboBoxEx32", vbNullString)
 Loop While hEd =  0 
SendMessageByString hEd, WM_SETTEXT,  0 &, strFileNamehWndOrd, WM_COMMAND,  1 ,  0 
PostMessage Hwnd, WM_COMMAND,  33245 ,  0 
''''----------------------------------------------------------
Do
hWndOrd = FindWindow(vbNullString, "Export to CAD-CAM file")
 Loop While hEd =  0 
PostMessage hWndOrd, WM_COMMAND,  1 ,  0 
'-----------------------------------------------------
hwndCl = FindWindow(vbNullString, "Export")
PostMessage hwndCl, WM_COMMAND,  6 ,  0 
Next

...

Рейтинг:

0 / 0

31.10.2005, 16:08:13

| Ответить | Цитировать | Написать

For Each fl In fls....

#33353488

vallot

Гость

Первый топик не читать
Из директории по одному надо выбрать файлы и произвести действие!
Но выбирается почему то всегда только первый файл, помогите разобраться,
что не так сделано???
===============================================

Код: 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.

Set fol = fsn.GetFolder("C:\Metalix\P\ORDER\" & ord & "\")
 Set fls = fol.Files


For Each fl In fls
strFileName = fl.Name
'------------------------------
PostMessage Hwnd, WM_COMMAND,  57601 ,  0 

'''---------------------------------------------------------
Do
hWndOrd = FindWindow(vbNullString, "Open Part")
hEd = FindWindowEx(hWndOrd,  0 , "ComboBoxEx32", vbNullString)
 Loop While hEd =  0 
SendMessageByString hEd, WM_SETTEXT,  0 &, strFileName
PostMessage hWndOrd, WM_COMMAND,  1 ,  0 
PostMessage Hwnd, WM_COMMAND,  33245 ,  0 
''''----------------------------------------------------------
Do
hWndOrd = FindWindow(vbNullString, "Export to CAD-CAM file")
 Loop While hEd =  0 
PostMessage hWndOrd, WM_COMMAND,  1 ,  0 
'-----------------------------------------------------
hwndCl = FindWindow(vbNullString, "Export")
PostMessage hwndCl, WM_COMMAND,  6 ,  0 
Next

...

Рейтинг:

0 / 0

31.10.2005, 16:11:35

| Ответить | Цитировать | Написать

For Each fl In fls....

#33354060

vallot

Гость

Причина оказалась не в коде, он написан правильно! Но вопос остается и
я уже задавал его в другом топике насчет паузы в программе,
но там я его решил с помощью "Do... Loop While", а здесь что-то
не помогает .Вообщем мне надо притормозить выполнение команды
WM_COMMAND для того, что бы файл успел переброситься из одной директориив другую. Эта команда закрывает окно "Export to CAD-CAM file".
-------------------------------------------------------

Код: plaintext

1.
2.
3.
4.
5.
6.

Do

hWndOrd = FindWindow(vbNullString, "Export to CAD-CAM file")
 
Loop While hWndOrd =  0 

PostMessage hWndOrd, WM_COMMAND,  1 ,  0

...

Рейтинг:

0 / 0

31.10.2005, 19:24:52

| Ответить | Цитировать | Написать

For Each fl In fls....

#33354111

Processor

Участник

Сообщения: 907

Рейтинг: 0 / 0

vallotнадо притормозить выполнение команды для того, чтобы файл успел переброситься из одной директории в другую.
Используй Function SHFileOperation Lib "shell32.dll".
И никаких притормаживаний.

...

Рейтинг:

0 / 0

31.10.2005, 20:09:31

| Ответить | Цитировать | Написать

4 сообщений из 4, страница 1 из 1

Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / For Each fl In fls....

Читали тему (0):

Читали форум (0):

Пользователи онлайн (0):

start [/forum/topic.php?fid=61&msg=33353488&tid=2185604]:	0ms
get settings:	7ms
get forum list:	21ms
check forum access:	4ms
check topic access:	4ms
track hit:	77ms
get topic data:	12ms
get forum data:	3ms
get page messages:	55ms
get tp. blocked users:	1ms
others:	220ms

total:	404ms

	Необходимые cookie
	Cookie для сбора статистики
	Cookie для маркетинга и рекламы