Batya
|
 Posted: Thu Mar 30, 2006 12:01 Post subject: |
 |
|
Скрипт vbs:
| Code: | '========================================================================
' Создание в Excel таблицы вложенных папок
' В параметрах вызова из TC должно быть прописано:
' %P
'========================================================================
Dim FSO, FoldAct, Fold, Fold1, objXL
Set FSO = CreateObject("Scripting.FileSystemObject")
Set FoldAct = FSO.GetFolder(WScript.Arguments(0))
Set objXL = WScript.CreateObject("Excel.Application")
objXL.Workbooks.Add
objXL.Cells(1,1).Value = "№"
objXL.Cells(1,2).Value = "Наименование"
objXL.Cells(1,3).Value = "Номер"
objXL.Cells(1,4).Value = "Примечание"
Dim i
i = 2
For Each Fold in FoldAct.SubFolders
For Each Fold1 in Fold.SubFolders
objXL.Cells(i, 1).Value = i - 1
objXL.Cells(i, 2).Value = Fold.Name
objXL.Cells(i, 3).Value = Fold1.Name
i = i + 1
Next
Next
objXL.Visible = True
Set FSO = Nothing
Set objXL = Nothing
Set Fold = Nothing
Set Fold1 = Nothing
Set FoldAct = Nothing
Wscript.Quit()
|
Я надеюсь, форматирование сам сделаешь?  |
|
Rules
Search
FAQ
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
