Hello,
I am trying to perform a recursive file search, and I have gotten to the point where I am listing all of the directories. However, I keep getting a "Subscript out of defined range" error, and I can't figure out why. Can somebody take a look and give me some advice? Thanks!

CREATE CURSOR FILELIST ;
(filedir c(254), filename c(254), filedate D)


ReadFolder("FILELIST", "C:\", "*.*")

*******************************************************************
PROCEDURE ReadFolder
LPARAMETERS tcCursorName, tcPath, tcPattern
LOCAL lcCursorName, lcPath, lcPattern

lcCursorName = UPPER(tcCursorName)
lcPath = UPPER(tcPath)
lcPattern = UPPER(tcPattern)

lnCount = ADIR(DIRS,lcPath + "*.*" ,"D")

FOR x = 1 TO lnCount
**Error occuring on next line
	IF UPPER(SUBSTR(DIRS(x,5),5,1)) = "D" AND (ALLTRIM(DIRS(x,1)) <> "..") AND (ALLTRIM(DIRS(x,1)) <> ".")

   		ReadFolder(lcCursorName, lcPath + DIRS(x,1) + "\", lcPattern)
   	
   	ENDIF
   	
ENDFOR

RETURN