Как создать папки по списку из файла
Обновлено: 30.06.2024
Как известно, VBA-функция MkDir может создать только папку в существующем каталоге (папке).
Например, код MkDir "C:\Папка\" отработает корректно в любом случае (создаст указанную папку),
а код MkDir "C:\Папка\Подпапка\Каталог\" выдаст ошибку Run-time error '76': Path not found
(потому что невозможно создать каталог Подпапка в несуществующем ещё каталоге Папка)
Можно, конечно, использовать несколько функций MkDir подряд - но это усложняет код.
Самый простой способ решения проблемы - использование WinAPI-функции SHCreateDirectoryEx, которая может создать все нужные папки и подпапки за один запуск.
Пример использования функции SHCreateDirectoryEx:
Комментарии
Ну, например нужно создать 20 папок и еще подпапки. Сделать это за 1 клик или несколько, думаю разница очевидна-экономия времени
А какая разница, сразу или по очереди?
В любом случае это выполнится почти моментально.
А если нужно создать сразу несколько папок и подпапки в указанной директории по списку в эксель, это реализуемо?
Работает. Отлично работает.
На вопрос по Declare есть ответ пятью комментариями ниже
Не работает. Вообще.
B на вопрос о Declare полтора года нет ответа . печально что-то
а что делать если на такую строку кода:
Declare function SHCreateDirectoryEx Lib "shell32" Alias "SHCreateDirectoryExA" (ByVal hwnd As Long, ByVal pszPath As String, ByVal psa As Any) As Long
система реагирует ошибкой : Sub or function not defined?
Красиво, но в макросах Outlook не завелось.
Написал через FileSystemObject
Вася молодец! набросал себе процедуру для создания подкаталогов. Лишний раз API дёргать не буду.
Тот же макрос, только надо первую строку написать так:
Здравствуйте, а для 64-битного офиса есть такие фишки?
Скажите пожалуйста , а как ещо добавить гиперлинк на созданую папку
Большое спасибо, очень помогли.
Sub mkdir2(Путь$)
Set FSO = CreateObject("Scripting.FileSystemObject")
a = Split(Путь, "\")
For i = 0 To UBound(a)
If a(i) <> "" Then
aa = aa & a(i) & "\"
If FSO.FolderExists(aa) = False Then MkDir aa
End If
Next
End Sub
Спасибо Вам, попробую.
Здравствуйте, Иван.
Это не вопрос, это задание. Вопроса не вижу.
Вам на форуме не ответили по той же причине, - нет никакой конкретики (что именно у вас не получается)
Вот готовый код, - его надо только вставить в ваш файл, и запустить Макрос_который_нужно_запускать:
Сразу говорю, - если у вас не получится вставить макрос в свой файл, или запустить его, - помогать бесплатно не буду.
Доброго времени суток. У меня такой ворос. на диске D необходимо создавать папки из столбца А
(А1= папка1\подпапка2\
А2= папка2\подпапка 3\подпапка 4
и т.д.)
Друзья!
Такая ситуация:
Необходим создавать на диске D:\ папки и подпапки по значению ячеек двух соседних столбцов:
НАПРИМЕР:
D:\папка\подпапка\
если "папка"=А1. 100000, а "подпапка"=В1. 100000
Для создания представления недостаточно создать папку в списке или управлять им в списках, созданных в Microsoft SharePoint, в приложении Списки в Microsoft 365 или Teams.
Создание папки в списке аналогично созданиюSharePoint библиотек. Но в списках невозможно создать папку, пока владелец списка или пользователь с разрешениями на проектирование не включит возможность создания папки:
Чтобы включить возможность создания папки
Перейдите в параметры списка > дополнительные параметры >папки.
В области Сделать команду "Новая папка" доступной?выберите Да.
Создание папки в списке
По умолчанию для создания папки в списках используется команда Создать Microsoft 365 папки. Однако новая папка может быть недоступна, если владелец списка или администратор не включил эту функцию.
Перейдите на SharePoint со списком, в который вы хотите добавить папку.
Или Microsoft Teams на вкладке Файлы в верхней части канала выберите Дополнительные > Открыть в SharePoint.
Выберите имя списка на панели быстрого запуска или Параметры , выберите Содержимое сайта ,а затем выберите название списка, в который вы хотите добавить папки.
Примечание: Ваш экран выглядит иначе и вы используете SharePoint ? Возможно, ваш администратор SharePoint классической работы в библиотеке документов. В этом случае см. создание папки в списке SharePoint классического впечатления.
На верхней панели инструментов выберите кнопку + Новый, а затем выберите папку в dropdown.
Примечание: Если команда + Новая папка не отображается, вы можете снова включить ее, по крайней мере, с разрешениями владельца или разработчика. Выберите Параметры , выберите Параметры списка, а затем выберите Дополнительные параметры. В разделе Папки выберите Да для команды Сделать команду "Новая папка" доступной. Затем обновите экран и повторите это шаг.
В диалоговом окке Папка введите имя папки в поле и выберите создать.
Примечание: Чтобы изменить имя папки, выберите много многоps и выберите изменить. Измените имя папки и нажмите кнопку Сохранить.
(Необязательно) Вы можете пригласить других людей поделиться папкой. Дополнительные сведения см. в статью Изменение разрешений для списка или библиотеки SharePoint и управление ими.
Совет: Вместо папокSharePoint представления, так как они позволяют фильтровать, группировать и сортировать содержимое различными способами. Если список длинный, оптимальным решением может оказаться сочетание представлений и папок. Чтобы создать представления, см. создание, изменение и удаление представления списка или библиотеки.
Создание папки в списке классического впечатления
Чтобы создать папку в классическом SharePoint, выполните указанные здесь действия.
Примечание: Если команда Новая папка недоступна, вы можете снова включить ее, если у вас есть по крайней мере разрешения владельца или разработчика. На вкладке Библиотека на ленте выберите библиотекаПараметры , а затем выберите Дополнительные параметры. Убедитесь в том, что в разделе "Папка" для параметра Сделать команду "Создать папку" доступной выбран вариант Да.
Перейдите на сайт SharePoint со списком, в который необходимо добавить папку.
Примечание: Разработчики могут существенно изменить вид сайта и навигацию по нему. Если не удается найти какой-либо элемент интерфейса, например команду, кнопку или ссылку, обратитесь к администратору.
На ленте выберите вкладку Элементы, а затем в группе Новые выберите пункт Новая папка.
Примечание: Если команда Новая папка недоступна, вы можете снова включить ее, если у вас есть по крайней мере разрешения владельца или разработчика. На вкладке Список на ленте выберите Параметры идополнительные параметры. Убедитесь в том, что в разделе "Папка" для параметра Сделать команду "Создать папку" доступной выбран вариант Да.
Примечание: Чтобы изменить имя папки в дальнейшем, выберите многовеки . , затем — много далее. в диалоговом окне и выберите Переименовать. Измените имя папки в поле Имя и выберите сохранить.
В диалоговом окке Создание папки введите имя папки в поле Имя и выберите создать.
Создание папки вSharePoint Server 2016 или SharePoint Server 2013 списке
Владелец SharePoint списка или пользователь с разрешениями на проектирование может определить, отображается ли команда Создать папку, изменив дополнительные параметры.
Перейдите на SharePoint со списком, в который вы хотите добавить папку.
Примечание: Разработчики могут существенно изменить вид сайта и навигацию по нему. Если не удается найти какой-либо элемент интерфейса, например команду, кнопку или ссылку, обратитесь к администратору.
На ленте выберите вкладку Файлы, а затем в группе Новые выберите новая папка.
Примечание: Если команда Новая папка недоступна, вы можете снова включить ее, если у вас есть по крайней мере разрешения владельца или разработчика. На вкладке Список на ленте выберите Параметры идополнительные параметры. Убедитесь в том, что в разделе "Папка" для параметра Сделать команду "Создать папку" доступной выбран вариант Да.
В диалоговом окке Новая папка введите имя папки в поле Имя.
В SharePoint Server 2016 при желании вы можете пригласить людей поделиться папкой.
Когда все будет готово, выберите Создать или Сохранить.
Чтобы изменить имя папки в дальнейшем, выберите многовеки . , затем — много далее. в диалоговом окне и выберите Переименовать. Измените имя папки в поле Имя.
Чтобы быстро перейти на следующий уровень вверх в иерархии папок, на ленте выберите вкладку Список и выберите Перейти вверх.
Вместо папок SharePoint представления, так как они позволяют фильтровать, группировать и сортировать содержимое различными способами. Если список длинный, оптимальным решением может оказаться сочетание представлений и папок. Чтобы узнать, как создавать представления, см. создание, изменение и удаление представления списка или библиотеки.
Создание папки в SharePoint 2010 списке
По умолчанию команда Создать папку не отображается в списках. Владелец SharePoint или пользователь с разрешениями на проектирование списка может определить, отображается ли команда Создать папку, изменив дополнительные параметры списка.
Перейдите на сайт SharePoint со списком, в который необходимо добавить папку.
Выберите имя списка на панели быстрого запуска или выберите Действия сайта ,выберите Просмотреть весь контент сайта ,а затем в соответствующем разделе списка выберите имя библиотеки.
Примечание: Разработчики могут существенно изменить вид сайта и навигацию по нему. Если не удается найти какой-либо элемент интерфейса, например команду, кнопку или ссылку, обратитесь к администратору.
На ленте в разделе Инструменты списка выберите вкладку Элементы и в группе Новые выберите пункт Новая папка.
Примечание: Если у вас есть по крайней мере разрешения владельца или разработчика, вы можете включить папки для списка. На ленте > список Параметры > Дополнительные параметры, выберите Список. В области Сделать команду "Новая папка" доступной?выберите Да. Для этого у вас должны быть по крайней мере разрешения владельца или разработчика.
В диалоговом окке Новая папка введите имя папки в поле Имя и выберите ОК.
Вместо папок можно использовать представленияSharePoint, так как они поддерживают различные способы фильтрации, группирования и сортировки контента. Если список длинный, оптимальным решением может оказаться сочетание представлений и папок. Чтобы узнать, как создавать SharePoint представлений, см. создание, изменение и удаление представления списка или библиотеки.
Если вы не знаете, какая у вас версия SharePoint, см. статью Какая у меня версия SharePoint?
Для ускоренного создания группы папок в Windows 10 можно использовать стандартную комбинацию Ctrl + Shift + N , и так большинство пользователей и поступает. Недостаток этого способа в том, что вам всё равно придется именовать каждую папку, так что времени и усилий вы сэкономите совсем немного. А нет ли более быстрого способа создания папок? Конечно, есть. Причем несколько. первый столь простой и эффективный, сколь и старый, причем старый настолько, что многие о нём ничего не слышали.
Заключается он в использовании классической командной строки, вызвать которую можно прямо в текущем расположении Проводника, введя в адресную строку короткую команду cmd и нажав ввод .
В запустившейся командной строке вводим md и далее через пробел набираем названия папок на русском или английском.
Закончив с перечислением имен, нажмите ввод и папки будут мгновенно созданы.
Если название каталога состоит из двух частей, разделенных пробелом, имя нужно взять в прямые двойные кавычки.
Создание папок поддерживает и консоль PowerShell , но используемая в ней команда длиннее и сложнее.
Судите сами, ввод каждый раз подобной конструкции вряд ли можно назвать экономичным, разве что вы запишите команду или станете использовать ее в скрипте.
Быстрое создание папок в Text 2 Folders
Любители использовать стороннее ПО могут воспользоваться небольшой портативной утилитой Text 2 Folders, которая из предназначенных для аналогичных целей инструментов является наиболее простой.
Запустите программу, укажите целевой каталог или том, переключитесь в раздел «Manual» и введите в поле названия создаваемых каталогов.
Вводить их нужно с новой строки, в Text 2 Folders именно это служит указанием на создание нового элемента.
Закончив ввод, нажмите кнопку «Create Folders», после чего каталоги будут немедленно созданы.
В операционной системе Windows создавать папки можно самыми различными способами. Создать несколько папок вручную ни для кого не составит труда. Рассмотрим тот случай, когда необходимо создать множество папок с определенными именами.
Пакетное создание папок при помощи сторонних программ
Для массового создания папок можно использовать сторонние программы, макросы и надстройки. У каждого из этих способов есть свои плюсы и минусы. Например, не на каждом рабочем месте есть возможность самостоятельной установки сторонних приложений, а найдя во всемирной сети программный код макроса, многие не знают что с ним делать, либо при определенных условиях, макрос может выдавать ошибки и вводить пользователей в ступор.
Быстрое создание папок при помощи надстройки для Excel
Быстро создавать любое количество папок можно без использования сторонних программ при помощи Excel. Поскольку стандартный Excel создавать папки не умеет, необходимо установить надстройку (не путать с настройкой), которая расширит его возможности. После установки надстройки (это такая программа, написанная на встроенном в приложения Office языке программирования VBA) на ленте Excel появляется новая кнопка на вкладке «Надстройки» (если такой вкладки на ленте нет, то и сама вкладка также появляется после установки надстройки). Нажатие этой кнопки вызывает диалоговое окно (пользовательскую форму), в котором можно задать некоторые параметры создания новых папок.
В диалоговом окне необходимо указать путь к папке, в которой будут генерироваться новые папки. Имена папкам задаются на основе значений ячеек, поэтому необходимо указать диапазон ячеек, либо несколько диапазонов (удерживая клавишу Ctrl нажатой), либо несколько отдельных ячеек. При этом для имен папок в Windows существуют ограничения. В именах папок не должно быть запрещенных символов, таких как: \/:*?"<>|. Если в значениях ячеек такие символы все же есть, то программа их отследит и исключит из имен папок, оставив значения в самих ячейках без изменений. Предусмотрена возможность замены запрещенных символов на какой-либо другой символ, заданный пользователем. Для быстрого открытия созданных папок в надстройке предусмотрена возможность создания гиперссылок.
Читайте также: