strFNameLength = (Len(strString))
strLengthtoRemove1 = (strFNameLength - 4)
strLengthtoRemove2 = (strFNameLength - 5)

strCheck1 = Right(strString,Len(strString)-strLengthtoRemove1)
strCheck2 = Right(strString,Len(strString)-strLengthtoRemove2)

if strCheck1 or strCheck2 = ".htm" or ".html" or ".zip" then
strType = "File"
else
strType = "Folder"
End if

$strFNameLength=strlen($strString);
for($i=$strFNameLength-4;$i<$strFNameLength;++$i) $strCheck1.=$strString[$i];
$strCheck2=$strString[$strFNameLength-5].$strCheck1;

if(($strCheck1=='.htm')||($strCheck1=='.zip')||($strCheck2=='.html')) $strType='File';
else $strType='Folder';

/* no longer necessary
$strFNameLength = strlen($strString);
$strLengthtoRemove1 = ($strFNameLength - 4);
$strLengthtoRemove2 = ($strFNameLength - 5);
*/

$strCheck1 = /*can't figure out how to do this  Right($strString,'4'/*strlen($strString)-$strLengthtoRemove1 works also*/)
$strCheck2 = /*can't figure out how to do this  Right($strString,'5'/*strlen($strString)-$strLengthtoRemove2 works also*/)

$strCheck1 = substr($strString, -4)
$strCheck2 = substr($strString, -5)

if ($strCheck1 == ".htm" || $strCheck1 == ".html" || $strCheck1 == ".zip" || $strCheck2 == ".htm" || $strCheck2 == ".html" || $strCheck2 == ".zip") {
	$strType = "File";
} else {
	$strType = "Folder";
}

$strCheck1 = substr($strString, -4);
$strCheck2 = substr($strString, -5);

if ($strCheck1 == ".htm" || $strCheck1 == ".zip" || $strCheck2 == ".html") {
	$strType = "File";
} else {
	$strType = "Folder";
}