Code:
Option Explicit
Dim WSHShell, oFSO, oFolder, oFiles, oFile, strOldPath, strNewPath, lnkName, myShortcut
Dim strTarget, strWorkD, strWDRep, strRep, crLnk, strFolder
Set WSHShell = WS*****.CreateObject("WS*****.Shell")
Set oFSO = WS*****.CreateObject("S*****ing.FileSystemObject")
strFolder = "C:\Users\haze\Desktop\spiele"
If oFSO.FolderExists(strFolder) Then
Set oFolder = oFSO.GetFolder(strFolder)
Set oFiles = oFolder.Files
For Each oFile In oFiles
If UCASE(Right(oFile.Path,4)) = ".LNK" then
'Managing old LNK-Files
strOldPath = "C:\"
strNewPath = "E:\"
lnkName = oFile.Name
Set myShortcut = WSHShell.CreateShortcut(oFile.Path)
strTarget = myShortcut.targetpath
strWorkD = myShortcut.WorkingDirectory
strWDRep = Replace(strWorkD, strOldPath, strNewPath)
strRep = Replace(strtarget, strOldPath, strNewpath)
oFSO.DeleteFile lnkName
'Creating new LNK-File
Set crLnk = WSHShell.CreateShortcut(lnkName)
crLnk.TargetPath = strRep
crLnk.WorkingDirectory = strWDRep
crLnk.save
End If
Next
End If
C:\Users\haze\Desktop\spiele - Diesen Pfad musst du noch entsprechend anpassen.
Dies ist der Ordner, indem sich die Verknüpfungen deiner Spiele befinden.
C:\ - dies ist das Laufwerk, aufdem momentan die alten Verknüpfungen zeigen, wie z.B. C:\Games\Quake3
Eventuell musst du das noch ändern.
E:\ - dies ist der neue Pfad, aufdem nun deine Spiele liegen, wie z.B. E:\Games\Quake3
Eventuell musst du auch das noch entsprechend ändern.
Ablauf des S*****s
Das S***** wird in den Ordner schauen, indem deine Spiele-Verknüpfungen liegen - dort wird es sich den Zielpfad und den "Ausführen in:" Pfad holen und in Variablen abspeichern.
Im nächsten Schritt wird es deine Verknüpfungen löschen und mit den abgeänderten Variablen, nun zeigend auf das richtige Laufwerk, die Verknüpfungen wieder erstellen.
Das wars.
Bitte erstelle vor dem Ausführen des S*****s eine Sicherungskopie deiner Verknüpfungen!
Ausserdem muss das S***** in den Ordner, wo deine Spiele-Verknüpfungen liegen, reinkopiert und ausgeführt werden.
Bei Fragen oder Problemen kannst du dich gerne an mich wenden.
Und nun viel Spass damit.
