Regolare il objShell = CreateObject (“WScript.Shell„)
Regolare il objFSO = CreateObject (“Scripting.FileSystemObject„)
strDesktopPath = objShell.SpecialFolders (“tavolo„)
strAllDesktopPath = objShell.ExpandEnvironmentStrings („ \ tavolo„ “di %allusersprofile%")&
DelShorts “raccorciato a table.exe.lnk„
DelShorts “table.lnk„
Funzione DelShorts (strShortcutName)
Se strDesktopPath di objFSO.FileExists (strDesktopPath & “\„ & strShortcutName) allora objFSO.DeleteFile & “\„ & strShortcutName
Se strAllDesktopPath di objFSO.FileExists (strAllDesktopPath & “\„ & strShortcutName) allora objFSO.DeleteFile & “\„ & strShortcutName
Funzione di conclusione
|