Skip to main content

AccessTr.neT


Gizli Dosya ve Klasörleri Göster / Gizle

Gizli Dosya ve Klasörleri Göster / Gizle

#1
form içine iki adet buton yerleştirin ve kod kısmına aşağıdaki kodları yapıştırın.

Visual Basic Code
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

PROGRAMMER MEHMET
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da