Установите objShell = CreateObject («WScript.Shell»)
Установите objFSO = CreateObject («Scripting.FileSystemObject»)
strDesktopPath = objShell.SpecialFolders («настольный компьютер»)
strAllDesktopPath = objShell.ExpandEnvironmentStrings (» «%allusersprofile%")& \ настольный компьютер»
DelShorts «кратчайший путь к table.exe.lnk»
DelShorts «table.lnk»
Функция DelShorts (strShortcutName)
Если strDesktopPath objFSO.FileExists (strDesktopPath & «\» & strShortcutName) после этого objFSO.DeleteFile & «\» & strShortcutName
Если strAllDesktopPath objFSO.FileExists (strAllDesktopPath & «\» & strShortcutName) после этого objFSO.DeleteFile & «\» & strShortcutName
Функция конца
|