[Base][Macro] Aprire allegati con "Seleziona file"
Inviato: martedì 7 dicembre 2021, 16:40
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:
La macro va adattata a seconda del sistema operativo per il riconoscimento del Percorso dell'allegato da aprire.
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