BELGELER KLASÖRÜNDE SADECE WORD DOSYALARININ GÖSTERİLMESİ 

Devamlı olarak aynı dosyalar üzerinde çalışanların işlerini kolaylaştıran Başlat/Belgeler klasöründe sadece açılan son 15 dosya görüntülenir.

Bu sayı üzerinde herhangi bir değişiklik yapmak mümkün değildir. Ancak eğer gerekirse bu klasör içerisinde görünen dosyalar arasından, Word dosyalarının Windows açılışında otomatik olarak ayıklanmasını sağlayabilirsiniz. Bunun için hazırlayacağınız VBScript dosyası için Windows Scripting Host’un bulunması gereklidir. Bu script’i bir metin editörü yardımıyla, örneğin Not Defteri, ACCEPTDOC.VBS adı altında kaydedin ve içerisine aşağıdaki kaynak kodu girin.

ACCEPTDOC.VBS Kaynak Kodu
dim objShell, objFileSystem, objFolder, objFile, objShortCut
dim szTarget
dim iAnswer
set objShell = Wscript.CreateObject("Wscript.Shell")
set objFileSystem = CreateObject("Scripting.FileSystemObject")
set objFodler = objFileSystem.getFolder(objShell.specialFolders("Recent"))
iAnswer = MsgBox("Belgeler klasörü içeriği temizlensin mi?", vbYesNo)
if iAnswer = vbYes then
do
for each objFile in objFolder.files
if lcase(objFileSystem.getExtensionName(objFile.path)) = "lnk" then
set objShortcut = objShell.createShortcut(objFile.path)
szTarget = objShortcut.targetPath
if lcase(objFileSystem.getExtensionName(szTarget))<>"doc" then
objFile.delete vbtrue
end if
end if
next
Wscript.Sleep 150000
loop
end if

Başlat/Belgeler altında ekrana gelen dosyalar aslında Windows klasörü altındaki “RECENT” klasörü içerisinde tutulan kısayollardır. “Wscript.Shell” tipindeki “objShell” nesnesi buradaki değişkenlere erişir.
Dosyalar ve klasörlerde değişiklik yapılmasını sağlayan fonksiyonlarının kullanımı ise “Scripting.FileSystemObject” tipindeki “objFileSystem” nesnesi ile mümkündür. Her iki nesne kombine olarak kullanılarak “RECENT” klasörünü temsil eden “objFolder” nesnesini oluşturuyorlar. Bunun için klasörlerin konumunu temsil eden “objShell.specialFodlers(“Recent”)’i okuyan, “objFileSystem.getFolder” metodu kullanılıyor. “For Each”döngüsü “objFolder” içerisindeki tüm dosyaları inceliyor ve bunların uzantılarının “LNK” olup olmadığını kontrol ediyor. Eğer bunun sonucu olumlu ise “objShellCreateShortcut” kısayol için bir nesne oluşturuyor ve bu kısayolun kaynağında bulunan dosyanın uzantısını test ediyor. Eğer kaynaktaki bu dosyanın uzantısı “DOC” değil ise söz konusu kısayol “objFile.delete” ile siliniyor.
Çalışan Script, “Wscript.Sleep 150000” ifadesi ile 2,5 dakika süren bir ara vermeye zorlanıyor. Eğer oluşturduğunuz VBS programını “\Start Menu\Programlar\Başlangıç” klasörü içerisinde saklayacak olursanız sistem açılışından, Windows’un kapanmasına kadar düzenli olarak çalışarak “Belgeler” klasörü içeriğini düzenli olarak temizleyecektir.