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)
=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)
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.
If it's not broken, fix it until it is.
My Blog