[libreoffice-users] Re: open files automatically

Am 28.05.2015 um 21:56 schrieb Andreas Säger:
> Am 28.05.2015 um 20:27 schrieb toki:
> > On 28/05/2015 16:38, James Knott wrote:
> >
> > > That was possible in OS/2, but I haven't seen it anywhere else.  With
> > > OS/2, you could create a "Work Area" folder and whenever that folder was
> > > opened, whatever was in it would also open.
> >
> > Write a utility that creates a "Work Area" folder, regardless of the
> > platform one uses.
> > An interesting challenge for somebody who is good at PERL or Python coding.
> >
> > jonathon
>
> This can be done with plain stupid StarBasic using the "application
> open" event and some folder named "autostart" within the setup default
> document folder.

Sub onApplicationStart()
oSrv = createUnoService("com.sun.star.util.PathSettings")
sPath = PathConcat(oSrv.Work, "AutoStart")
sDir = PathConcat(sPath, "*.*")
s = dir(sDir)
while len(s)
        sPathName = PathConcat(sPath,s)
        StarDesktop.loadComponentFromURL(sPathName, "_blank", 0, Array())
        s = dir()
wend
End Sub

Function PathConcat(s1, s2)
        if right(s1,1) <> "/" then s1 = s1 & "/"
        PathConcat = s1 & s2
End Function



-- 
To unsubscribe e-mail to: users+unsubscribe@global.libreoffice.org
Problems? http://www.libreoffice.org/get-help/mailing-lists/how-to-unsubscribe/
Posting guidelines + more: http://wiki.documentfoundation.org/Netiquette
List archive: http://listarchives.libreoffice.org/global/users/
All messages sent to this list will be publicly archived and cannot be deleted