Temp (yani geçici) dosyalar sistemimizde oldukça hızlı çoğalan dosyalardır ve bunların temizliği için de çoğu zaman programlar kullanılır (mesela Ccleaner) gel gelelim Ne Ccleaner nede diğerleri etkili bir temizlik
Kodlayanı "Michael Harris" olan Vbs scriptini uzun bir süreden beridir kullanıyorum hem ek program gerektirmemesi hem kurulum gerektirmemesi hemde etkili olması sebebi ile çevrendekilere de tavsiye ettiğim bu scripti sizlerle de paylaşmak istedim , scripti masaüstünüzde bulundurup hemen hemen hergün çalıştırabilirsiniz , çift tıkladığımızda silinecek dosya sayısını görüntüler
Tamam butonuna bastığımızda da bulunan (silinecek olan) dosya sayısını ve bunlardan kaçının silindiğini bize bildirir.
Aşağıda kodlarını verdiğim scripti bir not defterine kopyalayın sonrasında dosya menüsünden Farklı kaydet deyin
Açılan pencerede herhangi bir isim verin (dosya ismini istediğiniz şekilde düzenleyin ) ve uzantısı .vbs olarak kaydedip çalıştırın
'===DeleteTempFiles.vbs=== 'from Michael Harris 'Edited By BlueLife On Error Resume Next Const TemporaryFolder = 2 'for GetSpecialFolder set fso = createobject("scripting.filesystemobject") arFiles = array() count = -1 tempdir = fso.GetSpecialFolder(TemporaryFolder) SelectFiles tempdir msgbox count+1 & " files found" dcount = 0 for each file in arFiles on error resume next file.delete true if err.number = 0 then dcount = dcount + 1 err.clear on error goto 0 next DeleteEmptyFolders tempdir,false msgbox count+1 & " files found, " & dcount & " deleted." sub SelectFiles(sPath) On Error Resume Next set folder = fso.getfolder(sPath) set files = folder.files for each file in files count = count + 1 redim preserve arFiles(count) set arFiles(count) = file next for each fldr in folder.subfolders SelectFiles fldr.path next end sub sub DeleteEmptyFolders(sPath,bDeleteThisFolder) On Error Resume Next set folder = fso.getfolder(sPath) for each fldr in folder.subfolders DeleteEmptyFolders fldr.path,true next if (folder.files.count = 0) and _ (folder.subfolders.count) = 0 and _ bDeleteThisFolder then folder.delete exit sub end if end sub '===script-sonu===
Eğer üstteki kodları kopyalamak size zor geliyorsa aşağıdaki indirme linkini kullanıp kodların hazır vbs şeklini indirip kullanabilirsiniz
Teşekkürler
Geri bildirim için tekrar sağolasın