VB. Net ile Klasördeki Dosyaları textbox a Listelemek

VB. net ile klasörün içinde ki dosya isimlerini listeleyebileceğimiz bir program.

çekilen isimleri textbox a yazdırılıyor ihtiyaca göre listbox , combobox a vb. de yazdırılabilir.

url = textbox1

Imports System.IO

Public Class Form1

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

        Dim say As Integer = 0

        For Each dosya As String In IO.Directory.GetFiles(TextBox1.Text)

            TextBox2.Text += vbNewLine + dosya.Replace(TextBox1.Text + "\", "")

            say += 1

        Next

        Label2.Text = say.ToString() + " Adet Dosya"

    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click

        FolderBrowserDialog1.ShowDialog()

        TextBox1.Text = FolderBrowserDialog1.SelectedPath

    End Sub

End Class

DOWNLOAD

.... YANDEX İNDİR ....