vbs ile klasör gizleme , görünür yapma

vbs ile klasör gizleme gösterme
Script dilleri işlerimizi oldukça kolaylaştırır , mesela herhangi bir nedenle bir klasörü görünmez yapmak istiyorsak ; Klasöre sağ tıklarız ve özellikler deriz açılan ekranda karşımıza salt okunur yapma

veya gizleme kutucukları çıkacaktır bunlardan Gizle ye tik koyup uygula ve tamam diyerek klasörü görünmez yapabiliriz

klasör gizleme

Klasörü görünür hale getirmek biraz daha zahmetli bir iştir çünkü görmediğimiz birşey üzerinde işlem yapamayız bu nedenle öncelikle bütün dosya ve klasörleri görünür yapıp gizlediğimiz klasöre üstteki işlemi uygulamamız gerekir , bunu da şu şekilde gerçekleştirebiliriz :
1. Windows gezginini açarız
2. Sağ üste köşedeki düzenle ye tıklarız
3. Klasör ve arama seçeneklerine tıklarız
4. Görünüm tabına geçeriz
5. Gizli dosya klasör ve sürücüleri göster kısmına tik koyarız
6. Uygula ve tamam deriz

Görüldüğü gibi gizlemek ve görünür yapmak windowsta birçok işlemi gerektirebiliyor işte bu işi sürekli yapmak durumundaysanız bunun bir işkenceye dönüşmesi kuvvetle muhtemeldir ilaveten bu gizleme işini otomatikleştirmek isterseniz (mesela her windows açılışında bir klasörün gizlenmesi ...) üstteki manuel yol yardımcı olmayacaktır, bu nedenledirki bazı tekrarlı işlerde script dilleri bizlere kolaylık sağlayıp zaman kazandırmaktadır. gelelim .vbs ile bir klasörü nasıl gizleriz konusuna ,

vbs ile klasör gizleme:
Varsayalım D dizinimizde "abc" isminde bir klasörümüz olsun biz hiç üstteki şekilde uğraşmadan bir tıkla bunu gizlemek istiyoruz bu durumda aşağıdaki scripti bir not defterine yapıştırıp bir isim veririz ve uzantısı da vbs olacak şekilde kaydederiz

' www.sodum.net - Velociraptor (02.06.2015)
Set fso = CreateObject("Scripting.FileSystemObject")
Set folderToHide = fso.getFolder("D:\abc")
folderToHide.Attributes = folderToHide.Attributes or 2 ' 2 = hidden

vbs ile klasörü Görünür yapma:
Tersi bir durumda vbs kodları yine işimize yarayacak ve bizi birsürü zahmetten kurtaracaktır , tek yapmamız gereken aşağıdaki kodları üstte yazdığım şekilde vbs scripti haline getirip çalıştırmaktır

' www.sodum.net - Velociraptor (02.06.2015)
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.GetFolder("D:\abc")

objFolder.Attributes = objFolder.Attributes AND NOT 2

Üstteki kodlarda değişiklik yapılacak kısım aşağıda mavi ile belirttiğim klasör yolu ve ismidir
Set folderToHide = fso.getFolder("D:\abc") bu kısmı kendi klasör yolunuz ve isminizle değiştirdiğinizde scriptin sorunsuzca işinizi gösrmesi gerekir.

Bir tıkla gizle diğer tıkla Göster
Bazılarının aklından neden iki script kullanıyoruzki tek scriptle bu işi yapamazmıyız diye geçirdiğini tahmin edebiliyorum , evet doğrudur tek scriptle bu iş yapılabilir script klasörün durumunu kontrol eder eğer gizli ise görünür , görünür ise gizli yapabilir işte bunu aşağıdaki kodlarla sağlıyoruz

' www.sodum.net - Velociraptor (02.06.2015)
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.GetFolder("D:\abc")
If objFolder.Attributes = objFolder.Attributes AND 2 Then
    objFolder.Attributes = objFolder.Attributes XOR 2
End If

üstteki script çalıştırıldığında "D:\abc" klasörünün gizlilik durumunu kontrol edecek ve herne durumda ise bunu tersine çevirecektir , ikinci defa tıklandığında da aynı işlemi yapacaktır böylece bir tıkla gizleme diğer tıkla görünür yapma gerçekleşmiş olacaktır , vbs scriptlerinin hazır hallerini aşağıdaki linkten indirip editleyebilirsiniz.