Total Commander Forum Index Total Commander
Форум поддержки пользователей Total Commander
Сайты: Все о Total Commander | Totalcmd.net | Ghisler.com | RU.TCKB
 
 RulesRules   SearchSearch   FAQFAQ   MemberlistMemberlist   UsergroupsUsergroups   RegisterRegister 
 ProfileProfile   Log in to check your private messagesLog in to check your private messages   Log inLog in 

Список папок из тотала в ворд в виде таблицы

 
Post new topic   Reply to topic    Total Commander Forum Index -> Общие вопросы printer-friendly view
View previous topic :: View next topic  
Author Message
visual



Joined: 14 Jun 2005
Posts: 42

Post (Separately) Posted: Thu Mar 30, 2006 11:12    Post subject: Список папок из тотала в ворд в виде таблицы Reply with quote

Помогите сделать следующее:
Имеются Папки с вложеными подпапками "первого уровня" (то есть в каждой Папке может содержаться от 1 до N количества папок в которых содержаться только файлы, но список из фалов не нужен). http://forum.ixbt.com/post.cgi?id=attach:23:31411:0:1
нужно сделать так чтобы получилась таблица в ворде или экселе следующего вида
http://forum.ixbt.com/post.cgi?id=attach:23:31411:0:2
Спасибо всем кто поможет![/url]
Back to top
View user's profile Send private message  
Batya



Joined: 15 Dec 2004
Posts: 2226
Location: Москва, Россия

Post (Separately) Posted: Thu Mar 30, 2006 11:48    Post subject: Reply with quote

visual
А при чем здесь TC? Wink
Нужен список для отмеченных папок или всех вложенных папок в текущей?
Back to top
View user's profile Send private message  
visual



Joined: 14 Jun 2005
Posts: 42

Post (Separately) Posted: Thu Mar 30, 2006 11:52    Post subject: Reply with quote

потому что все делаю с помощью TC Smile
для вложенных в текущей.
Back to top
View user's profile Send private message  
Batya



Joined: 15 Dec 2004
Posts: 2226
Location: Москва, Россия

Post (Separately) Posted: Thu Mar 30, 2006 12:01    Post subject: Reply with quote

Скрипт 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()


Я надеюсь, форматирование сам сделаешь? Wink
Back to top
View user's profile Send private message  
visual



Joined: 14 Jun 2005
Posts: 42

Post (Separately) Posted: Thu Mar 30, 2006 12:09    Post subject: Reply with quote

Всмысле? что за форматирование?
Back to top
View user's profile Send private message  
visual



Joined: 14 Jun 2005
Posts: 42

Post (Separately) Posted: Thu Mar 30, 2006 12:21    Post subject: Reply with quote

а в таблице то ага сам Smile
Спасибо большое, ты настоящий друг!
Back to top
View user's profile Send private message  
Batya



Joined: 15 Dec 2004
Posts: 2226
Location: Москва, Россия

Post (Separately) Posted: Thu Mar 30, 2006 12:22    Post subject: Reply with quote

visual
В смысле шрифт, ширина колонок, тип данных в ячейках, рамки.
Back to top
View user's profile Send private message  
Lexo



Joined: 18 Nov 2005
Posts: 6

Post (Separately) Posted: Mon Apr 03, 2006 17:06    Post subject: Reply with quote

privet visual and Batya

ia ispolzuiu CatalogMaker 2.4. umania shtuka esli priglidetsa Smile
http://wincmd.ru/plugring/catalogmaker.html
mojet i vam prigaditsa.

Lexo
Back to top
View user's profile Send private message  
Display posts from previous:   
Post new topic   Reply to topic    Total Commander Forum Index -> Общие вопросы All times are GMT + 4 Hours
Page 1 of 1

 
Jump to:  
You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum


Powered by phpBB © 2001, 2005 phpBB Group