Re: Help ! Copiare un file da un posto ad un altro

[Matteo Lovatti <matteolovatti at mac dot com>]

ciao, grazie innanzi tutto a Gilberto e a Fabio per il loro aiuto
ho risolto il problema cosi...

  Dim immagine As Picture
  Dim file As FolderItem
  Dim nuovo As FolderItem


  file=GetOpenFolderItem("")
  If file<>Nil Then
    immagine=file.OpenAsPicture
    file.SaveAsJPEG(immagine)
    nuovo=GetFolderItem(":immagini:"+ef_codice_articolo.Text+".jpg")
    If nuovo<>Nil Then
      nuovo.Delete
    End If
    file.CopyFileTo nuovo
    ef_immagine.Text=ef_codice_articolo.Text
  End If

Tutto ora sembra funzionare (almeno su un Mac) !!


Matteo


On 04/set/07, at 23:08, Gilberto De Faveri wrote:

> Benvenuto,
> un ottimo punto di partenza sono i progetti di esempi distribuiti  
> con l'installazione completa di REALbasic.
> Nella fattispecie:
>
> Examples/Files/Copy and Move Example.rbp
> Examples/FolderItem Dialogs/FolderItem Dialogs.rbp
> Examples/Graphics/Saving Graphics.rbp
>
> che dovrebbero contenere tutto quello che ti serve.
>
> Ciao.
>
> On Sep 3, 2007, at 18:08 , Matteo Lovatti wrote:
>
> > Ciao a tutti sono un "nuovo" iscritto !
> > Chiedo aiuto a voi perchè io non ne vengo fuori .....
> >
> > Devo semplicemente con GetOpenFolderItem("") chiedere all'utente  
> > un file immagine
> > e salvarlo in jpg in una catrella "immagini" rinominanolo con il  
> > valore di un EditField..
> > ma non sono proprio in grado ! Potete aiutarmi ? Grazie !
>
>
> --
> gilberto de faveri
> omnidea srl
>
> edificio pegaso
> parco scientifico tecnologico vega
> via delle industrie, 15
> 30175 venezia marghera
>
> tel +39 041 509 3441
> fax +39 041 509 3641
>
> www.omnidea.it