Function CountFilesFromDirectory(ByVal sDir As String, Optional ByVal sFilter As String = "*.*") As Long
    CountFilesFromDirectory = 0
    If RightB$(sDir, 2) <> "\" Then sDir = sDir & "\"
'   formate le  chemin
    Dim sFile As String
    sFile = Dir(sDir & sFilter, vbHidden Or  vbSystem)

    If LenB(sFile) > 0 Then
'       boucle sur tous les  fichiers (et incrémente)
        Do
            CountFilesFromDirectory = CountFilesFromDirectory + 1
            sFile = Dir
        Loop Until LenB(sFile) = 0
    End If
End Function

'   EXEMPLE  D'UTILISATION
Private Sub Form_Load()
'   compte toutes les  dll dans windows
MsgBox CountFilesFromDirectory("C:\Windows\", "*.dll")
'   compte tous les fichiers dans temp
MsgBox CountFilesFromDirectory(Environ$("TEMP"))
End Sub

Function CountFilesFromDirectory(ByVal sDir As String, Optional ByVal sFilter As String = "*.*") As Integer

If My.Computer.FileSystem.DirectoryExists(sDir) Then

Dim CountFiles As Integer
CountFiles = My.Computer.FileSystem.GetFiles(sDir, FileIO.SearchOption.SearchTopLevelOnly, sFilter).Count 
Return CountFiles 
Else

MsgBox("Le répertoire n'existe pas") 
End If

End Function

'EXEMPLE D'UTILISATION:
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click 
CountFilesFromDirectory("C:\", "*.xls") 
End Sub

// Liste les fichiers de type ".BMP" présents dans "\MesDocuments".
// La procdure AttributFichier permet d'éffectuer un traitement sur chaque fichier trouvé
// ResListeFichier contient le nombre de fichiers listés
ResListeFichier = fListeFichier("C:\MesDocuments\*.bmp", "AttributFichier")

private int CountFile(string dirPath, string filter) 
{
  if (Directory.Exists(dirPath)) 
  {
    if (string.IsNullOrEmpty(filter)) filter = "*.*";    
    return Directory.GetFiles(dirPath, filter, SearchOption.TopDirectoryOnly).Length; 
  }

  return -1; 
}

Function CountFilesFromDirectory(ByVal sDir As String, Optional ByVal sFilter As String = "*.*") As Long
Dim Fso As Object
Dim Fi
   
   Set Fso = CreateObject("Scripting.FileSystemObject")
   'Verifie la valeur du filtre
   If sFilter = "*.*" Then
       'retourne directement l'attribut count
       CountFilesFromDirectory = Fso.GetFolder(sDir).Files.Count
   Else
       'si filtre spécial
       For Each Fi In Fso.GetFolder(sDir).Files
           'transformation du filtre pour en ressortir par ex: dll au lieu de *.dll
           sFilter = Right(sFilter, (Len(sFilter) - InStrRev(sFilter, ".")))
           'recuperation de l'extension du fichier
           If Fso.GetExtensionName(Fi.Path) = sFilter Then
               'incrépentation de la valeur a retourner
               CountFilesFromDirectory = CountFilesFromDirectory + 1
           End If
       Next
   End If
   Set Fso = Nothing
   Set Fi = Nothing
   
End Function
Pour rappel
Call MsgBox(CountFilesFromDirectory("C:\WINNT\System32"))
Call MsgBox(CountFilesFromDirectory("C:\WINNT\System32\", "*.dll"))

By Renfield

/**
  * Compter le nombre de fichiers dans un répertoire.
  */
import java.io.*;
int countFiles (String parent) throws Exception {
    File file = new File (parent);
    
    if (!file.exists ())
        throw new FileNotFoundException ();
    return file.list ().length;
}

fso = new ActiveXObject("Scripting.FileSystemObject");
var n = 0;
function lit_fic(rep){ // liste les fichiers du rep
var f, ff=""
f = fso.GetFolder(rep)
ff = new Enumerator(f.files);
for(; !ff.atEnd(); ff.moveNext())
n++;
return n
}

Pour utiliser cette fonction
    alert(lit_fic("le nom du dossier"))
vous pouvez aussi l'utiliser avec un document.write ou n'importe quelle autre methode

<?php
function nbrf($dir){
    $n=0;
    $a=opendir($dir);
    while(false!==($b=readdir($a))){
        if (is_file($dir.$b)) $n++;
    }
    return $n;
}
echo nbrf('/home/max/').'
';
?>