Geçici dosyaları bir tıkla programsız temizleyin (vbs)


vbs ile geçici dosya temizliği

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

yapamamaktadırlar , başta inandırıcı gibi gelmesede bu yazımızda verdiğimiz vbs scriptini kullanmadan önce CCleaner veya benzeri bir program kullandıktan sonra yazının sonunda yeralan linkten geçici dosya (Temp) temizliği için verdiğimiz dosyayı indirip çalıştırmanızla birlikte tamizlenen dosya sayısına sizde şaşıracaksınız.

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

vbs ile geçici dosyaları sil

Tamam butonuna bastığımızda da bulunan (silinecek olan) dosya sayısını ve bunlardan kaçının silindiğini bize bildirir.

silinen geçici dosya sayısı

Aşağıda kodlarını verdiğim scripti bir not defterine kopyalayın sonrasında dosya menüsünden Farklı kaydet deyin

farkli_kaydet

Açılan pencerede herhangi bir isim verin (dosya ismini istediğiniz şekilde düzenleyin ) ve uzantısı .vbs olarak kaydedip çalıştırın

farkli_kaydet2

'===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

Download



13 Yorum Var

Yorum Ekle

E-posta hesabınız yayımlanmayacak. Gerekli alanlar * ile işaretlenmişlerdir

CAPTCHA