Jump to content
Korean Random
BoBaH 13

Скрипт "Очистка кэша"

Recommended Posts

Есть .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

Share this post


Link to post

Short link
Share on other sites

Если я не ошибаюсь, надо заменить это:

            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
не проверял
  • Upvote 1

Share this post


Link to post

Short link
Share on other sites

Я то без хвм катаюсь, а те кто с ним говорят что после его зачистки приходится активировать статистику.

Да и папки там xvm нету...

 

post-17199-0-35012000-1420222473_thumb.jpg

Share this post


Link to post

Short link
Share on other sites

Да и папки там xvm нету...

Я то без хвм катаюсь

1+1

 

Кстати, а нафига полный перебор делать, удаляя файлы и папки по одному, если можно просто перенести во временную, удалить папку и переименовать временную обратно в варгейминговскую?

* еще preferences_ct.xml не надо удалять

Edited by seriych

Share this post


Link to post

Short link
Share on other sites

Я то без хвм катаюсь, а те кто с ним говорят что после его зачистки приходится активировать статистику.

Да и папки там xvm нету...

Как нету?

f4a591fc2673.jpg

Share this post


Link to post

Short link
Share on other sites

 

 

1+1

Тема про этот скрипт поднята на соседнем сайте. Пользователи xvm жалуются на сброс его активации. Решил помочь. 

Share this post


Link to post

Short link
Share on other sites

Модернизированный вышеуказанный скрипт очистки кэша.

Оставляет папку 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

  • Upvote 1

Share this post


Link to post

Short link
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Reply to this topic...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.


  • Recently Browsing   0 members

    No registered users viewing this page.

×
×
  • Create New...