progressbar der viser x antal filer i mappe i forhold til forv.

function filtype(ext) ' finder og returnerer filtypen/extension
filtype = mid(ext, instrrev(ext, ".") + 1)
end function

dim vaerdi_fra_db, antal, procent
vaerdi_fra_db = 4 ' simulering af værdien der ligger i databasen
antal = 0 ' nulstil tæller
procent = 0 ' nulstil procent

dim fs,fo,fil
set fs=Server.CreateObject("Scripting.FileSystemObject")
set fo=fs.GetFolder(server.mappath(".")) ' "." = mappen med asp filen

antal = 0
for each fil in fo.files
  if filtype(fil) = "ext" then antal = antal + 1
next

procent = (100 - ((vaerdi_fra_db - antal) * 100) / vaerdi_fra_db)

response.write "Antal i mappe: " & antal & "<br>"
response.write "Antal i db: " & vaerdi_fra_db & "<br>"
response.write "Procent: " & procent & "%<br>"

set fo=nothing
set fs=nothing
%>

Så kan du lave et billede på f.eks. 1x1 pixel, og bruge denne kode:

<img src="progressbar.gif" width="<%=procent%>%" height="20">

Jeg har ændre lidt på HTML kode, så nu behøver man ikke et billede..
Man skal erstatte "," med ".", når man bruge CSS..

Her er koden:

<%
function filtype(ext) ' finder og returnerer filtypen/extension
filtype = mid(ext, instrrev(ext, ".") + 1)
end function

dim vaerdi_fra_db, antal, procent
vaerdi_fra_db = 9 ' simulering af værdien der ligger i databasen
antal = 0 ' nulstil tæller
procent = 0 ' nulstil procent

dim fs,fo,fil
set fs=Server.CreateObject("Scripting.FileSystemObject")
set fo=fs.GetFolder(server.mappath(".")) ' "." = mappen med asp filen

antal = 0
for each fil in fo.files
  if filtype(fil) = "ext" then antal = antal + 1
next

'procent = (100 - ((vaerdi_fra_db - antal) * 100) / vaerdi_fra_db)
procent = FormatPercent(antal / vaerdi_fra_db)

response.write "Antal i mappe: " & antal & "<br>"
response.write "Antal i db: " & vaerdi_fra_db & "<br>"
response.write "Procent: " & procent & "%<br>"

set fo=nothing
set fs=nothing
%>
<div style="width:100px;border:1px solid #000000;">
<span style="position:absolute;text-align:center;width:100%"><b><%=procent%></b></span>
<span style="width:<%=replace(procent, ",", ".")%>;background-color:#AAAAFF;display:block;">&nbsp;</span>
</div>

hm, jeg kan ikke lige få det til....
kan du vise mig eksempel hvor ext er sat til ".jpg" og mappen er "K:\filer\nord\"

Få disse linier til at se sådan ud:

set fo=fs.GetFolder("K:\filer\nord\"))

og

  if filtype(fil) = "jpg" then antal = antal + 1

Det kan godt være, at det skal være set fo=fs.GetFolder("K:\filer\nord")).
Det er det man kalder "absolute path", så du behøver ikke Server.Mappath.

Jeg kan ikke få path'en til at virke. Hverken med drevbogstav eller \\server\share\mappe\

Jeg har prøvet med en absolute path, og det virker fint.

Vær opmærksom på, at filerne skal ligge på serverens K: drev.. ikke din egen computer..

hmm, jeg må prøve at løse det.

giv mig lige et svar så du kan få dine point.

Svar.

Når jeg accepterer svare sker der ingenting

ok, det lykkedes vist alligevel :-)