Batya
|
 Posted: Fri Jan 27, 2006 17:01 Post subject: |
 |
|
Другой вариант - изменения показываю в Excell:
| Code: | '========================================================================
' Сравнивание папок в панелях TC на имена и количество вложенных подпапок
' В параметрах вызова из TC должно быть прописано (2 пар. через пробел):
' %P %T
'========================================================================
Dim FSO, FoldAct, FoldPas, Fold, objXL
Set FSO = CreateObject("Scripting.FileSystemObject")
Set FoldAct = FSO.GetFolder(WScript.Arguments(0))
Set FoldPas = FSO.GetFolder(WScript.Arguments(1))
Set objXL = WScript.CreateObject("Excel.Application")
objXL.Workbooks.Add
Dim i, j
i = 1
j = 1
objXL.Cells(i,1).Value = FoldAct.Path
objXL.Cells(j,2).Value = FoldPas.Path
For Each Fold in FoldAct.SubFolders
If Not FSO.FolderExists(FoldPas.Path & "\" & Fold.Name) Then
i = i + 1
objXL.Cells(i,1).Value = Fold.Name
Elseif Fold.SubFolders.Count <> _
FSO.GetFolder(FoldPas.Path & "\" & Fold.Name).SubFolders.Count Then
i = i + 1
objXL.Cells(i,1).Value = Fold.Name
j = j + 1
objXL.Cells(j,2).Value = Fold.Name
End If
Next
For Each Fold in FoldPas.SubFolders
If Not FSO.FolderExists(FoldAct.Path & "\" & Fold.Name) Then
j = j + 1
objXL.Cells(j,2).Value = Fold.Name
End If
Next
objXL.Visible = True
Set FSO = Nothing
Set objXL = 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
