FSO / Split fråga

Hejsan!

Har en liten enkel fråga som jag inte får bukt med.
Jag listar upp alla flaggor i en Select från en katalog med hjälp av FSO.
Nu vill jag att den bara ska lista filer som slutar på .gif och att det som ska skrivas ut enbart är det innan punkten.
Såhär ser koden ut just nu:

<%
drivename1 = Server.MapPath("img/flags/")
Set fso = CreateObject("Scripting.FileSystemObject") 
set mainfolder = fso.GetFolder(drivename1)
Set filecollection = mainfolder.Files

For Each file In filecollection
Response.Write "<option>" & file.Name & "</option>"
Next
%>

Tack på förhand!

Mvh

<%
drivename1 = Server.MapPath("img/flags/")
Set fso = CreateObject("Scripting.FileSystemObject") 
set mainfolder = fso.GetFolder(drivename1)
Set filecollection = mainfolder.Files

For Each file In filecollection
  If LCase(Right(Trim(file.Name), 4)) = ".gif" Then
    strNamn = Trim(file.Name)
    Response.Write "<option>" & Left(strNamn, Len(strNamn) - 4) & "</option>"
  End If
Next
%>

Danke!