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

[vb]
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_DWOR

İnternette bulduğum küçük bi kodla biraz uğraşıp bazı düzenlemeler yaptım fakat ne yaptıysam gösteridiğim yoldaki klasörleri listeletemedim. en son demem xlsx uzantılarını listelemekti ama aynı işlemi DIR uzantı için denediğimde işe yaramıyor. Şimdiden yardımlarınız için tşkler.