Antal filer i en mappe..

Fra http://forums.aspfree.com/showthread.php?t=22067

Function Count()
        Dim counter As Integer
        Dim dir As New DirectoryInfo(Server.MapPath("folder/subfolder/"))
        Dim files As FileInfo()
        Dim file As FileInfo

        files = dir.GetFiles()

        If files.Length > 0 Then
            For Each file In files
                counter = counter + 1
            Next
        End If

        Response.Write(counter)
End Function

eller blot:

Dim objFSO : set objFSO = Server.CreateObject( "Scripting.FileSystemObject" )
Dim objFolder : Set objFolder = objFSO.GetFolder( Server.MapPath(".") )
Response.Write( "Antal filer: " & objfolder.Files.Count & "<br>" )

/nute