Windows klasör seçenekleri

[nziya]

Arkadaşlar windows klasör seçeneklerindeki gizli dosya ve klasörleri göster ve gösterme seçimini aktif ve pasif yapacak kodlar konusunda bilgisi olan varmı acaba.

 

[Haluk]

Sub Test()
    SetAttr "C:\TempFolder", vbHidden
End Sub
'
Sub Test2()
    SetAttr "C:\TempFolder", vbNormal
End Sub

Edit:
Hmmm.... soruyu yanlış anlamışım galiba, özür...

 

[nziya]

Pasif ettiğimizde bu seçenek kullanılamayacak Aktif ettiğimizde kullanılacak

 

[Haluk]

Aşağıdaki link, sizin sorduğunuz konuda. Yani, Windows'un bahsettiğiniz ayarlarını değiştirmek konusunda.

http://www.edbott.com/weblog/?p=692

Aynı sayfada da, bu işi yapacak bir script var. Ben denemedim...

http://www.edbott.com/weblog/files/ToggleHiddenExplorerStuff.txt

 

[Haluk]

Yukarıda verdiğim linkteki script'i VBA'ye uyarlanmış şekliyle ekte veriyorum ...

WinXP / Office2000 ile sorunsuz çalışıyor.

 

[nziya]

Haluk bey ilginizden dolayı çok teşekkür ederim örnek işime yaradı