Ins't *e4*.jpg mean all files with .jpg extension?
Cetin
>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.
