Lista filer i mapp

Får inte riktigt grepp på detta.....

<%
set fso = server.createobject("scripting.filesystemobject")
set folder = fso.getFolder(server.mappath("protokoll/"))
set files = folder.files

for each Item in files
if right(Item.Name,4) = ".doc" then
response.write "<a href ='protokoll/"& file.name &"'> "& file.name &" <br>"
end if

Next

set folder = nothing
set fso = nothing
set files =nothing
%>

......ger felmeddelande:

Microsoft VBScript runtime error '800a01a8'

Object required: 'file'

/stommen/protokoll.asp, line 33

vad missar jag?
Någon vänlig själ?