遞歸創建文件夾中的快捷方式（XP）

Question

1>

我有文件夾內的文件夾結構。

2> 我想遞歸創建每個文件的快捷方式。

快捷方式必須放在相同的命名文件夾內，以便它的源頭。

3>

摘要：相同的文件夾結構...只是在地方文件

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

Answer 1

您是否需要遞歸方面的幫助，或者只是關於如何實現這一點的一些快速構想？我不會寫，但就像你可以使用一個recursive batch file初始命令查找其中：

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