For Each como limitar numero de imagens no LOOP

For Each como limitar numero de imagens no LOOP

<%

Set Fso = Server.CreateObject ("Scripting.FileSystemObject")

Set arquivo = Fso.GetFolder(Server.MapPath("gdd/sgc/imagens/foto_texto/" &id_pasta_imagens& ""))

Set arquivos = arquivo.files

For Each Item in arquivos

Set objFS = Nothing

%>

<div>

<a class="img-thumbnail img-thumbnail-hover-icon mb-xs mr-xs" href="gdd/sgc/imagens/foto_texto/<%=id_pasta_imagens%>/<%Response.Write Item.name %>">

<img class="img-responsive" src="gdd/sgc/imagens/foto_texto/<%=id_pasta_imagens%>/<%Response.Write Item.name %>" alt="<%=V("url_amigavel")%>">

</a>

</div>

<%

Next

Set arquivos = nothing

Set arquivo = nothing

Set Fso = nothing

%>