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!
[FONT=Times New Roman, Times, serif] FOLDER BROWSER DIALOG Kullanımı
"FOLDER BROWSER DIALOG: Klasör seçmek için kullanılır."
İlk önce formumuza ;
1 adet button
1 adet listbox
1 adet folderbrowserdialog ekliyoruz.
Resimdeki gibi ;
Daha sonra ise buttonun üzerine çift tıklayarak buttonun
kod ortamına geliyoruz.Bu bölüme şu kodları yazıyoruz;
_____________________________________________
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If FolderBrowserDialog1.ShowDialog = DialogResult.OK Then
Dim dosya
dosya = Dir(FolderBrowserDialog1.SelectedPath & "\\*.txt")
While dosya <> ""
ListBox1.Items.Add(dosya.ToString)
dosya = Dir()
End While
End If
____________________________________________
Resimdeki gibi ;
Evet işlem bu kadar şimdi deneyelim.
Resimler;[/FONT]
"FOLDER BROWSER DIALOG: Klasör seçmek için kullanılır."
İlk önce formumuza ;
1 adet button
1 adet listbox
1 adet folderbrowserdialog ekliyoruz.
Resimdeki gibi ;
Daha sonra ise buttonun üzerine çift tıklayarak buttonun
kod ortamına geliyoruz.Bu bölüme şu kodları yazıyoruz;
_____________________________________________
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If FolderBrowserDialog1.ShowDialog = DialogResult.OK Then
Dim dosya
dosya = Dir(FolderBrowserDialog1.SelectedPath & "\\*.txt")
While dosya <> ""
ListBox1.Items.Add(dosya.ToString)
dosya = Dir()
End While
End If
____________________________________________
Resimdeki gibi ;
Evet işlem bu kadar şimdi deneyelim.
Resimler;[/FONT]
