AccessTr.neT

Tam Versiyon: Gizli Dosya ve Klasörleri Göster / Gizle
Şu anda arşiv modunu görüntülemektesiniz. Tam versiyonu görüntülemek için buraya tıklayınız.
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