FilesystemObject è un ottimo strumento quando devi manipolare (leggere/scrivere) dei file.

Premessa: disabilita norton antivirus se ce l'hai installato, perchè bloccherà l'esecuzione della pagina nonappena trova FSO.

<%
Dim fso, cartella, file
set fso = Server.CreateObject("scripting.FileSystemObject")
set cartella = fso.GetFolder("c:\windows\desktop\")
for each file in cartella.Files
Response.write file.Name & "<br>"
next
%>

se non ho compiuto errori, questo dovrebbe stamparti uno sotto l'altro tutti files presenti sul tuo desktop (se hai win98).
Ti basta personalizzare il percorso della tua cartella. Se ad esempio vuoi vedere tutto il contenuto della cartella in cui si trova questa pagina asp, dovresti fare:
set cartella = fso.GetFolder(Server.MapPath("./"))

Nota come ho usato Server.MapPath nello specificare percorsi relativi.

ciao,
una volta impostato il ciclo puoi produrre tutto l'output necessario.
Immagina di dover creare una tabella con 3 colonne. Il codice html è:

<table>
<tr>
<td>colonna1</td><td>Colonna2</td><td>Colonna3</td>
</tr>
</table>

Quello che devi fare è disporre le immagini in questo contesto. Allora fai:

<table>
<%
Dim fso, cartella, file
set fso = Server.CreateObject("scripting.FileSystemObject")
set cartella = fso.GetFolder("c:\windows\desktop\")
conto = 0
for each file in cartella.Files
conto = conto + 1
if conto mod 3 = 1 then Response.write "<tr>"
%>
<td><%=file.Name%></td>
<%
if conto mod 3 = 0 then Response.write "</tr>"
next
%>
</table>

questo ti dispone i nomi dei file incolonnati per 3. Poi lo adatti secondo le tue esigenze

dovresti fare un controllo sul nome del file:

for each file in cartella.Files
if Left(file.Name,5) = "MOVIE" then
Response.write file.Name
end if
next

con un if controlli il nome del file. Se le prime 5 lettere sono "MOVIE" allora mostri il nome a video, altrimenti passa al prossimo file.

for each file in cartella.Files
if Left(file.Name,5) = "MOVIE" AND (Right(file.Name,3)="gif" OR Right(file.Name,3)="jpg") then
Response.write file.Name
end if
next