Antal filer.

Du kan gøre sådan her:


<%
Set fs = CreateObject("Scripting.FileSystemObject")
Set objf = fs.GetFolder(server.MapPath("."))

for each folder in objf.SubFolders
  Response.Write folder.Name & " : der er " & fs.GetFolder(folder.path).Files.count & " filer <br>"
next 

Set fs = Nothing
Set objf = Nothing
%>

Øhhh... lige et lille spørgsmål... hvordan får jeg den ind i den her code??

<%
ImageDir = "/download/" ' Mappen med filerne Kun denne linie skal ændres.
Set objFS = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFS.GetFolder(Server.MapPath(ImageDir))
Set objFiles = objFolder.SubFolders

intPage = Request.Querystring("page")
If isNumeric(intPage) = False Or intPage < 1 Then
  intPage = 1
End If

intPageSize = 27 ' Antal filer på hver side
intImgCount = objFiles.Count
intPageCount = -Int(-(intImgCount/intPageSize))

Response.Write "<p><strong>" & intImgCount & " Mapper - "
Response.Write "viser side " & intPage & " af " & intPageCount & ":</strong></p>"
response.write "<center><table border='0' width='100%' cellspacing='0' cellpadding='0'><tr>"
bgColor = "#DDE4E7"
i = 0
For Each FolderObject In objFiles
if i mod 9 = 0 then
response.write "<td width='32%' align='center' valign='top'>"
end if
intFile = intFile +1
If (intFile >= ((intPage-1)*intPageSize)+1) And (intFile =< (intPageSize*intPage)) Then
  If Left(FolderObject.Name,1)<>"_" Then
        Response.Write "<table border='0' bgcolor='" & bgColor & "' width='50%' cellspacing='0' cellpadding='0'><tr>"
      Response.Write "<td width='5%' align='center' valign='top'>"
      Response.Write "<a href='#' onClick=MM_openBrWindow('downloadfil.asp?ShowSub=" & ShowSubLink & "/"
      Response.Write(Replace(FolderObject.Name, " ", "%20"))
          response.write "','filer','width=300,height=500') title='Åben Mappen " & FolderObject.Name & "'>"
      Response.Write "<img border='0' src='/sider/pics/bag/folder2.gif' width='15' height='13'>"
      Response.Write "</a>"
      Response.Write "</td>"
      Response.Write "<td width='45%' align='left' valign='top'>"
          Response.Write "<a href='#' onClick=MM_openBrWindow('downloadfil.asp?ShowSub=" & ShowSubLink & "/"
      Response.Write(Replace(FolderObject.Name, " ", "%20"))
          response.write "','filer','width=300,height=500') title='Åben Mappen " & FolderObject.Name & "'>"
          Response.Write FolderObject.Name
      Response.Write "</td>"
      Response.Write "</tr></table>"
    End if

End If
if i mod 9 = 8 then
response.write "</td>"
end if
i = i+1
if( bgColor = "#DDE4E7" ) then
        bgColor = "#FFFFFF"
    else
        bgColor = "#DDE4E7"
    end if
Next
response.write "</tr></table></center>"
strScriptName = Request.Servervariables("ScriptName")
Response.Write "<p>Gå til side "
For i = 1 To intPageCount
Response.Write "<a href=" & strScriptName & "?page=" & i & ">" & i & "</a> "   
Next
Response.Write "</p>"
Set objFS = Nothing
%>

For jeg har prøvet men den siger kun 1 fil i alle mapperne.. Og den skulle tælle antal filer der er i hver enkel mappe.

Det må være efter linjen:

Response.Write FolderObject.Name

Tilføje:

Response.Write " Antal filer " & objFS.GetFolder(FolderObject.path).Files.count