Windows Explorer İkon Önbelleği Sıfırlama Betiği

[TRWE_2012]

Kod: Tümünü seç

Option Explicit

Dim objShell, objFSO, explorerPath, file

Set objShell = CreateObject("WScript.Shell")
Set objFSO   = CreateObject("Scripting.FileSystemObject")

explorerPath = objShell.ExpandEnvironmentStrings("%localappdata%\Microsoft\Windows\Explorer")

If objFSO.FolderExists(explorerPath) Then

    ' Explorer'ı durdur
    objShell.Run "taskkill /f /im explorer.exe", 0, True

    For Each file In objFSO.GetFolder(explorerPath).Files
        If LCase(file.Name) Like "iconcache*" Then
            On Error Resume Next
            file.Delete True
            On Error GoTo 0
        End If
    Next

    ' Explorer'ı yeniden başlat
    objShell.Run "explorer.exe", 0, False

    MsgBox "İkon önbelleği temizlendi ve Explorer yeniden başlatıldı.", vbInformation, "Tamamlandı"

Else
    MsgBox "Explorer klasörü bulunamadı.", vbExclamation, "Hata"
End If

Set objFSO   = Nothing
Set objShell = Nothing

Bu kodladığım vbs'de :

Oturumu kapatmaz
Explorer’ı yeniden başlatır
Kilitli dosya problemini azaltır
Daha kullanıcı dostudur

Önceki sürümde kullanıcıyı oturum dışına şutluyordum....

https://www.yazilimadasi.com/viewtopic.php?t=931

[TRWE_2012]

Yada bunları kullanın aynı işlemi uyguluyor
https://www.sordum.org/9192/restart-explorer-v1-7/
https://www.sordum.org/9194/rebuild-she ... ache-v1-3/

[burak35]

Bendede şu var. Muhtemelen tarkan abinin açtığı konulardan birinden aldım.
Sadece içindeki ingilizce yazıyı değiştirip türkçe yapmıştım sanırım. Galiba ilk editlediğim script buydu.

Kod: Tümünü seç

Option Explicit
Dim objWMIService, objProcess, colProcess
Dim strComputer, strProcessName

strComputer = "."
strProcessName = "'explorer.exe'" 

Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2") 
Set colProcess = objWMIService.ExecQuery("Select * from Win32_Process Where Name = " & strProcessName )

For Each objProcess in colProcess
	objProcess.Terminate()
Next 

Dim objWshShell
Set objWshShell = WScript.CreateObject("WScript.Shell")

objWshShell.Run "ie4uinit.exe -cleariconcache"
Wscript.Echo "İkon Önbelleğiniz Temizlendi."

[TRWE_2012]

Bendede şu var. Muhtemelen tarkan abinin açtığı konulardan birinden aldım.
Sadece içindeki ingilizce yazıyı değiştirip türkçe yapmıştım sanırım. Galiba ilk editlediğim script buydu.

Kod: Tümünü seç

Option Explicit
Dim objWMIService, objProcess, colProcess
Dim strComputer, strProcessName

strComputer = "."
strProcessName = "'explorer.exe'" 

Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2") 
Set colProcess = objWMIService.ExecQuery("Select * from Win32_Process Where Name = " & strProcessName )

For Each objProcess in colProcess
	objProcess.Terminate()
Next 

Dim objWshShell
Set objWshShell = WScript.CreateObject("WScript.Shell")

objWshShell.Run "ie4uinit.exe -cleariconcache"
Wscript.Echo "İkon Önbelleğiniz Temizlendi."

Aynı durum, sadece aynaya arkadan bakıyoruz...(sen önden bakıyorsun aynaya, ben arkadan )

[burak35]

Aynen. Böyle bir sürü script var elimde. Duruyor bi klasörde. Lazım olursa arada kullanıyorum. En çok pano temizleyiciyi kullanıyorum tabi.
Malum çok copy paste yapıyoruz çünkü.