Bonjour je suis en train de faire un programme et j'ai besoin d'effacer tout les raccourcis dont la cible n'exite plus !
Pour cela je doit tester chaque raccourcis. trouver la cible. Et si la cible n'existe pas alors je l'efface tout simplement.
J'ai fait un debut de programme (ci dessous) mais ca ne marche pas !! Et j'essaie mais je trouve pas de solution donc peut etre pourrais vous m'aider !!!!
Merci !!!
'Effacer les raccourcis inexistants !
Dim Rep2
Rep2 = App.Path & "\Raccourcis\*.lnk"
Dim Fic2
Fic2 = Dir(Rep2)
Dim oWshShell As Object
Dim oWshLink As Object
Dim sLinkFilePath As String
sLinkFilePath = App.Path & "\Raccourcis\" & Fic2
Set oWshShell = CreateObject("WScript.Shell")
Set oWshLink = oWshShell.CreateShortcut(sLinkFilePath)
If Dir$(oWshLink.TargetPath) <> vbNullString Then
Else
Dim kler As String
kler = App.Path & "\Raccourcis\" & Fic2
Kill (kler)
End If
While Fic2 <> ""
Fic2 = Dir
sLinkFilePath = App.Path & "\Raccourcis\" & Fic2
Set oWshShell = CreateObject("WScript.Shell")
Set oWshLink = oWshShell.CreateShortcut(sLinkFilePath)
If Dir$(oWshLink.TargetPath) <> vbNullString Then
Else
kler = App.Path & "\Raccourcis\" & Fic2
Kill (kler)
End If
Wend
PS: si quelqu'un c'est en plus recupérer le nom, la cible et le nbre de raccourcis supprimer pour ensuite les mettre dans un msgbox je lui serai éternellement reconnaissant !!!!!!!!!!!!!
MERci