递归创建文件夹中的快捷方式（XP）

问题描述：

1>递归创建文件夹中的快捷方式（XP）

我有文件夹内的文件夹结构。

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

快捷方式必须放在相同的命名文件夹内，以便它的源头。

摘要：相同的文件夹结构...只是在地方文件

任何想法的快捷键可以理解的。

答

您是否需要递归方面的帮助，或者只是关于如何实现这一点的一些快速构想？我不会写，但就像你可以使用一个recursive batch file初始命令查找其中：

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

我认为唯一的问题是，你需要一个外部程序来创建快捷方式（快速谷歌搜索变成了一些）。您可能能够使用VBScript来做同样的事情，而无需外部快捷方式创建程序（再次，谷歌搜索提出了几种方法来做到这一点）。

答

这里是一个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

递归创建文件夹中的快捷方式（XP）

相关推荐