|
Не зайти в 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
|
Форум | Правила | Описание | Объявления | Секции | Поиск | Книга знаний | Вики-миста |