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: [email protected]
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

Reply via email to