[Libreoffice-bugs] [Bug 35568] QuickStarter setting not remembered after upgrade (win only)

[bugzilla-daemon at bugs.documentfoundation.org]

https://bugs.documentfoundation.org/show_bug.cgi?id=35568

--- Comment #29 from stavrosm125 at bugzilla.com <stavrosm125 at gmail.com> ---
Comment on attachment 88999
  --> https://bugs.documentfoundation.org/attachment.cgi?id=88999
Script - remove quickstarter

>'removes quickstarter for a given version of OpenOffice'
>
>option explicit
>On Error Resume Next
>
>Dim oShell, objFSO, lnk
>Dim strStartup
>Dim exitCode, strRemoveQuickstarter1, strRemoveQuickstarter2
>                          
>Set oShell = CreateObject( "WScript.Shell" )
>Set objFSO = CreateObject("Scripting.FileSystemObject")
>exitCode = 0
>
>
>strStartup    = WScript.Arguments.Item(0) ' "$ShellStartup" (za User) i "$allusersstartup" (za Comp)
>
>'''
>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
>
>
>  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
>

-- 
You are receiving this mail because:
You are the assignee for the bug.
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <https://lists.freedesktop.org/archives/libreoffice-bugs/attachments/20200909/f450b682/attachment.htm>