KLASÖR GİZLEME VE GÖSTERME KODLARI

         İkinci el araç alım satımında kullanılan Oto Ekspertiz Cihazları hakkında bilgi almak                                                                               isterseniz burayı tıklayın


Yeni Bir proje başlatın. Forma Bir FolderBrowserDialog1 ekeleyin. Kodları Kopyalayıp Yapıştırın
Gizlenecek Klasörü Masa üstünde oluşturun ki programı çalıştırırken gizlenip gösterildiğini gözlemlemek daha kolay olsun.

KOD                  İNDİR

   Public Class Form1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim DznGizle As String If FolderBrowserDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then 'Gizlenecek Klasörü Seç DznGizle = FolderBrowserDialog1.SelectedPath.TrimEnd Dim Gizle As New System.IO.DirectoryInfo(DznGizle) 'Seçilen Klasör özelliği hidden yapılarak Gizlenecek Gizle.Attributes = IO.FileAttributes.Hidden End If End Sub Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click Dim DizinGoster As String If FolderBrowserDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then 'Gösterilecek Gizli Klasörü Seç DizinGoster = FolderBrowserDialog1.SelectedPath.TrimEnd Dim Goster As New System.IO.DirectoryInfo(DizinGoster) 'Seçilen Klasör özelliği Normel yapılarak Gösterilir duruma getirilecek Goster.Attributes = IO.FileAttributes.Normal End If End Sub End Class