<cfset thisDir = "C:\Temp">
<cfset files = ArrayNew(1)>
<cfdirectory action="list" directory="#thisDir#" name="qryFileList" filter="*.cfml">
<cfloop query="qryFileList">
<cfif NOT ListFind(".,..",qryFileList.Name)>
<cffile action="read" file="#thisDir#\#qryFileList.Name#" variable="thisFile">
<cfscript>
i = ArrayLen(files)+1;
files[i] = StructNew();
files[i].name = qryFileList.Name;
files[i].title = "";
files[i].description = "";
if(REFindNoCase("<title>.*</title>", thisFile))
{
files[i].title = REReplaceNoCase(thisFile, "^.*<title>([^>]*)</title>.*$", "\1");
}
if(REFindNoCase("<meta name=""description"" content="".*""", thisFile))
{
files[i].description = REReplaceNoCase(thisFile, "^.*<meta name=""description"" content=""([^""]*)"".*$", "\1");
}
</cfscript>
</cfif>
</cfloop>