' Переименование секции [Associations] в [-Associations] и обратно
' Кнопка вкл\выкл внутренних ассоциаций
Option Explicit
Dim FSO, F, Str1, Str2, Text, TCS
Set FSO = CreateObject("Scripting.FileSystemObject")
Set TCS = CreateObject("TCScript.Helper")
With WScript
F = "%COMMANDER_PATH%\WinCmd.ini"
Str1 = "[Associations]"
Str2 = "[-Associations]"
End With
F = FSO.GetAbsolutePathName(CreateObject("WScript.Shell").ExpandEnvironmentStrings(F))
If bCheck Then
Text = FSO.OpenTextFile(F, 1).ReadAll
Text = Replace(Text, Str2, Str1, 1, -1, 1)
FSO.OpenTextFile(F, 2).Write Text
Else
Text = FSO.OpenTextFile(F, 1).ReadAll
Text = Replace(Text, Str1, Str2, 1, -1, 1)
FSO.OpenTextFile(F, 2).Write Text
End If
Set TCS=Nothing
WScript.Quit
Function bCheck()
Dim sFile
sFile=WScript.ScriptFullName
bCheck=TCS.INIRead(sFile, "Ass", "Line", 0)
TCS.INIWrite sFile, "Ass", "Line", Not bCheck
End Function
[Ass]
Line =0
|