+- AccessTr.neT (https://accesstr.net)
+-- Forum: Visual Basic 6 (https://accesstr.net/forum-visual-basic-6.html)
+--- Forum: Visual Basic 6 Dersleri (https://accesstr.net/forum-visual-basic-6-dersleri.html)
+--- Konu Başlığı: Gizli Dosya ve Klasörleri Göster / Gizle (/konu-gizli-dosya-ve-klasorleri-goster-gizle.html)
Gizli Dosya ve Klasörleri Göster / Gizle - gitarc - 04/11/2010
form içine iki adet buton yerleştirin ve kod kısmına aşağıdaki kodları yapıştırın.
Private Sub Command1_Click() 'Göster
Set goster = CreateObject("Wscript.Shell")
goster.regwrite "HKEY_CURRENT_USER/Software/Microsoft/Windows/CurrentVersion/Explorer/Advanced/Hidden", 1, "REG_DWORD"
End Sub
Private Sub Command2_Click() 'Gizle
Set gizle = CreateObject("Wscript.Shell")
gizle.regwrite "HKEY_CURRENT_USER/Software/Microsoft/Windows/CurrentVersion/Explorer/Advanced/Hidden", 2, "REG_DWORD"
End Sub