Set fso = CreateObject("Scripting.FileSystemObject")
Set WshShell = CreateObject("WScript.Shell")
' Получаем путь к AppData\Roaming
Set strFolder = fso.GetFolder(WshShell.ExpandEnvironmentStrings("%APPDATA%"))
' Новый путь к кэшу Мир Танков
TempGameFolder = strFolder & "\Lesta\MirTankov"
Set objFSO = CreateObject("Scripting.FileSystemObject")
' Проверяем существование папки
If objFSO.FolderExists(TempGameFolder) Then
Set objFolder = objFSO.GetFolder(TempGameFolder)
' Удаление файлов кроме preferences
For Each objFile In objFolder.Files
If InStr(LCase(objFile.Name), LCase("preferences")) = 0 Then
On Error Resume Next
objFSO.DeleteFile objFile.Path, True
On Error GoTo 0
End If
Next
' Удаление всех подпапок
For Each objSubFolder In objFolder.SubFolders
On Error Resume Next
objFSO.DeleteFolder objSubFolder.Path, True
On Error GoTo 0
Next
MsgBox "Кэш очищен с сохранением настроек игры:" & vbCrLf & _
TempGameFolder, 64, "Мир Танков"
Else
MsgBox "Папка кэша не найдена:" & vbCrLf & _
TempGameFolder, 48, "Ошибка"
End If