[vb.net] Contare i files in una directory.

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

 

Dettagli

Chicosoft di F.Bianchi
P.Iva: 03634480168

Website: www.chicosoft.it

Disclaimer

I codici e le soluzioni proposti su questo sito sono inseriti a mero scopo dimostrativo e la Chicosoft declina ogni responsabilità in merito al loro uso.

 

 

Questo sito utilizza i cookie per migliorare servizi ed esperienza dei lettori. Se decidi di continuare la navigazione consideriamo che accetti il loro uso.