Seçilen Dosyanın Yolu

Veritabanına bağlanırken veritabanın yolunu yazmak biraz uzun sürebilir bunu kısaltmak için bu yolu textboxa çekip oradan kopyala yapıştır yapabilirsiniz. Tek veritabanı dosyaları değil bütün dosyaların yollarını gösterir.

Veritabanına bağlanırken veritabanın yolunu yazmak biraz uzun sürebilir bunu kısaltmak için bu yolu textboxa çekip oradan kopyala yapıştır yapabilirsiniz. Tek veritabanı dosyaları değil bütün dosyaların yollarını gösterir.

Formumuza: 1 Adet Textbox, 1 Adet Button, 1 Adet OpenFileDialog, 1 Adette label ekliyoruz.

Labelin Text özelliğini Yol:

Buttonun Text özelliğini Seç yapalım ve buttona tıklayıp kodlarımızı yazalım.


[list=1]  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

[/list]

  • Etiketler;
Yorum Yaz

Yorum yazabilmek için üye girişi yapmanız gerekiyor!

Yukarı Git