如何遍历给定目录中的所有文件夹并在vbs中为它们创建快捷方式？答案

【问题标题】：How to loop over all folders in a given directory and create shortcuts for them in vbs?如何遍历给定目录中的所有文件夹并在vbs中为它们创建快捷方式？
【发布时间】：2019-06-13 12:28:18
【问题描述】：

我有一个批处理文件，它创建了一个临时 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)

【问题讨论】：

你有什么错误吗？你检查过创建的vbs是否正确？
为什么要将每个目录的快捷方式放在与这些目录本身相同的容器中？如果您告诉我们您的真正任务是什么，您想要创建的真正快捷方式，以及正确的文件路径和名称，这将大大提高您获得帮助的机会，（不是为了保护NOTHING AT全部）。这也不是For /D 语法。

标签： batch-file cmd vbscript

【解决方案1】：

关于循环

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

【讨论】：

不正确，%%r 将始终保持值 dir，也许 OP 正在寻找 For /D %%r In ("dir\*") Do (