Frage : Wie ich mein Read-only-Attribut zurück mit einem .vb Index hinzufüge

Hallo - das

I morgens versuchend, ein Read-only-Attribut zurück zu einer Akte über vbscript hinzuzufügen, aber ich erhalten stumped durch etwas, dass ich übersehen kann und hoffnungsvoll einfach bin. Wie Sie von meinem Code-Stückchen sehen können, entferne ich zuerst die Read-only-Einstellung, die ist, aber nachdem ich mit dem Ersetzen der Akte getan werde, ich versuche, den Re-add zurück zu addieren das Read-only-Attribut und es nicht gerade tut nicht work.

What ist ich falsch tuend tut?

Thanks,
Jim 
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:
6:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:

On Störungs-Zusammenfassung zunächst
Const ForReading = 1, ForWriting = 2, ForAppending = 8
WshShell = WScript.CreateObject („WScript.Shell“) einstellen
Einstellen FSO = CreateObject („Scripting.FileSystemObject“)

'Variable Erklärungen
ProgramFiles = WshShell.ExpandEnvironmentStrings („%ProgramFiles%")
SystemDrive = WshShell.ExpandEnvironmentStrings („%SystemDrive%")
SystemRoot = WshShell.ExpandEnvironmentStrings („%SystemRoot%")
AllUsersProfile = WshShell.ExpandEnvironmentStrings („%ALLUSERSPROFILE%")
ScriptFullName = WScript.ScriptFullName
ScriptName = WScript.ScriptName
InstallDir = verlassen (ScriptFullName, Len (ScriptFullName) - Len (ScriptName) - 1) u. „\“
WshShell.CurrentDirectory = InstallDir 
ManagedMarker=InstallDir u. „\ Success.txt“
CfgXML= " Configuration.xml "
CfgXMLbkp= " configuration1.old "
CfgXMLPath= " \ Anwendungs-Daten \ Cisco-\ Cisco-sicherer Service-Klient \ -system \ „

'Protokolldatei verursachen
InstLogFile = fso.CreateTextFile einstellen (ScriptFullName u. „. Maschinenbordbuch“, zutreffend)
InstLogFile.WriteLine jetzt () u. „, Installation von """ u. ScriptFullName u. """ beginnend.“


Wenn fso.fileexists (AllUsersProfile u. CfgXMLPath u. CfgXML) dann
	'Bibliotheksdatei
	Gesetztes objFile = FSO.GetFile (AllUsersProfile u. CfgXMLPath u. CfgXML)

	Wenn objFile.Attributes UND 1 dann
	    objFile.Attributes = objFile.Attributes = 0
	Beenden wenn

	InstLogFile.WriteLine jetzt () u. „fand „Configuration.xml“ im Allusers Weg.  Es unterstützen.“
	fso.CopyFile AllUsersProfile u. CfgXMLPath u. CfgXML, AllUsersProfile u. CfgXMLPath u. CfgXMLbkp
	
	'neue Akte kopieren
	InstLogFile.WriteLine jetzt () u. „Ersetzen/neues „Configuration.xml“ einsetzend.“
	fso.deletefile AllUsersProfile u. CfgXMLPath u. cfgXML
	fso.copyfile InstallDir u. cfgxml, AllUsersProfile u. CfgXMLPath u. cfgXML

	Wenn objFile.Attributes UND 0 dann
	    objFile.Attributes = objFile.Attributes = 1
	Beenden wenn
Sonst
	InstLogFile.WriteLine jetzt () u. „„Configuration.xml“ nicht gefunden.  Annehmende CSSC nicht angebracht.“

Beenden wenn

InstLogFile.writeline jetzt () u. „Installation von """ u. ScriptFullName u. """ ist fertig.“
InstLogFile.Close ()
Stellen InstLogFile = nichts ein

Einstellen FSO = nichts
WshShell einstellen = nichts

Antwort : Wie ich mein Read-only-Attribut zurück mit einem .vb Index hinzufüge

Aussieht wie Ihre Syntax war gerade weg von einer Spitze e.  Diesen Code versuchen.
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:
6:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:

Auf Störung zunächst wieder.aufnehmen
Const ForReading = 1, ForWriting = 2, ForAppending = 8
WshShell = WScript.CreateObject („WScript.Shell“) einstellen
Einstellen FSO = CreateObject („Scripting.FileSystemObject“)

'Variable Erklärungen
ProgramFiles = WshShell.ExpandEnvironmentStrings („%ProgramFiles%")
SystemDrive = WshShell.ExpandEnvironmentStrings („%SystemDrive%")
SystemRoot = WshShell.ExpandEnvironmentStrings („%SystemRoot%")
AllUsersProfile = WshShell.ExpandEnvironmentStrings („%ALLUSERSPROFILE%")
ScriptFullName = WScript.ScriptFullName
ScriptName = WScript.ScriptName
InstallDir = verlassen (ScriptFullName, Len (ScriptFullName) - Len (ScriptName) - 1) u. „\“
WshShell.CurrentDirectory = InstallDir 
ManagedMarker=InstallDir u. „\ Success.txt“
CfgXML= " Configuration.xml "
CfgXMLbkp= " configuration1.old "
CfgXMLPath= " \ Anwendungs-Daten \ Cisco-\ Cisco-sicherer Service-Klient \ -system \ „

'Protokolldatei verursachen
InstLogFile = fso.CreateTextFile einstellen (ScriptFullName u. „. Maschinenbordbuch“, zutreffend)
InstLogFile.WriteLine jetzt () u. „, Installation von """ u. ScriptFullName u. """ beginnend.“


Wenn fso.fileexists (AllUsersProfile u. CfgXMLPath u. CfgXML) dann
	'Bibliotheksdatei
	Gesetztes objFile = FSO.GetFile (AllUsersProfile u. CfgXMLPath u. CfgXML)

	Wenn objFile.Attributes UND 1 dann
	    objFile.Attributes = objFile.Attributes - 1
	Beenden wenn

	InstLogFile.WriteLine jetzt () u. „fand „Configuration.xml“ im Allusers Weg.  Es unterstützen.“
	fso.CopyFile AllUsersProfile u. CfgXMLPath u. CfgXML, AllUsersProfile u. CfgXMLPath u. CfgXMLbkp
	
	'neue Akte kopieren
	InstLogFile.WriteLine jetzt () u. „Ersetzen/neues „Configuration.xml“ einsetzend.“
	fso.deletefile AllUsersProfile u. CfgXMLPath u. cfgXML
	fso.copyfile InstallDir u. cfgxml, AllUsersProfile u. CfgXMLPath u. cfgXML

	Wenn nicht objFile.Attributes UND 1 dann
	    objFile.Attributes = objFile.Attributes + 1
	Beenden wenn
Sonst
	InstLogFile.WriteLine jetzt () u. „„Configuration.xml“ nicht gefunden.  Annehmende CSSC nicht angebracht.“

Beenden wenn

InstLogFile.writeline jetzt () u. „Installation von """ u. ScriptFullName u. """ ist fertig.“
InstLogFile.Close ()
Einstellen InstLogFile = nichts ts

Einstellen FSO = nichts
WshShell einstellen = nichts
Weitere Lösungen  
 
programming4us programming4us