Oluşturulan klasör nasıl gizlenir?

[Tevfik_Kursun]

Merhaba Arkadaşlar,

Sub Klasor_Olustur()
Dim ds
kls = "Yedek"
Set ds = CreateObject("Scripting.FileSystemObject")
ds.CreateFolder "C:\Users\user\Desktop\BASKI\" & kls
End Sub

Yukarıdaki makro BASKI klasörünün içine Yedek adlı klasör oluşturuyor. Oluşturulan bu klasörü nasıl görünmez, gizli ve salt okunur da yapabiliriz?
Saygılarımla

 

[Tevfik_Kursun]

Merhaba Arkadaşlar,

[COLOR="Red"]Gizlemek için[/COLOR]
Sub Klasor_Gizle()
    SetAttr "c:\herhangiklasör\", vbHidden + vbSystem
End Sub

Sub Dosya_Gizle()
    SetAttr "c:\herhangi.xls", vbHidden + vbSystem
End Sub

[COLOR="red"]Göstermek için[/COLOR]
Sub Klasor_Goster()
    SetAttr "c:\herhangiklasör\"
End Sub

Sub Dosya_Goster()
    SetAttr "c:\herhangi.xls"
End Sub

Zeki Gürsoy Hocam cevabını 19.03.2009 da vermiş. Ancak şimdi farkettim. Bu vesile ile Zeki Hocama da tüm arkadaşlara da teşekkür ederim.
Alternatiflere her zaman açığız
Saygılarımla

 

[Tevfik_Kursun]

Merhaba Arkadaşlar,
Klasor_Goster makrosu, compile error, argument not optional gibi bir hata veriyor.
Neden olabilir?
Saygılarımla

 

[dEdE]

Merhaba,
Aşağıdaki şekilde dener misiniz?

Sub Klasor_Goster()
    SetAttr "c:\herhangiklasör\", vbNormal
End Sub

 

[Tevfik_Kursun]

Teşekkür ederim Sayın Dede,
Saygılarımla

 

[halit3]

Merhaba

Ben gizli klasör ve dosyaları şöyle buluyorum bir adet boş winrar dosyası oluşturuyorum ustte dönük ok işaretini tıklıyorum dolayısıyla winrar dosyasının bulunduğu bir üst klasöre gidiyorum ve böylece bilgisayarımdaki gizli dosya ve klasörleri görüyorum.