https://bugs.documentfoundation.org/show_bug.cgi?id=35568
--- Comment #29 from stavrosm...@bugzilla.com <stavrosm...@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.
_______________________________________________
Libreoffice-bugs mailing list
Libreoffice-bugs@lists.freedesktop.org
https://lists.freedesktop.org/mailman/listinfo/libreoffice-bugs