Batya
|
 Posted: Wed Mar 12, 2008 19:09 Post subject: |
 |
|
| Code: | '======================================================================
' Открытие выделенных папок в отдельных вкладках противоположной панели
' Также сразу может быть открыта вложенная папка или архив.
' Имя подпапки (архива) должно быть передано вторым параметром
' Параметры вызова из TC:
' %L {имя подпапки (архива)}
' Пример параметров:
' %L archive.zip
'======================================================================
Option Explicit
Dim Title, Mess, FSO, ListF, List, Fold, WSH, P, Add
' Проверяем параметры
Title = "Внимание!"
If WScript.Arguments.Count < 1 Then
Mess = "Неправильно указаны параметры!"
MessQuit
End If
Set FSO = CreateObject("Scripting.FileSystemObject")
Set WSH = CreateObject("WScript.Shell")
ListF = WScript.Arguments(0)
If Not FSO.FileExists(ListF) Then
Mess = "Неправильно указан файл-список обрабатываемых папок!"
MessQuit
End If
If WScript.Arguments.Count > 1 Then
Add = WScript.Arguments(1)
End If
List = Split(FSO.OpenTextFile(ListF).ReadAll, vbNewLine)
P = "/R="""
For Each Fold In List
WSH.Run """%Commander_Path%\Totalcmd.exe"" /O /S /T /P=L " & P & Fold & Add & """" , 7, True
P = "/L="""
Next
WSH.SendKeys "{TAB}"
Quit
Sub MessQuit
MsgBox Mess, vbOKOnly + vbError, Title
Quit
End Sub
Sub Quit
Set FSO = Nothing
Set WSH = Nothing
Wscript.Quit
End Sub
|
_________________
Нет, я не сплю. Я просто медленно моргаю.
Last edited by Batya on Thu Mar 13, 2008 00:30; edited 1 time in total |
|
Rules
Search
FAQ
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
