Copy File

Applicazione.CopyFile(file sorgente, file destinazione)

public OggettoFS OggettoFS.Duplica()
{
  OggettoFS destinazione = new() // 
  string estensione = ""         // 
  // 
  estensione := GetNamedPropertyValue(Estensione)
  // 
  // Se è un file
  if GetNamedPropertyValue(Cartella) = False
  {
    int i = 1 // 
    // 
    // Duplico l'oggetto
    destinazione := Duplicate(??, ParentCollection(), ??)
    destinazione.Nome := Left(Nome, Length(Nome) - Length(estensione) - ONE) +c C (copia) +c
      C. +c estensione
    // 
    // Finché c'è già un file con questo nome
    while destinazione.Esiste()
    {
      destinazione.Nome := Left(Nome, Length(Nome) - Length(estensione) - ONE) +c C (copia)
         +c C( 2 +c ToString(i) +c C) +c C. +c estensione
      i := i + ONE
    }
    // 
    // Duplico il file
    EsempiMS.CopyFile(GetNamedPropertyValue(NomeCompleto), destinazione.GetNamedPropertyValue(NomeCompleto))
    // 
    // Se è stato duplicato
    if destinazione.Esiste()
    {
      IDDocument padre = null // 
      // 
      padre := Parent
      padre.SetOriginal()
      // 
      return destinazione
    }
  }
  return Null Object
}