Total Commander

Code: Select all

'——————————————————————— VBS ———————————————————————
' Purpose: On/off internal associations in TC
'—————————————————— Path to ТСFS2 ——————————————————
TCFS2 = """%COMMANDER_PATH%\Utils\TCFS2\TCFS2.exe"""
'——————————————————————————————— Author: Flasher © —
Set WSS = CreateObject("WScript.Shell")
Set FSO = CreateObject("Scripting.FileSystemObject")
INI = WSS.Environment("PROCESS")("COMMANDER_INI")
Text = FSO.OpenTextFile(INI, 1,, -2).ReadAll
Find1 = InStr(Text, vbLf & "[Associations]")
Find2 = InStr(Text, vbLf & "[-Associations]")
If Find1 Then
   If Mid(Text, Find1 + 17, 16) = "RedirectSection=" Then
      Str = Split(Mid(Text, Find1 + 33, 260), vbCr)(0)
      Select Case True
         Case Str = "0" Or Str = ""
         Case Str = "1"
            Str = WSS.ExpandEnvironmentStrings(Split(Mid(Text, _
            InStr(Text, vbLf & "AlternateUserIni=") + 18, 260), vbCr)(0))
            If FSO.FileExists(Str) Then
               INI  = Str
               Text = FSO.OpenTextFile(INI, 1,, -2).ReadAll
               Find1 = InStr(Text, vbLf & "[Associations]")
               Find2 = InStr(Text, vbLf & "[-Associations]")
               If Find1 Then
                  Text = Left(Text, Find1 + 1) & "-" & Mid(Text, Find1 + 2)
               ElseIf Find2 Then
                  Text = Left(Text, Find2 + 1) & Mid(Text, Find2 + 3)
               End If
            End If
         Case Else
            Str = WSS.ExpandEnvironmentStrings(Str)
            If FSO.FileExists(Str) Then
               INI = Str
               Set Text = FSO.OpenTextFile(INI, 1,, -2)
               If Not Text.AtEndOfStream Then
                  Select Case Text.ReadLine
                     Case "[Associations]" Dash = "-"
                     Case "[-Associations]"
                     Case Else WSH.Quit
                  End Select
                  Text = "[" & Dash & "Associations]" & vbCrLf & Text.ReadAll
               Else WSH.Quit() End If
            End If
      End Select
   Else Text = Left(Text, Find1 + 1) & "-" & Mid(Text, Find1 + 2)
   End If
ElseIf Find2 Then
   Text = Left(Text, Find2 + 1) & Mid(Text, Find2 + 3)
End If
If Find1 + Find2 Then
   With FSO.OpenTextFile(INI,2,,-2) .Write Text: .Close: End With
   WSS.Run TCFS2 & " /ef msg(147,0,1302100) tcm(2958)",, 1
End If
Set WSS = Nothing: Set FSO = Nothing