Seçilen Dosyanın Yolu

[beyic_baris]

HERAKLES Otomatik Avlı kalıcı sunucu. 19 Haziran'da açılıyor. Atius & Wizard güvencesiyle hemen kayıt ol, ön kayıt ödülleri aktif. HEMEN TIKLA!

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.

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

Alıntıdır.