Batya
|
 Posted: Fri Jan 27, 2006 16:49 Post subject: |
 |
|
Хм... Не понятно.
Ладно, давай попробуем по-другому:
| Code: | '========================================================================
' Сравнивание папок в панелях TC на имена и количество вложенных подпапок
' В параметрах вызова из TC должно быть прописано (2 пар. через пробел):
' %P %T
'========================================================================
Dim FSO, TCS, FoldAct, FoldPas, Fold, WS
Set WS = WScript.CreateObject("WScript.Shell")
Set FSO = CreateObject("Scripting.FileSystemObject")
Set TCS = CreateObject("TCScript.Helper")
Set FoldAct = FSO.GetFolder(WScript.Arguments(0))
Set FoldPas = FSO.GetFolder(WScript.Arguments(1))
Dim SelectList1, SelectList2
SelectList1 = ""
SelectList2 = ""
For Each Fold in FoldAct.SubFolders
If Not FSO.FolderExists(FoldPas.Path & "\" & Fold.Name) Then
SelectList1 = SelectList1 & ";" & Fold.Name
Elseif Fold.SubFolders.Count <> _
FSO.GetFolder(FoldPas.Path & "\" & Fold.Name).SubFolders.Count Then
SelectList1 = SelectList1 & ";" & Fold.Name
SelectList2 = SelectList2 & ";" & Fold.Name
End If
Next
For Each Fold in FoldPas.SubFolders
If Not FSO.FolderExists(FoldAct.Path & "\" & Fold.Name) Then
SelectList2 = SelectList2 & ";" & Fold.Name
End If
Next
TCS.LockTC True
TCS.Pause = 10
If Len(SelectList1) > 0 Then
SelectList1 = Mid(SelectList1, 2)
TCS.SendCommand 521 'cm_SpreadSelection
WS.SendKeys SelectList1 & "{ENTER}"
End If
If Len(SelectList2) > 0 Then
SelectList2 = Mid(SelectList2, 2)
WS.SendKeys "{TAB}"
TCS.SendCommand 521 'cm_SpreadSelection
WS.SendKeys SelectList2 & "{ENTER}"
WS.SendKeys "{TAB}"
End If
TCS.LockTC False
Set FSO = Nothing
Set TCS = Nothing
Set Fold = Nothing
Set FoldAct = Nothing
Set FoldPas = Nothing
Wscript.Quit()
|
|
|
Rules
Search
FAQ
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
