如何遍历给定目录中的所有文件夹并在vbs中为其创建快捷方式?

时间:2019-06-13 12:28:18

标签: batch-file cmd vbscript

我有一个批处理文件,该文件创建了一个临时的vbs脚本来创建快捷方式,但是当我尝试将其插入到for循环中时会卡住,该循环将在给定目录中为该目录中的所有文件夹创建一个快捷方式。 / p>

这是我用来创建快捷方式的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)

1 个答案:

答案 0 :(得分:0)

关于循环

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