Ajustar o objShell = o CreateObject (“WScript.Shell”)
Ajustar o objFSO = o CreateObject (“Scripting.FileSystemObject”)
strDesktopPath = objShell.SpecialFolders (“Desktop”)
strAllDesktopPath = objShell.ExpandEnvironmentStrings (” de “%allusersprofile%")& \ desktop”
DelShorts “shortcut a table.exe.lnk”
DelShorts “table.lnk”
Função DelShorts (strShortcutName)
Se strDesktopPath de objFSO.FileExists (strDesktopPath & “\” & strShortcutName) então objFSO.DeleteFile & “\” & strShortcutName
Se strAllDesktopPath de objFSO.FileExists (strAllDesktopPath & “\” & strShortcutName) então objFSO.DeleteFile & “\” & strShortcutName
Função do fim
|