- Yasaklandı
- #1
Öfke.
Seçkin Üye
[font=Tahoma, Arial, Verdana, sans-serif]Klasör seçmek amacı ile kullanılır.[/FONT]
[font=Tahoma, Arial, Verdana, sans-serif]Örnek olarak folder browser dialog nesnesi yardımı ile seçilecek bir klasördeki word belgelerini listeleyecek olan bir örnek uygulama yapalım.[/FONT]
[font=Tahoma, Arial, Verdana, sans-serif]Form üzerine bir adet buton, bir adet listbox ve bir adet de folder browser dialog nesnesi ekleyelim.[/FONT]
[font=Tahoma, Arial, Verdana, sans-serif]Kodumuz aşağıdaki gibi olacak;[/FONT]
[font=Tahoma, Arial, Verdana, sans-serif]____________________________________________________________________________[/FONT]
Public Class Form1
Private Sub cmdKlasorSec_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdKlasorSec.Click
If FolderBrowserDialog1.ShowDialog() = DialogResult.OK Then
Dim dosya
dosya = Dir(FolderBrowserDialog1.SelectedPath & "\*.doc")
While dosya <> ""
ListBox1.Items.Add(dosya.ToString)
dosya = Dir()
End While
End If
End Sub
End Class
[font=Tahoma, Arial, Verdana, sans-serif]Örnek olarak folder browser dialog nesnesi yardımı ile seçilecek bir klasördeki word belgelerini listeleyecek olan bir örnek uygulama yapalım.[/FONT]
[font=Tahoma, Arial, Verdana, sans-serif]Form üzerine bir adet buton, bir adet listbox ve bir adet de folder browser dialog nesnesi ekleyelim.[/FONT]
[font=Tahoma, Arial, Verdana, sans-serif]Kodumuz aşağıdaki gibi olacak;[/FONT]
[font=Tahoma, Arial, Verdana, sans-serif]____________________________________________________________________________[/FONT]
Public Class Form1
Private Sub cmdKlasorSec_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdKlasorSec.Click
If FolderBrowserDialog1.ShowDialog() = DialogResult.OK Then
Dim dosya
dosya = Dir(FolderBrowserDialog1.SelectedPath & "\*.doc")
While dosya <> ""
ListBox1.Items.Add(dosya.ToString)
dosya = Dir()
End While
End If
End Sub
End Class
