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