Имя пользователя:
Пароль:  
Помощь | Регистрация | Забыли пароль?  | Правила  

Компьютерный форум OSzone.net » Программирование, базы данных и автоматизация действий » Скриптовые языки администрирования Windows » Любой язык - Структура папок

Ответить
Настройки темы
Любой язык - Структура папок

Аватара для JimmOnLine

Пользователь


Сообщения: 68
Благодарности: 0


Конфигурация

Профиль | Отправить PM | Цитировать


Добрый день!
Подскажите пожалуйста. Необходимо реализовать скрипт (не важно на чем), который бы записывал в Excel структуру каталогов. Пример:

Код: Выделить весь код
Folder1
     Folder2
     Folder3
     Folder4
          Folder4
          Folder5
               Folder6
Folder7
     Folder8
... ... ... ... ... ... ... ... ... ... ... ... ... ...
и т.д.

-------
ДМБ 2011 г.


Отправлено: 18:36, 15-07-2019

 

Ветеран


Contributor


Сообщения: 27628
Благодарности: 8082

Профиль | Отправить PM | Цитировать


JimmOnLine, как именно записывал? Всё одну ячейку? Один каталог — одна строка таблицы? Отступы — пробелы, табуляция или следующий столбец таблицы?

Почему именно Excel?
Это сообщение посчитали полезным следующие участники:

Отправлено: 19:16, 15-07-2019 | #2



Для отключения данного рекламного блока вам необходимо зарегистрироваться или войти с учетной записью социальной сети.

Если же вы забыли свой пароль на форуме, то воспользуйтесь данной ссылкой для восстановления пароля.


Ветеран


Contributor


Сообщения: 2555
Благодарности: 1596

Профиль | Отправить PM | Цитировать


скрипт VBS, который записывает в Excel структуру каталогов.
Код: Выделить весь код
AllDir = "Z:\Box_In"			' Полное имя рабочего каталога (без слэжа \ на конце)
Range1 = "C3"				' C какой ячейки стром дерево
ColWidth = 3				' Ширина колонок

Set XL = CreateObject("Excel.Application")
XL.Visible = True
XL.Workbooks.Add

XL.Cells.ColumnWidth = ColWidth

Row1 = 0
Col1 = 0

