udskriv antal filer fra mapper

Ville være kanon, hvis det også kunne udskrive data+tid der er blevet tilføjet nye filer til mappen :)

Dim objFSO, objFolder, Path, subPath, antalFiler

antalFiler = 0
subPath = "DinMappe"
Path = Server.MapPath("/"&subPath)

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.GetFolder(Path)

For Each file in objFolder.Files
  antalFiler = antalFiler + 1
Next

Response.write "Der er " & antalFiler & " filer i mappen!"

Nogen speciel grund til at lave den løkke??

Response.write "Der er " & objFolder.Files.count & " filer i mappen!"

Hmm ... har prøvet følgende:

<%
Dim objFSO, objFolder, Path, subPath, antalFiler

antalFiler = 0
subPath = "folder"
Path = Server.MapPath("/"&subPath)

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.GetFolder(Path)

For Each file in objFolder.Files
  antalFiler = antalFiler + 1
Next

Response.write "Der er " & objFolder.Files.count & " filer i mappen!"
%>


virker ikke...

Du skal nok ændre

subPath = "folder"
Path = Server.MapPath("/"&subPath)

til noget der passer hos dig

ah.. skulle bare slette "/"
så virker det..

Hvad med dato?

erikjacobsen: Grunden var... at jeg ikke kendte .Count egenskaben! :D
Man må jo lave det på den måde man lige kan komme på!

dna

Fandt svaret i et gammelt spørgsmål besvaret af eagleeye.. og han plejer at have styr på det.

tomb3: Du kan jo lave den løkke jeg havde i mit første svar og så finde den dato der er nyeste.. så har du jo hvornår der sidst er tilføjet en fil. Jeg er ikke så stærk i FSO, at jeg lige kan huske det i hovedet, men søg her på eksperten.dk, da der nok skal være et lignende spørgsmål.

dna

Hvad er det egentlig du vil med den dato - jeg har ikke kigget på det, for jeg forstod ikke spørgsmålet.

(Vil det sige eagleeye heller ikke kendte count ?? *g*)

Nevermind med dato, har fundet på noget andet :)