Как перебрать все папки в данном каталоге и создать для них ярлыки в VBS?

Question

У меня есть пакетный файл, который создает временный сценарий VBS для создания ярлыка, но я застреваю при попытке вставить его в цикл for, который создаст ярлык в данном каталоге для всех папок в этом каталоге.

Вот скрипт vbs, который я использую для создания ярлыка:

@echo off
echo Set oWS = WScript.CreateObject("WScript.Shell") > CreateShortcut.vbs
echo sLinkFile = "%HOMEDRIVE%%HOMEPATH%\Desktop\Hello.lnk" >> 
CreateShortcut.vbs
echo Set oLink = oWS.CreateShortcut(sLinkFile) >> CreateShortcut.vbs
echo oLink.TargetPath = "C:\Windows\notepad.exe" >> CreateShortcut.vbs
echo oLink.Save >> CreateShortcut.vbs
cscript CreateShortcut.vbs
del CreateShortcut.vbs

А вот моя попытка вставить его в цикл for:

FOR /D %r in (dir) do(
echo Set oWS = WScript.CreateObject("WScript.Shell") > CreateShortcut.vbs
echo sLinkFile = "%cd%\%%r.ink" >> CreateShortcut.vbs
echo Set oLink = oWS.CreateShortcut(sLinkFile) >> CreateShortcut.vbs
echo oLink.TargetPath = "%cd%\%%r" >> CreateShortcut.vbs
echo oLink.Save >> CreateShortcut.vbs
cscript CreateShortcut.vbs
del CreateShortcut.vbs)

Answer 1

Относительно цикла

FOR /D %%r (dir) do (
...
)