|
Компьютерный форум OSzone.net » Программирование, базы данных и автоматизация действий » Скриптовые языки администрирования Windows » CMD/BAT - Создание ярлыков папок и файлов с определенной структуры. |
|
CMD/BAT - Создание ярлыков папок и файлов с определенной структуры.
|
Новый участник Сообщения: 2 |
Профиль | Отправить PM | Цитировать
Добрый день форумчане.
Сам я не "але" в создании подобного рода скрипта,начальство сказало...Поэтому если буду нести всякую "ересь" не пинайте. Имеется определенная структура папок и файлов,мне нужно создать полную копию этой структуры,но только в ярлыках,что бы все файлы в папках тоже были ярлыками.Проще говоря скопировать ярлыки папок и файлов внутри них. Все файлы это PDFки. Подойдет что угодно,батник,скрипт,программа,вообще хоть что.Я гуглить замучился,никто кроме меня такой фигней не занимается... Как можно сделать такой скрипт, что бы при его запуске,эта структура просто копировала ярлыки,и в то же время,если мне нужно будет через какое то время обновить ее,я просто запущу ее и она мне обновит ярлыки,это PDF архив и постоянно обновляется. Win 10 pro Структура такая: -Архив(корневая директория) ---Главная папка (их более 500) -----папка 1 --------папка 1 ----------файл.PDF ----------файл.PDF ----------файл.PDF ----------файл.PDF ----------файл.PDF ----------файл.PDF ----------файл.PDF ----------файл.PDF --------папка 2 ----------файл.PDF ----------файл.PDF ----------файл.PDF ----------файл.PDF ----------файл.PDF --------папка 3 --------папка 4 --------папка 5 --------папка 6 -----папка 2 --------папка 1 --------папка 2 --------папка 3 --------папка 4 -----папка 3 --------папка 1 --------папка 2 --------папка 3 --------папка 4 --------папка 5 -----папка 4 -----папка 5 -----папка 6 -----папка 7 -----папка 8 -----папка 9 -----папка 10 -----папка 11 -----папка 12 -----папка 13 -----папка 14 -----папка 15 и т.д |
|
Отправлено: 01:51, 02-04-2019 |
Новый участник Сообщения: 2
|
Профиль | Отправить PM | Цитировать Все походу вымерли?...Хоть дайте знак что тут еще есть люди...
|
Отправлено: 05:48, 05-04-2019 | #2 |
Для отключения данного рекламного блока вам необходимо зарегистрироваться или войти с учетной записью социальной сети. Если же вы забыли свой пароль на форуме, то воспользуйтесь данной ссылкой для восстановления пароля. |
Ветеран Сообщения: 27449
|
Профиль | Отправить PM | Цитировать Chezorezka, сделать можно будет. Но какова цель создания этих ярлыков? И почему именно ярлыков, а не, например, жёстких или символических ссылок?
|
Отправлено: 08:21, 05-04-2019 | #3 |
Ветеран Сообщения: 2723
|
Профиль | Отправить PM | Цитировать Chezorezka,
@Echo Off
cls
Set "BoxIn=Z:\Box_Arc"
Set "Mask=*.pdf"
Set "BoxOut=Z:\Lnk.pdf"
rem If Not "%BoxOut:~3,1%"=="" 2>NUL Rd /S /Q "%BoxOut%"
Call :Folder "%BoxIn%" "%Mask%" "%BoxOut%"
FOR /F "usebackq delims=" %%i IN (`2^>nul Dir "%BoxIn%\" /S /B /A:D`) DO Call :Folder "%%i" "%Mask%" "%BoxOut%"
FOR /F "usebackq delims=" %%i IN (`2^>nul Dir "%BoxOut%" /B /A:D`) DO Call :Link "%BoxOut%\%%i.lnk" "%BoxOut%\%%i"
pause
Exit /B 0
:Folder
If Not Exist "%~3%~pnx1" (
If Exist "%~1\%~2" (
Md "%~3%~pnx1"
Call :Files %1 %2 "%~3%~pnx1"
)
)
Exit /B 0
:Files
FOR /F "usebackq delims=" %%j IN (`2^>nul Dir "%~1\%~2" /B /A:-D`) DO (
If Not Exist "%~3\%%j.lnk" Call :Link "%~3\%%j.lnk" "%~1\%%j"
)
Exit /B 0
:Link
@mshta vbscript:Execute("Set x=CreateObject(""WScript.Shell"").CreateShortcut("%1"):x.TargetPath="%2":x.Save():Close()")
Exit /B 0
при этом крайне опасно указывать в качестве выходной папки корневую папку диска, например, D:, особенно Если надо всё пересоздать заново. С диска всё будет удалено. Вы не определились, куда поместить ярлык на верхнюю папку. Я поместил его в папку, прописанную в BoxOut. Можете его скопировать куда угодно. |
------- Последний раз редактировалось megaloman, 05-04-2019 в 22:21. Отправлено: 18:52, 05-04-2019 | #4 |
Ушел из жизни Сообщения: 8595
|
Профиль | Сайт | Отправить PM | Цитировать |
|
------- Отправлено: 19:00, 05-04-2019 | #5 |
Ветеран Сообщения: 2723
|
Профиль | Отправить PM | Цитировать Chezorezka,
Цитата Iska:
|
|
------- Отправлено: 22:30, 05-04-2019 | #6 |
Ушел из жизни Сообщения: 8595
|
Профиль | Сайт | Отправить PM | Цитировать Цитата megaloman:
|
|
------- Отправлено: 22:48, 05-04-2019 | #7 |
Участник сейчас на форуме | Участник вне форума | Автор темы | Сообщение прикреплено |
| |||||
Название темы | Автор | Информация о форуме | Ответов | Последнее сообщение | |
VBS/WSH/JS - Скрипт для забора файлов и папок (с сохр. структуры) из неск. сетевых папок в одну л. | DjBoBo | Скриптовые языки администрирования Windows | 0 | 19-07-2016 16:30 | |
[статья] Создание структуры папок | Vadikan | Автоматическая установка Windows 11 / 10 / 8 / 7 / Vista | 15 | 18-04-2013 17:03 | |
CMD/BAT - Перемещение файлов по маске с сохранением структуры папок... | nfs911 | Скриптовые языки администрирования Windows | 6 | 15-02-2013 00:08 | |
VBS/WSH/JS - Создание папок исходя из имени хоста.Создание ярлыков. | ufunf | Скриптовые языки администрирования Windows | 1 | 18-02-2010 13:59 | |
7 / 2008 R2 - Создание структуры папок windows 7 / Touch установка с помощью MDT 2010 | pashtil | Автоматическая установка Windows 11 / 10 / 8 / 7 / Vista | 0 | 12-02-2010 07:04 |
|