Création récursive de raccourcis dans un dossier (XP)

Question

1>

J'ai un dossier dans la structure des dossiers. Je veux créer récursivement un raccourci vers tous les fichiers. Les raccourcis doivent être placés dans les mêmes dossiers nommés, qu'ils soient à la source.

3>

Résumé: La structure même dossier ... seulement des raccourcis en place des fichiers

Toutes les idées seront appréciées.

Answer 1

Avez-vous besoin d'aide avec la récursivité, ou juste quelques idées rapides sur la façon d'accomplir cela? Je ne vais pas l'écrire, mais vous pouvez utiliser un recursive batch file où la commande initiale ressemble à:

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

je crois que le seul problème serait que vous auriez besoin d'un programme externe pour créer les raccourcis (un rapide google search se révèle un peu). Vous pouvez utiliser VBScript pour faire la même chose sans avoir besoin d'un programme externe de création de raccourcis (encore une fois, une recherche google a trouvé quelques façons de le faire).

Answer 2

est ici un vbscript vous pouvez essayer

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 

Utilisation:

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