<html>
<head>
<base href="https://bugs.documentfoundation.org/">
</head>
<body>
<p>
<div>
<b><a class="bz_bug_link
bz_status_NEW "
title="NEW - QuickStarter setting not remembered after upgrade (win only)"
href="https://bugs.documentfoundation.org/show_bug.cgi?id=35568#c29">Comment # 29</a>
on <a class="bz_bug_link
bz_status_NEW "
title="NEW - QuickStarter setting not remembered after upgrade (win only)"
href="https://bugs.documentfoundation.org/show_bug.cgi?id=35568">bug 35568</a>
from <span class="vcard"><a class="email" href="mailto:stavrosm125@gmail.com" title="stavrosm125@bugzilla.com <stavrosm125@gmail.com>"> <span class="fn">stavrosm125@bugzilla.com</span></a>
</span></b>
<pre>Comment on <span class=""><a href="http://bugs.documentfoundation.org/attachment.cgi?id=88999" name="attach_88999" title="Script - remove quickstarter">attachment 88999</a> <a href="http://bugs.documentfoundation.org/attachment.cgi?id=88999&action=edit" title="Script - remove quickstarter">[details]</a></span>
Script - remove quickstarter
<span class="quote">>'removes quickstarter for a given version of OpenOffice'</span >
>
<span class="quote">>option explicit
>On Error Resume Next</span >
>
<span class="quote">>Dim oShell, objFSO, lnk
>Dim strStartup
>Dim exitCode, strRemoveQuickstarter1, strRemoveQuickstarter2
>
>Set oShell = CreateObject( "WScript.Shell" )
>Set objFSO = CreateObject("Scripting.FileSystemObject")
>exitCode = 0</span >
>
>
<span class="quote">>strStartup = WScript.Arguments.Item(0) ' "$ShellStartup" (za User) i "$allusersstartup" (za Comp)</span >
>
<span class="quote">>'''
>Wscript.echo "removing quickstarter"
>'''
>
> 'REMOVE all old shortcuts for OO from Desktopa and from Startup'
> ''''
> strRemoveQuickstarter1 = strStartup & "\OpenOffice.org*.lnk"
> strRemoveQuickstarter2 = strStartup & "\LibreOffice*.lnk"
>
> Wscript.echo "strRemoveQuickstarter: " & strRemoveQuickstarter1
> Err.Number = 0
> objFSO.DeleteFile strRemoveQuickstarter1, true
> If Err.Number <> 0 Then
> Wscript.echo "Error in removing quickstarter" & Err.Description
> End If
>
> Wscript.echo "strRemoveQuickstarter: " & strRemoveQuickstarter2
> Err.Number = 0
> objFSO.DeleteFile strRemoveQuickstarter2, true
> If Err.Number <> 0 Then
> Wscript.echo "Error in removing quickstarter" & Err.Description
> End If
>
>Wscript.Quit 0</span >
>
>
<span class="quote">> if Right(oShell.ExpandEnvironmentStrings("%AllUsersProfile%"), 11) = "ProgramData" then
> ' WIn 7 - C:\Users\Public\Desktop'
> strRemoveQuickstarter = "C:\Users\Public\Desktop" & "\" & strRemoveShortcut & "*.lnk"
> Else
> 'Win XP'
> strRemoveQuickstarter = oShell.ExpandEnvironmentStrings("%AllUsersProfile%") & "\Desktop" & "\" & strRemoveShortcut & "*.lnk"
> End If
>
> objFSO.DeleteFile strRemoveQuickstarter, true
> If Err.Number <> 0 Then
> Wscript.echo "Error in removing shortcut from Desktop" & Err.Description
> End If
>
>Wscript.Quit 0</span >
></pre>
</div>
</p>
<hr>
<span>You are receiving this mail because:</span>
<ul>
<li>You are the assignee for the bug.</li>
</ul>
</body>
</html>