Imports System
Imports System.IO
Public Class Form1
    Private Sub Bt1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Bt1.Click
        Dim DirectoryInAnalisi As String = "c:\windows"
        Dim NumeroFiles As Integer
        Try
            'Cambiando il valore di SearchOption si possono contare solo i files nella radice
            '(SearchOption.TopDirectoryOnly)
            'oppure includere eventuali sottocartelle (SearchOption.AllDirectories)
            Dim MyDir As New DirectoryInfo(DirectoryInAnalisi)
            'Attenzione : Sostituendo *.* con, ad esempio *.jpg verranno conteggiati solo
            'i files con quell'estensione. E' ammessa solo un estensione
            NumeroFiles = MyDir.GetFiles("*.*", SearchOption.AllDirectories).Length
 
            MessageBox.Show(NumeroFiles.ToString("#0,0"))
        Catch ex As Exception
            MessageBox.Show(ex.Message & Environment.NewLine & ex.StackTrace)
        End Try
    End Sub
End Class