View previous topic :: View next topic |
Author |
Message |
visual
Joined: 14 Jun 2005 Posts: 42
|
|
Back to top |
|
 |
Batya

Joined: 15 Dec 2004 Posts: 2226 Location: Москва, Россия
|
(Separately) Posted: Thu Mar 30, 2006 11:48 Post subject: |
|
|
visual
А при чем здесь TC?
Нужен список для отмеченных папок или всех вложенных папок в текущей? |
|
Back to top |
|
 |
visual
Joined: 14 Jun 2005 Posts: 42
|
(Separately) Posted: Thu Mar 30, 2006 11:52 Post subject: |
|
|
потому что все делаю с помощью TC
для вложенных в текущей. |
|
Back to top |
|
 |
Batya

Joined: 15 Dec 2004 Posts: 2226 Location: Москва, Россия
|
(Separately) 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()
|
Я надеюсь, форматирование сам сделаешь?  |
|
Back to top |
|
 |
visual
Joined: 14 Jun 2005 Posts: 42
|
(Separately) Posted: Thu Mar 30, 2006 12:09 Post subject: |
|
|
Всмысле? что за форматирование? |
|
Back to top |
|
 |
visual
Joined: 14 Jun 2005 Posts: 42
|
(Separately) Posted: Thu Mar 30, 2006 12:21 Post subject: |
|
|
а в таблице то ага сам
Спасибо большое, ты настоящий друг! |
|
Back to top |
|
 |
Batya

Joined: 15 Dec 2004 Posts: 2226 Location: Москва, Россия
|
(Separately) Posted: Thu Mar 30, 2006 12:22 Post subject: |
|
|
visual
В смысле шрифт, ширина колонок, тип данных в ячейках, рамки. |
|
Back to top |
|
 |
Lexo
Joined: 18 Nov 2005 Posts: 6
|
|
Back to top |
|
 |
|