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 InStr(Lcase(objFile.Name),LCase("preferences")) = 0 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) & "***** Кэш очищен A1196 *****"