 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) & "  -----  Î×ÈÙÅÍÎ  -----"