时间戳

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

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

问题描述

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

标签： batch-filecmdvbscript

解决方案

关于循环

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

推荐阅读