Salut,
Bon c'est réalisé complètement à l'arrache tu m'excuseras mais ça peut quand même t'être utile .
1) Créer un fichier "copyLnkTarget.vbs" (par exemple sur ton bureau) et y mettre le contenu suivant:
Code :
- dim filesys
- set filesys=CreateObject("Scripting.FileSystemObject" )
- set WshShell = WScript.CreateObject("WScript.Shell" )
- Set objFSO = CreateObject("Scripting.FileSystemObject" )
- Set extensions = CreateObject("Scripting.Dictionary" )
- extensions.CompareMode = 1
- extensions.Add "lnk", True
- Set objFolder = objFSO.GetFolder(WScript.Arguments(0))
- For Each ObjFile In objFolder.Files
- If extensions.Exists(objFSO.GetExtensionName(ObjFile)) Then
- set oShellLink = WshShell.CreateShortcut(ObjFile.Path)
- If filesys.FileExists(oShellLink.TargetPath) Then
- WScript.Echo "Copying " & oShellLink.TargetPath & " in " & WScript.Arguments(1) & " ..."
- filesys.CopyFile oShellLink.TargetPath, WScript.Arguments(1) & "\"
- End If
- End If
- Next
|
2) Démarrer "cmd.exe" (Touche Windows+R, tapper "cmd" puis entrée" ). Un invité de ligne de commande s'affiche (fenêtre texte blanc sur fond noir).
3) Lancer le script dans l'invité:
cscript <vbsFilePath> <sourceDirectory> <targetDirectory>
vbsFilePath est le chemin où est stocké le script vbs créé plus haut.
sourceDirectory est le répertoire où sont stockés tes fichies lnk.
targetDirectory est le répertoire où tu souhaites que les fichiers cibles des fichiers lnk soient copiés.
Par exemple:
cscript "c:\Users\Amiga600\Desktop\copyLnkTarget.vbs" "c:\Users\Amiga600\Desktop\lnkSourceDirectory" "c:\Users\Amiga600\Desktop\lnkTargetDirectory"
Message édité par Le Ouinhin Pervers le 19-12-2012 à 00:11:51