tæl jpg

counter = 0
    Set fso = Server.CreateObject(\"Scripting.FileSystemObject\")
    Set mappe = fso.GetFolder(server.mappath(\".\"))
    set subfiler = mappe.files
for each item in subfiler
if mid(item, instrrev(item, \".\")) then
counter = counter + 1
end if
next

counter = 0
    Set fso = Server.CreateObject(\"Scripting.FileSystemObject\")
    Set mappe = fso.GetFolder(server.mappath(\".\"))
    set subfiler = mappe.files
for each item in subfiler
if mid(item, instrrev(item, \".\")) = \"jpg\" then
counter = counter + 1
end if
next
 

eller er det :

counter = 0
    Set fso = Server.CreateObject(\"Scripting.FileSystemObject\")
    Set mappe = fso.GetFolder(server.mappath(\".\"))
    set subfiler = mappe.files
for each item in subfiler
if mid(item, instrrev(item, \".\") + 1) = \"jpg\" then
counter = counter + 1
end if
next

http://zequenze.dns2go.com/

Den skriver ikke antallet.