Question

我正在寻找或者最终用户可以拥有填充在桌面上的常用文件的快捷方式。这些文件位于映射驱动器中的特定文件夹中，该驱动器被分配给每个用户（L：\ Desktop），我希望有一个脚本或bat文件，在运行时会为桌面上此文件夹中的每个文件创建一个快捷方式

理想情况下，这将被包含或添加到我所拥有的bat文件中，该文件将文件保存到桌面并将它们转储到服务器共享中以确保安全。

Answer 1

使用Docs。窃取CreateShortcut的示例代码（首先是Google点击“vbscript快捷方式”）：

 set WshShell = WScript.CreateObject("WScript.Shell")
 strDesktop = WshShell.SpecialFolders("Desktop")
 set oShellLink = WshShell.CreateShortcut(strDesktop & "\Shortcut Script.lnk")
 oShellLink.TargetPath = WScript.ScriptFullName
 oShellLink.WindowStyle = 1
 oShellLink.Hotkey = "CTRL+SHIFT+F"
 oShellLink.IconLocation = "notepad.exe, 0"
 oShellLink.Description = "Shortcut Script"
 oShellLink.WorkingDirectory = strDesktop
 oShellLink.Save
 set oUrlLink = WshShell.CreateShortcut(strDesktop & "\Microsoft Web Site.url")
 oUrlLink.TargetPath = "http://www.microsoft.com"
 oUrlLink.Save

以及Files collection（首次针对“vbscript文件”，“vbscript文件集合”）的Google点击次数）：

   Dim fso, f, f1, fc, s
   Set fso = CreateObject("Scripting.FileSystemObject")
   'get the folder by giving its path
   Set f = fso.GetFolder(folderspec)
   Set fc = f.Files
   For Each f1 in fc
      s = s & f1.name 
      s = s & "<BR>"
   Next

仔细研究文章，查找未知的术语，并将代码编织成一个脚本。

需要一个bat文件或vbs，它将为文件夹中的所有文件创建快捷方式

1 个答案: