[Base][Macro] Aprire allegati con "Seleziona file"

[charlie]

Si può utilizzare il controllo Seleziona file per cercare e selezionare un allegato presente nel computer.
Successivamente si può aprire l'allegato stesso sfruttando il programma di default impostato dal sistema operativo per quel tipo di file.
All'evento Approva l'azione del pulsante va assegnata la macro:

Codice: Seleziona tutto

function openurlimm(oEv as object)
' 
   dim oForm,oTextBox, sText
   oForm=oEv.source.model.parent
   oTextBox= oForm.getbyname("Scelta_file")
   'sText= "" + oTextBox.text ' VERSIONE WINDOWS
   sText= "file://" + oTextBox.text ' VERSIONE MAC
   if FileExists ( oTextBox.text) then
      oEv.source.model.targeturl=sText
      openurlimm=true ' Do the programm when the file exists
      else 
      openurlimm=false ' The file does not exist and do nothing
   end if
  ' print  convertfromurl(oTextBox.text)
End function

La macro va adattata a seconda del sistema operativo per il riconoscimento del Percorso dell'allegato da aprire.