Klasör gizleme Gösterme

Klasör gizleme Gösterme

Programa 2 tane button koyuyorsunuz. 

1 buttonu GİZLE 2.buttonu ise GÖSTER yapıyorsunuz.

FolderBrowserDialog ekliyorsunuz. daha sonra kodları yapıştırıyorsunuz.

debug  yaptıktan sonra GİZLE den klasörü seçiyorsunuz.

TAMAM bastığınızda klasörü gizler.

tekrar açmak istediğinizde GÖSTER den klasörü seçin ve görünür hale

gelecektir kolay gele.

Public Class Form1 'http://www.visualbasicdersleri.com/
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click 'http://www.visualbasicdersleri.com/
        Dim DznGizle As String
        If FolderBrowserDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then 'http://www.visualbasicdersleri.com/
            '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(ByVal sender As System.Object, ByVal 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) 'http://www.visualbasicdersleri.com/
            'Seçilen Klasör özelliği Normel yapılarak Gösterilir duruma getirilecek
            Goster.Attributes = IO.FileAttributes.Normal
        End If
    End Sub
End Class

Paylaş :