Merhaba arkadaşlar Vb6 ile gizli dosya ve klasörleri nasıl göster/gizle yapabiliriz görelim.
Forma iki tane CommandButton ekleyin, 1. göster, 2. gizle kodu olacak. Gelelim kodlara;
Kod:
Private Sub Command1_Click() 'göster
Dim reg As Object
Set reg = CreateObject("Wscript.Shell")
reg.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\Hidden", 1, "REG_DWORD"
End Sub
Private Sub Command2_Click() 'gizle
Dim reg As Object
Set reg = CreateObject("Wscript.Shell")
reg.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\Hidden", 2, "REG_DWORD"
End Sub
Kesinlikle alıntı değildir, tamamını ben yazdım.
İşine yaradıysa Teşekkür edebilirsin.