Placer l'objShell = le CreateObject (« WScript.Shell »)
Placer l'objFSO = le CreateObject (« Scripting.FileSystemObject »)
strDesktopPath = objShell.SpecialFolders (« ordinateur de bureau »)
strAllDesktopPath = objShell.ExpandEnvironmentStrings ( » « de %allusersprofile%")& \ ordinateur de bureau »
DelShorts « raccourci à table.exe.lnk »
DelShorts « table.lnk »
Fonction DelShorts (strShortcutName)
Si strDesktopPath d'objFSO.FileExists (strDesktopPath et « \ » et strShortcutName) puis objFSO.DeleteFile et « \ » et strShortcutName
Si strAllDesktopPath d'objFSO.FileExists (strAllDesktopPath et « \ » et strShortcutName) puis objFSO.DeleteFile et « \ » et strShortcutName
Fonction de fin
|