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