Private Sub Button1_Click(sender As Object, e As EventArgs) Handles _
  Button1.Click
        FolderBrowserDialog1.ShowDialog()
        TextBox1.Text = FolderBrowserDialog1.SelectedPath
        Dim counter = My.Computer.FileSystem.GetFiles(TextBox1.Text)
        Label1.Text = (CStr(counter.Count))
End Sub

        FolderBrowserDialog1.ShowDialog()
        TextBox1.Text = FolderBrowserDialog1.SelectedPath
        Dim counter As Long = My.Computer.FileSystem.GetFiles( _
          TextBox1.Text).Count
        Label1.Text = counter

Zitat:

Würde den Zählvorgang gerne in einer Progressbar darstellen. Aber wie kann ich das maximum der Progressbar ermitteln, wenn ich ja noch untern zählen bin ?

Cursor = Cursors.WaitCursor

Cursor = Cursors.Default

Cursor = Cursors.WaitCursor

EALA FREYA FRESENA

Dim counter As System.Collections.ObjectModel.ReadOnlyCollection(Of String) = _
        My.Computer.FileSystem.GetFiles("C:\TestDir")
 
MsgBox("number of files is " & CStr(counter.Count))
 
'Alternativ
Dim filelist As List(Of String) = _
    My.Computer.FileSystem.GetFiles("C:\TestDir").ToList