Did you not see message #
1173916 ?
>I modified the test program slightly to get lcMask by Inputbox and for E3 I have 11 wrong files:
>
>W-ER4026D.JPG
>W-ER4036D.JPG
>W-ER4056D.JPG
>W-ER4066D.JPG
>W-TB2211D.JPG
>W-TB1022D.JPG
>W-NK646CIT.JPG
>W-TB2209D.JPG
>W-TB2408D.JPG
>W-TB2289A.JPG
>W-TB2448D.JPG
>
>I think I can stop testing for now.
>
>What do you think should I do to fix the situation?
>
>One of the ideas is to create a list of all jpg and tif files in the directory at night and use this list from the application. We need to have a directory monitor for this approach since new files may be added during the day... It's achievable in VFP9 and documented in solution/samples...
>
>
>>Hi everybody,
>>
>>I decided to start a new thread, which is a continuation of "Invalid subscript reference" thread.
>>
>>I re-coded my program a minute ago to use sys(2000) instead of ADIR. I have a directory with more than 13K jpg files and I'm trying to search for *e4*.jpg. ADIR, Filer and SYS(2000) all return 112 files where 9 of them do not have e4 as part of the name.
>>
>>Here are the wrong files returned:
>>
>>K-NK1648PS.JPG
>>W-PT9144OX.JPG
>>W-ER3953D.JPG
>>W-ER3963D.JPG
>>W-TB2302D.JPG
>>W-TB2123D.JPG
>>W-TB2332D.JPG
>>W-TB1207D.JPG
>>W-PT9216D.JPG
>>
>>and here is the test program
>>
>> #define crlf CHR(13) + CHR(10)
>>*!* oMyFiler = CREATEOBJECT('Filer.FileUtil')
>>*!* oMyFiler.SearchPath = "t:\jpg"
>>*!* oMyFiler.FileExpression = '*e4*.jpg'
>>*!* oMyFiler.Find(0)
>>*!* =MESSAGEBOX(oMyFiler.Files.Count)
>>*!* _cliptext = ""
>>*!* FOR EACH loFile IN oMyFiler.Files
>>*!* _cliptext = _cliptext + loFile.Name + CRLF
>>*!* NEXT
>>=MESSAGEBOX(DIRECTORY("t:\jpg"))
>>ltTime = DATETIME()
>>_cliptext = ""
>>CREATE CURSOR crsTest (FieldName C(50))
>>lcFileName = SYS(2000,[t:\jpg\*e4*.jpg])
>>DO WHILE NOT EMPTY(lcFileName)
>>*!* IF LIKE(UPPER(myStemPart), UPPER(JUSTSTEM(lcFileName))) OR;
>>*!* LIKE(UPPER(myExtPart), UPPER(JUSTEXT(lcFileName)))
>>*!*
>>*!* ENDIF
>> WAIT WINDOW NOWAIT m.lcFileName
>> IF NOT "E4" $ UPPER(m.lcFileName)
>> _cliptext = _cliptext + m.lcFileName + CRLF
>> INSERT INTO crsTest VALUES (m.lcFileName)
>> endif
>> lcFileName = SYS(2000,[t:\jpg\*e4*.jpg],1)
>>ENDDO
>>=MESSAGEBOX(DATETIME() - m.ltTime)
>>=MESSAGEBOX(RECCOUNT('crsTest'))
>>
>>I'm accessing this computer through LogMeIn and the computer is connected to terminal server where the files reside. The connection with the server is not very good from our place.