break on
Dim $Directory $Directory = "C:\Documents and Settings\***.JOOEL\Omat tiedostot\kixtart\"

If Exist ($Directory)
	$Folder = Dir($Directory)

	While $Folder <> "" and @ERROR = 0
	If $Folder <> "." AND $Folder <> ".." AND (getFileAttr($Directory + $Folder) & 16)
		$FileName = Dir($Directory + $Folder, 1) ; retrieve next file
		While $FileName <> "" and @error = 0
			If $Filename <> "." or $Filename <> ".."
				If Right($FileName, 4) = ".htm"
					?$Filename + " is htm file"
				EndIf
				
			EndIf
			$FileName = Dir("", 1)
		Loop
	EndIf
	$Folder = Dir()
	Loop
endIf

get $