'=====================================================================
' Открытие выделенных папок/архивов в отдельных вкладках другой панели
' Параметр: %L
'=====================================================================
With CreateObject("WScript.Shell")
For Each Fold In Split(CreateObject("Scripting.FileSystemObject").OpenTextFile(WScript.Arguments(0)).ReadAll, vbNewLine)
.Run """%COMMANDER_EXE%"" /O /S /T /R=""" & Fold & """", 7, True
Next
.SendKeys "{TAB}"
End With
Rules
Search
FAQ
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
