Имя: Пароль:
1C
1С v8
Не зайти в 1с Предприятие
,
0 sidalexsandr
 
25.04.17
15:28
Вот ссылка на фото с ошибкой: http://s013.radikal.ru/i324/1704/29/ed2b7a1a937e.jpg
1 Масянька
 
25.04.17
15:29
(0) А еще меньше картинку сделать - не вариант?
2 Бычье сердце
 
25.04.17
15:30
(1) +1. Глаза сломал.
3 X Leshiy
 
25.04.17
15:43
(0) Чистить кэш.
4 sidalexsandr
 
25.04.17
16:21
(3) Подробней, какие каталоги?
5 ТакВотЖе
 
25.04.17
16:22
удалить базу из окошка запуска и заново добавить
6 X Leshiy
 
25.04.17
16:27
7 X Leshiy
 
25.04.17
16:29
(6) c:\Users\пользователь\AppData\Local\1C\1cv8\
8 X Leshiy
 
25.04.17
16:30
(7) Все папки такого вида: f25898b4-80d3-4f21-b2f7-2736920fde54
9 X Leshiy
 
25.04.17
16:30
А вообще, есть чудесный скрипт

Dim FSO

Set FSO = WScript.CreateObject("Scripting.FileSystemObject")

Set WshShell = WScript.CreateObject("WScript.Shell")

Set colEnvVars = WshShell.Environment("Process")



FolderName1 = "\Local Settings\Application Data\1C\1Cv82"

FolderName2 = "\Local Settings\Application Data\1C\1Cv81"

FolderName3 = "\Local Settings\Application Data\1C\1Cv80"

FolderName4 = "\Local Settings\Application Data\1C\1Cv8"



If FSO.FolderExists(colEnvVars("userprofile") & FolderName1) Then

    GoSubFolders colEnvVars("userprofile") & FolderName1

End If

If FSO.FolderExists(colEnvVars("userprofile") & FolderName2) Then

GoSubFolders colEnvVars("userprofile") & FolderName2

End If

If FSO.FolderExists(colEnvVars("userprofile") & FolderName3) Then

    GoSubFolders colEnvVars("userprofile") & FolderName3

End If

If FSO.FolderExists(colEnvVars("userprofile") & FolderName4) Then

    GoSubFolders colEnvVars("userprofile") & FolderName4

End If

rem WScript.Echo "OK"



Sub DelFile(sFILE)

    On Error Resume Next

    FSO.DeleteFile sFILE, True

    If Err.Number <> 0 Then

        Wscript.Echo "Error deleting file: " & sFILE

    End If

End sub



Function GetFolder(sFOLDER)

    On Error Resume Next

    Set GetFolder = FSO.GetFolder(sFOLDER)

    If Err.Number <> 0 Then

        Wscript.Echo "Error connecting to folder:" & sFOLDER & VBlf & "[" & Err.Number & "]" & Err.Description

        Wscript.Quit Err.Number

    End If

End Function



Sub GoSubFolders (objDIR)

    ProcessFilesInFolder objDIR

    Set sFolder = GetFolder(objDIR)

    For Each eFolder in sFolder.SubFolders

        GoSubFolders eFolder

    Next

    FSO.DeleteFolder sFolder, True

End Sub



Sub ProcessFilesInFolder (objDIR)

    Set sFolder = GetFolder(objDIR)

    For Each objFile in sFolder.Files

        DelFile objFile

    Next

End Sub
10 X Leshiy
 
25.04.17
16:31
Сохранить как .vbs