windows - 在文件夹中递归创建快捷方式（XP）

Question

1>

我在文件夹结构中有文件夹。

2> 我想递归地为每个文件创建快捷方式。

快捷方式必须放在相同的命名文件夹中，即它位于其来源处。

3>

摘要：相同的文件夹结构...只是代替文件的快捷方式

任何想法将不胜感激。

Answer 1

您是否需要有关递归的帮助，或者只是一些关于如何完成此任务的快速想法？我不打算写它，但您可以使用一个递归批处理文件，其中初始命令如下所示：

batchFile.bat "C:\OriginalLocation" "C:\CopyToLocation"

我相信唯一的问题是您需要一个外部程序来创建快捷方式（快速谷歌搜索出现了一些）。您也许可以使用 VBScript 来做同样的事情，而无需外部快捷方式创建程序（同样，谷歌搜索提出了一些方法来做到这一点）。

Answer 2

这是一个 vbscript 你可以试试

Set objFS = CreateObject( "Scripting.FileSystemObject" )
Set oWS = WScript.CreateObject("WScript.Shell") 
strFolder=WScript.Arguments(0)
Set objFolder = objFS.GetFolder(strFolder)
Go (objFolder)
Sub Go(objDIR)
  If objDIR <> "\System Volume Information" Then
    For Each eFolder in objDIR.SubFolders
        Go eFolder
    Next
    For Each strFile In objDIR.Files
        shortcut = objFS.BuildPath(objFS.GetParentFolderName(strFile), objFS.GetBaseName(strFile)&".lnk")
        Set oLink = oWS.CreateShortcut(shortCut) 
        oLink.TargetPath = strFile.Path
        oLink.WorkingDirectory = objFS.GetParentFolderName(strFile)
        oLink.Save
        Set oLink=Nothing
    Next
  End If 
End Sub 

用法：

C:\test> cscript //nologo mycreateshortcutscript.vb C:\test