XL.Range(Range1).FormulaR1C1 = "=""" + AllDir + """"

Set FSO = CreateObject("Scripting.FileSystemObject")
Call AllFolders(FSO, AllDir, Range1, Col1, Row1, XL)

' ---------------------------------------------------------------------------
Sub AllFolders(FSO, WDir, Range1, C1, R1, XL)
    Set F = FSO.GetFolder(WDir)
    Set SubF = F.SubFolders
    For Each Folder In SubF
        R1 = R1 + 1
        XL.Range(Range1).Offset(R1, C1 + 1) = "=""" + Folder.Name + """"
        Call AllFolders(FSO, WDir + "\" + Folder.Name, Range1, C1 + 1, R1, XL)
    Next
    C1 = C1 + 1
End Sub

-------
Даже самая сложная проблема обязательно имеет простое, лёгкое для понимания, неправильное решение. Каждое решение плодит новые проблемы.

Это сообщение посчитали полезным следующие участники:

Отправлено: 21:43, 15-07-2019 | #3

it3 it3 вне форума

Пользователь


Сообщения: 94
Благодарности: 0

Профиль | Отправить PM | Цитировать


Изображения
Тип файла: png Windows Script Host.png
(35.8 Kb, 7 просмотров)

Цитата megaloman:
скрипт VBS, который записывает в Excel структуру каталогов. »
При запуске выходит ошибка [скриншот во вложении).

Отправлено: 06:15, 16-07-2019 | #4


Аватара для JimmOnLine

Пользователь


Сообщения: 68
Благодарности: 0

Профиль | Отправить PM | Цитировать


Цитата Iska:
JimmOnLine, как именно записывал? Всё одну ячейку? Один каталог — одна строка таблицы? Отступы — пробелы, табуляция или следующий столбец таблицы?

Почему именно Excel?
1. Один каталог -> одна строка таблицы.
2. Следующий столбец.
3. Excel - более удобный инструмент для дальнейшей обработки сформированных данных.

Отправлено: 06:27, 16-07-2019 | #5


Deadooshka


Сообщения: 2356
Благодарности: 627

Профиль | Отправить PM | Цитировать


Цитата it3:
При запуске выходит ошибка [скриншот во вложении) »
без BOM сохраняйте

Отправлено: 08:58, 16-07-2019 | #6

it3 it3 вне форума

Пользователь


Сообщения: 94
Благодарности: 0

Профиль | Отправить PM | Цитировать


Цитата megaloman:
JimmOnLine, Переименуйте Ваш 1.vbs в 1.txt и приложите к сообщению. Кстати, VBS надо сохранять в 1251 кодировке. Мой скрипт прилагаю (в переименованном виде). »
Работает.

Отправлено: 10:20, 16-07-2019 | #7


Аватара для JimmOnLine

Пользователь


Сообщения: 68
Благодарности: 0

Профиль | Отправить PM | Цитировать


Цитата Sham:
Цитата it3:
При запуске выходит ошибка [скриншот во вложении) »
без BOM сохраняйте
Почему то не все каталоги выводятся в Excel.

Последний раз редактировалось JimmOnLine, 16-07-2019 в 10:28.


Отправлено: 10:22, 16-07-2019 | #8


Ветеран


Contributor


Сообщения: 2555
Благодарности: 1596

Профиль | Отправить PM | Цитировать


Вложения
Тип файла: txt я19071520.vbs.txt
(896 байт, 3 просмотров)

JimmOnLine, Прикрепляю свой файл со скриптом (в переименованном виде). При наличии кириллицы в пути, скрипт надо сохранять в 1251 кодировке (например, в стандартном блокноте). Переименуйте свой скрипт в txt и приложите к сообщению.
Цитата JimmOnLine:
Excel - более удобный инструмент для дальнейшей обработки сформированных данных. »
Как именно обрабатывать Вы их хотите? Что в результате должно получиться?

-------
Даже самая сложная проблема обязательно имеет простое, лёгкое для понимания, неправильное решение. Каждое решение плодит новые проблемы.

Это сообщение посчитали полезным следующие участники:

Отправлено: 10:26, 16-07-2019 | #9


Аватара для JimmOnLine

Пользователь


Сообщения: 68
Благодарности: 0

Профиль | Отправить PM | Цитировать


Цитата megaloman:
JimmOnLine, Прикрепляю свой файл со скриптом (в переименованном виде). При наличии кириллицы в пути, скрипт надо сохранять в 1251 кодировке (например, в стандартном блокноте). Переименуйте свой скрипт в txt и приложите к сообщению.
Цитата JimmOnLine:
Excel - более удобный инструмент для дальнейшей обработки сформированных данных. »
Как именно обрабатывать Вы их хотите? Что в результате должно получиться?
Собственно суть в том, что необходимо организовать матрицу доступа к сетевым каталогам, для этого необходимо создать группы безопасности. Для того, чтобы это реализовать, хочу сперва построить это схематично (путем Excel), далее "Транслитерировать" наименования каталогов в Excel, ну а затем CopyPast'ить из документа в наименование Групп безопасности.

Отправлено: 10:34, 16-07-2019 | #10



Компьютерный форум OSzone.net » Программирование, базы данных и автоматизация действий » Скриптовые языки администрирования Windows » Любой язык - Структура папок

Участник сейчас на форуме Участник сейчас на форуме Участник вне форума Участник вне форума Автор темы Автор темы Шапка темы Сообщение прикреплено

Похожие темы
Название темы Автор Информация о форуме Ответов Последнее сообщение
7 / 2008 R2 - [решено] структура папок Windows7 ragga_31 Автоматическая установка Windows 11 / 10 / 8 / 7 / Vista 2 25-10-2015 15:41
C/C++ - Графовая структура Optimus Программирование и базы данных 3 22-03-2011 19:48
синтаксическая структура lcat Вебмастеру 9 18-12-2005 16:15
Структура трафика BanzayDima Хочу все знать 4 03-04-2005 20:54




 
Переход