dopo l'ennesimo tentativo ha funzionato:
Sub Testo1
oForm = ThisComponent.DrawPage.forms.MainForm.SubForm.Standard
dataf=oForm.GetByName("testo1")
a=dataf.text
if FileExists(a) then
oSvc = CreateUnoService("com.sun.star.system.SystemShellExecute")
oSvc.execute(ConvertToUrl(a), "", 0)
else
msgbox "il file non esiste"
end if
grazie, metterò il db sul mio sito in sostituzione del vecchio,può
essere utile a qualcuno; per uno strano capriccio testo1 era diventato
Testo1
--
http://web.tiscali.it/ozanam
Non è compito mio Questa è la storia di quattro persone chiamate: Ognuno,
Qualcuno, Ciascuno e Nessuno.
C'era un lavoro importante da fare e Ognuno era sicuro che Qualcuno lo avrebbe
fatto. Ciascuno avrebbe potuto farlo ma Nessuno lo fece. Qualcuno si arrabbiò
perché era un lavoro di Ognuno. Ognuno pensò che Ciascuno poteva farlo ma
Nessuno capì che Ognuno non l'avrebbe fatto.
Finì che Ognuno incolpò Qualcuno perché Nessuno fece ciò che Ciascuno avrebbe
potuto fare.
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
