Цитата la_vanille_ciel:
|
а еще как проверить, существует такая ветка или нет
|
Я предлагал вариант в 11-м посту.
Первая строчка
On Error Resume Next означает, что мы берем на себя контроль ошибок.
Дальше:
Код:
P = ""
P = WSh.RegRead( ...
If FSO.FolderExists(P) Then ...
Если раздел реестра (или параметр в нем) не существует, RegRead не выполняется (из-за ошибки) и значение переменной P остается равным предыдущему "". В этом случае FSO.FolderExists(P) возвращает False (и если папка не существует, тоже).
Таким образом, для разных версий автокада достаточно размножить эти фрагменты:
Код:
P = ""
P = WSh.RegRead( ...
If FSO.FolderExists(P) Then ...
P = ""
P = WSh.RegRead( ...
If FSO.FolderExists(P) Then ...
(и т. д.).
