FSO - List TXT filer

hejsa...

jeg har denne lille stump kode :

<%
ImageDir = \"/\"
Set objFS = CreateObject(\"Scripting.FileSystemObject\")
Set objFolder = objFS.GetFolder(Server.MapPath(ImageDir))
Set objFiles = objFolder.Files
For Each Image In objFiles
  Response.Write  Image.Name &\"<br>\"
Next
Set objFS = Nothing
%>

Hvordan laver jeg sådan at den kun lister filer med fx *.txt som extention..??

-Anders