|
Компьютерный форум OSzone.net » Программирование, базы данных и автоматизация действий » Скриптовые языки администрирования Windows » Любой язык - Структура папок |
|
|
Любой язык - Структура папок
|
Пользователь Сообщения: 69 |
Профиль | Отправить PM | Цитировать |
|
------- Отправлено: 18:36, 15-07-2019 |
Ветеран Сообщения: 27449
|
Профиль | Отправить PM | Цитировать JimmOnLine, как именно записывал? Всё одну ячейку? Один каталог — одна строка таблицы? Отступы — пробелы, табуляция или следующий столбец таблицы?
Почему именно Excel? |
Отправлено: 19:16, 15-07-2019 | #2 |
Для отключения данного рекламного блока вам необходимо зарегистрироваться или войти с учетной записью социальной сети. Если же вы забыли свой пароль на форуме, то воспользуйтесь данной ссылкой для восстановления пароля. |
Ветеран Сообщения: 2708
|
Профиль | Отправить 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 |
Пользователь Сообщения: 94
|
Профиль | Отправить PM | Цитировать Цитата megaloman:
|
|
Отправлено: 06:15, 16-07-2019 | #4 |
Пользователь Сообщения: 69
|
Профиль | Отправить PM | Цитировать Цитата Iska:
2. Следующий столбец. 3. Excel - более удобный инструмент для дальнейшей обработки сформированных данных. |
||
Отправлено: 06:27, 16-07-2019 | #5 |
Deadooshka Сообщения: 2482
|
Профиль | Отправить PM | Цитировать Цитата it3:
|
|
Отправлено: 08:58, 16-07-2019 | #6 |
Пользователь Сообщения: 94
|
Профиль | Отправить PM | Цитировать Цитата megaloman:
|
|
Отправлено: 10:20, 16-07-2019 | #7 |
Пользователь Сообщения: 69
|
Профиль | Отправить PM | Цитировать Цитата Sham:
|
||
Последний раз редактировалось JimmOnLine, 16-07-2019 в 10:28. Отправлено: 10:22, 16-07-2019 | #8 |
Ветеран Сообщения: 2708
|
Профиль | Отправить PM | Цитировать JimmOnLine, Прикрепляю свой файл со скриптом (в переименованном виде). При наличии кириллицы в пути, скрипт надо сохранять в 1251 кодировке (например, в стандартном блокноте). Переименуйте свой скрипт в txt и приложите к сообщению.
Цитата JimmOnLine:
|
|
------- Отправлено: 10:26, 16-07-2019 | #9 |
Пользователь Сообщения: 69
|
Профиль | Отправить PM | Цитировать Цитата megaloman:
|
||
Отправлено: 10:34, 16-07-2019 | #10 |
|
Участник сейчас на форуме | Участник вне форума | Автор темы | Сообщение прикреплено |
| |||||
Название темы | Автор | Информация о форуме | Ответов | Последнее сообщение | |
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 |
|