TotalFiles In Directory and its Sub..

VB Code:

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim dir As New FolderBrowserDialog
        Dim totalFiles As Integer
        If dir.ShowDialog = DialogResult.OK Then
 
            TotalFilesInDirectory(totalFiles, dir.SelectedPath)
        End If
 
    End Sub
    Private Sub TotalFilesInDirectory(ByRef totalFiles As Integer, ByVal dirPath As String)
        Dim dir As New IO.DirectoryInfo(dirPath)
        totalFiles += dir.GetFiles().Length
        For Each _dir As IO.DirectoryInfo In dir.GetDirectories()
            TotalFilesInDirectory(totalFiles, _dir.FullName)
        Next
    End Sub