Gerekli araçlarımız;
Form'a bir tane textbox
1 tane buton
1 tane OpenFileDialog
Ve bir tane'de label ekleyin.
Bu arada label1 in tex özelliğini yol Buttonun tex özelliğini ise seç yaparak buttona çift tıklayıp click olayına aşağıdaki kodları sırasıyla yazalım:
Dim oku As OpenFileDialog = New OpenFileDialog oku.Title = "Dosya Seç" oku.ShowDialog() If oku.FileName <> "" Then Dim Yol() As String Yol = oku.FileNames For Each yolgoster As String In Yol TextBox1.Text = yolgoster Next End If

ÖRNEK GÖRÜNTÜ - 2

Hiç yorum yok: