Вопрос : Как я добавляю мой атрибут только для чтения назад с сценарием .vb

Hi -

I am пытаясь добавить атрибут только для чтения назад к архиву через vbscript, но я получаем stumped что-то которое я могу обозревать и многообещающий легок. По мере того как вы можете увидеть от моего фрагмента Кодего, я сперва извлекаю установку только для чтения которая работает отлично но после того как я сделан с заменять ть архив, я пытаюсь добавить re-add атрибут только для чтения назад и он не делает как раз не делает work.

What будет мной делая неправильно?

Thanks,
Jim class= " ясное " >
> " codeSnippet " class=
class= " lineNumbers "
class= 
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
резюме ошибки >On " class= " " codeSnippet850177 id=
class=

Ответ : Как я добавляю мой атрибут только для чтения назад с сценарием .vb

Смотрит как ваш синтаксис был как раз с бита.  Попытайтесь это Кодий.
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:

На ошибке возобновьте затем
Const ForReading = 1, ForWriting = 2, ForAppending = 8
Установите WshShell = WScript.CreateObject («WScript.Shell»)
Установите FSO = CreateObject («Scripting.FileSystemObject»)

'Переменные объявления
ProgramFiles = WshShell.ExpandEnvironmentStrings («%ProgramFiles%")
SystemDrive = WshShell.ExpandEnvironmentStrings («%SystemDrive%")
SystemRoot = WshShell.ExpandEnvironmentStrings («%SystemRoot%")
AllUsersProfile = WshShell.ExpandEnvironmentStrings («%ALLUSERSPROFILE%")
ScriptFullName = WScript.ScriptFullName
ScriptName = WScript.ScriptName
InstallDir = после того как я о (ScriptFullName, Len (ScriptFullName) - Len (ScriptName) - 1) & «\»
WshShell.CurrentDirectory = InstallDir 
ManagedMarker=InstallDir & «\ Success.txt»
CfgXML= " Configuration.xml "
CfgXMLbkp= " configuration1.old "
CfgXMLPath= " \ данные по применения \ клиент \ система Cisco \ обслуживаний Cisco безопасный \ «

'Создайте Logfile
Установите InstLogFile = fso.CreateTextFile (ScriptFullName & «. Журнал», поистине)
InstLogFile.WriteLine теперь () & «начинающ установку """ & ScriptFullName & """.»


Если fso.fileexists (AllUsersProfile & CfgXMLPath & CfgXML) после этого
	'архивный файл
	Установленное objFile = FSO.GetFile (AllUsersProfile & CfgXMLPath & CfgXML)

	Если objFile.Attributes И 1 после этого
	    objFile.Attributes = objFile.Attributes - 1
	Закончитесь если

	InstLogFile.WriteLine теперь () & «нашло «Configuration.xml» в курсе Allusers.  Подпирающ его вверх.»
	fso.CopyFile AllUsersProfile & CfgXMLPath & CfgXML, AllUsersProfile & CfgXMLPath & CfgXMLbkp
	
	'скопируйте новый архив
	InstLogFile.WriteLine теперь () & «заменять ть/вводя новое «Configuration.xml».»
	fso.deletefile AllUsersProfile & CfgXMLPath & cfgXML
	fso.copyfile InstallDir & cfgxml, AllUsersProfile & CfgXMLPath & cfgXML

	Если не objFile.Attributes И 1 после этого
	    objFile.Attributes = objFile.Attributes + 1
	Закончитесь если
Еще
	InstLogFile.WriteLine теперь () & ««ое Configuration.xml».  Принимая установленные CSSC.»

Закончитесь если

InstLogFile.writeline теперь () & «установка """ & ScriptFullName & """ законченный.»
InstLogFile.Close ()
Установите InstLogFile = ничего

Установите FSO = ничего
Установите WshShell = ничего
Другие решения  
  •  Как я добавляю кнопки на форме PDF для того чтобы добавить/извлекаю рядки данных?
    •
  •  Шнур ошибки в блоке задвижки?
    •
  •  сколько вариант сервера SQL на одной машине
    •
  •  Внешний вид 2007 не может архивный файл открытой сети сохраненный
    •
  •  Активно директория DNS записывает вопрос
    •
  •  Отчет о доступа 2010 экспорта к CSV с коллекторами?
    •
  •  Прокладчик OCE 9400 не начинает
    •
  •  как добавить десятичное место в формуле в отчете о кристалла seagate
    •
  •  Windows XP и Мичрософт Оутлоок и проблемы установителя Windows
    •
  •  VB6 к VS2010 - консультации тренировки?
    •
     
    programming4us programming4us