BoBaH 13 57 Posted January 2, 2015 Есть .vbs который зачищает кэш игры оставляя только файл preferences.xml. Что и где надо приписать чтоб оставлял файлы касаемые работы xvm? Set fso = CreateObject("Scripting.FileSystemObject") Set WshShell = CreateObject("WScript.Shell") Set strFolder = fso.GetFolder(WshShell.ExpandEnvironmentStrings("%APPDATA%")) TempGameFolder = (strFolder & "\" & "Wargaming.net" & "\" & "WorldOfTanks") Set objFSO=Createobject("Scripting.Filesystemobject") Set objFolder=objFSO.GetFolder(TempGameFolder) Set objFiles=objFolder.Files For Each objFile In objFiles If objFile.Name <> "preferences.xml" Then objFSO.DeleteFile TempGameFolder & "\" & objFile.Name, True End if Next For Each objSubFolder In objFolder.SubFolders objFSO.DeleteFolder TempGameFolder & "\" & objSubFolder.Name Next MsgBox TempGameFolder & chr(13) & oFolder & chr(13) & TempSysFolder & chr(13) & chr(13) & chr(13) & " ----- ОЧИЩЕНО -----" Очистка кеш.rar Quote Share this post Link to post Short link Share on other sites
seriych 2,178 #241092 Posted January 2, 2015 Если я не ошибаюсь, надо заменить это: For Each objSubFolder In objFolder.SubFolders objFSO.DeleteFolder TempGameFolder & "\" & objSubFolder.Name Next на это For Each objSubFolder In objFolder.SubFolders If objSubFolder.Name <> "xvm" Then objFSO.DeleteFolder TempGameFolder & "\" & objSubFolder.Name End if Next не проверял 1 Quote Share this post Link to post Short link Share on other sites
BoBaH 13 57 #241097 Posted January 2, 2015 Я то без хвм катаюсь, а те кто с ним говорят что после его зачистки приходится активировать статистику. Да и папки там xvm нету... Quote Share this post Link to post Short link Share on other sites
seriych 2,178 #241138 Posted January 2, 2015 (edited) Да и папки там xvm нету... Я то без хвм катаюсь1+1 Кстати, а нафига полный перебор делать, удаляя файлы и папки по одному, если можно просто перенести во временную, удалить папку и переименовать временную обратно в варгейминговскую? * еще preferences_ct.xml не надо удалять Edited January 2, 2015 by seriych Quote Share this post Link to post Short link Share on other sites
Slava7572 1,685 #241183 Posted January 3, 2015 Я то без хвм катаюсь, а те кто с ним говорят что после его зачистки приходится активировать статистику. Да и папки там xvm нету... Как нету? Quote Share this post Link to post Short link Share on other sites
BoBaH 13 57 #241190 Posted January 3, 2015 1+1 Тема про этот скрипт поднята на соседнем сайте. Пользователи xvm жалуются на сброс его активации. Решил помочь. Quote Share this post Link to post Short link Share on other sites
BoBaH 13 57 #255206 Posted February 27, 2015 Модернизированный вышеуказанный скрипт очистки кэша. Оставляет папку XVM, и все preferences-ы. Т.е. не затрагивает статистику XVM и графические настройки основной и тестовой версии. Set fso = CreateObject("Scripting.FileSystemObject") Set WshShell = CreateObject("WScript.Shell") Set strFolder = fso.GetFolder(WshShell.ExpandEnvironmentStrings("%APPDATA%")) TempGameFolder = (strFolder & "\" & "Wargaming.net" & "\" & "WorldOfTanks") Set objFSO=Createobject("Scripting.Filesystemobject") Set objFolder=objFSO.GetFolder(TempGameFolder) Set objFiles=objFolder.Files For Each objFile In objFiles If objFile.Name <> "preferences.xml" And objFile.Name <> "preferences_ct.xml" And objFile.Name <> "preferences_ctp.xml" Then objFSO.DeleteFile TempGameFolder & "\" & objFile.Name, True End if Next For Each objSubFolder In objFolder.SubFolders If objSubFolder.Name <> "xvm" Then objFSO.DeleteFolder TempGameFolder & "\" & objSubFolder.Name End if Next MsgBox TempGameFolder & chr(13) & oFolder & chr(13) & TempSysFolder & chr(13) & chr(13) & chr(13) & " ----- ОЧИЩЕНО -----" WoT CacheCleaner.zip 1 Quote Share this post Link to post Short link Share on other sites