Cuestión : Cómo agrego mi cualidad inalterable detrás con una escritura de .vb

Hola - el

I que intenta agregar una cualidad inalterable de nuevo a un archivo vía vbscript, pero yo está consiguiendo stumped por algo que puedo pasar por alto y esperanzadamente soy fácil. ¿Como usted puede ver de mi recorte de código, primero quito el ajuste inalterable que trabaja muy bien pero después de que me hacen con el reemplazo del archivo, intento agregar el re-add la cualidad inalterable detrás y no lo hace apenas no lo hace work.

What es yo que hace mal?

Thanks,
Jim class= > " claro " del
> del " codeSnippet " del class= del
class= " lineNumbers " del
class= del 
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:
curriculum vitae notpretty del error del >On " del class= " de " codeSnippet850177 del id= del
class= del

Respuesta : Cómo agrego mi cualidad inalterable detrás con una escritura de .vb

Parece su sintaxis estaba apenas de un pedacito.  Intentar este código.
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:

En error reasumir después
Const ForReading = 1, ForWriting = 2, ForAppending = 8
Fijar WshShell = WScript.CreateObject (“WScript.Shell”)
Fijar FSO = CreateObject (“Scripting.FileSystemObject”)

'Declaraciones variables
ProgramFiles = WshShell.ExpandEnvironmentStrings (“%ProgramFiles%")
SystemDrive = WshShell.ExpandEnvironmentStrings (“%SystemDrive%")
SystemRoot = WshShell.ExpandEnvironmentStrings (“%SystemRoot%")
AllUsersProfile = WshShell.ExpandEnvironmentStrings (“%ALLUSERSPROFILE%")
ScriptFullName = WScript.ScriptFullName
ScriptName = WScript.ScriptName
InstallDir = ido (ScriptFullName, Len (ScriptFullName) - Len (ScriptName) - 1) y “\”
WshShell.CurrentDirectory = InstallDir 
ManagedMarker=InstallDir y “\ Success.txt”
CfgXML= " Configuration.xml "
CfgXMLbkp= " configuration1.old "
CfgXMLPath= " \ datos de uso \ cliente \ sistema seguros de Cisco \ de los servicios de Cisco \ “

'Crear el archivo de registro
Fijar InstLogFile = fso.CreateTextFile (ScriptFullName y “. Registro”, verdades)
InstLogFile.WriteLine ahora () y “comenzando la instalación del """ y ScriptFullName y """.”


Si fso.fileexists (AllUsersProfile y CfgXMLPath y CfgXML) entonces
	'fichero de archivo
	objFile determinado = FSO.GetFile (AllUsersProfile y CfgXMLPath y CfgXML)

	Si objFile.Attributes Y 1 entonces
	    objFile.Attributes = objFile.Attributes - 1
	Terminar si

	InstLogFile.WriteLine ahora () y “encontró “Configuration.xml” en la trayectoria de Allusers.  Apoyándolo.”
	fso.CopyFile AllUsersProfile y CfgXMLPath y CfgXML, AllUsersProfile y CfgXMLPath y CfgXMLbkp
	
	'copiar el nuevo archivo
	InstLogFile.WriteLine ahora () y “reemplazo/que inserta nuevo “Configuration.xml”.”
	fso.deletefile AllUsersProfile y CfgXMLPath y cfgXML
	fso.copyfile InstallDir y cfgxml, AllUsersProfile y CfgXMLPath y cfgXML

	Si no objFile.Attributes Y 1 entonces
	    objFile.Attributes = objFile.Attributes + 1
	Terminar si

	InstLogFile.WriteLine ahora () y ““Configuration.xml” no encontrado.  CSSC presuntuosos no instalados.”

Terminar si

InstLogFile.writeline ahora () y la “instalación del """ y ScriptFullName y el """ es Finished.”
InstLogFile.Close ()
Fijan InstLogFile = nada

Fijar FSO = nada
Fijar WshShell = nada
Otras soluciones  
 
programming4us programming4us