Antal filer i en mappe?

Du kan prøve følgende:

<%
' Variabler
Dim fso, f, filespec, antal

' Find den fysiske placering af folderen
filespec = Server.Mappath("/tutorials/asp/")

antal = 0

' FileSystem objektet
Set fso = CreateObject("Scripting.FileSystemObject")

' File objektet
Set f = fso.GetFile(filespec)

'antal filer i mappen
For each f in filespec
antal = antal + 1;
next
%>




PS: Er ikke testet!

/Peter

Hvis det virker så ligger antallet nu i variablen antal.

Det virker ikke...
Microsoft VBScript runtime error '800a0035'

File not found

/scooterarea.dk/upload.asp, line 57

Svar kunne man vidst ikke få :(