Code: Select all
LOCAL aFiles AS FileSystemInfo[]
...
TRY
aFiles:= aDirs[i]:GetFileSystemInfos("*."+ cExtension)
CATCH
System.Environment.Exit(0)
END TRY
...
FOR j:=1 UPTO aFiles:Length
...
Initializing aFiles further up would remove the warning, but would i really gain something?