powered by simpleCommunicator - 2.0.60     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Замедленная работа функции FILE()
6 сообщений из 6, страница 1 из 1
Замедленная работа функции FILE()
    #32504006
Gamal Paperot
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
При переходе на VFP7 и VFP8 замедлилось выполнение приложений.
Причиной оказалось непонятное замедление работы функции FILE() при отрицательном результате поиска,
то есть, если поиск удачен, то задержки нет,
если НЕ удачен, то задержка весьма значительна (секунды).
Может это только у меня?
...
Рейтинг: 0 / 0
Замедленная работа функции FILE()
    #32504022
ноль
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
А попробуй явно указать место гле искать с путем, есть подозрение что
SET("PATH") у тебя очень длинный. Что ты от нее в этом случае хочешь, она должна все просмотреть пока не найдет.
...
Рейтинг: 0 / 0
Замедленная работа функции FILE()
    #32504047
Gamal Paperot
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Место указано весьма конкретно: полный путь с именем того файла, что ищется.
Или вы нaмекаете на установку SET PATH?? Она есть.
...
Рейтинг: 0 / 0
Замедленная работа функции FILE()
    #32504052
ноль
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Ну и посмотри что там лежит
? SET("PATH")
...
Рейтинг: 0 / 0
Замедленная работа функции FILE()
    #32504116
Фотография NNN
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
OS? FAT/NTFS?
Win2k+NTFS (служба индексации отключена) - без проблем

Попробуй как будет работать через API
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
?IsFileExist('c:\autoexec.bat')
?IsFileExist('c:\autoexec.bbb')

FUNCTION IsFileExist
LPARAMETERS tcFileName as String 
LOCAL lcFileData as String 
LOCAL hFile as Integer 
LOCAL llReturn as Boolean 
DECLARE INTEGER FindClose IN kernel32 INTEGER hFindFile
DECLARE INTEGER FindFirstFile IN kernel32;
STRING lpFileName, STRING @lpFindFileData
lcFileData=SPACE( 318 )
hFile=FindFirstFile(tcFileName, @lcFileData)
IF hFile=- 1 
	llReturn=.F.
ELSE
	=FindClose(hFile)
	llReturn=.T.
ENDIF 
CLEAR DLLS 
RETURN llReturn
ENDFUNC   
...
Рейтинг: 0 / 0
Замедленная работа функции FILE()
    #32504443
Gamal Paperot
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Благодарю всех за участие.
Теперь прога бегает как молодая,
правда за счет усложнения алгоритма, но чем то надо поступаться
...
Рейтинг: 0 / 0
6 сообщений из 6, страница 1 из 1
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Замедленная работа функции FILE()
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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