Rename File

Applicazione.RenameFile(sorgente, destinazione)

event OggettoFS.BeforeSave(
  inout boolean Skip   // Parametro di output booleano. Se impostato a True segnala al framework di non effettuar...
  inout boolean Cancel // Parametro di output booleano. Se impostato a True segnala al framework di annullare la ...
  int Phase            // E' un numero intero da 0 a 3 che indica lo stato di avanzamento del salvataggio come in...
)
{
  string NomeCompleto = "" // Quali dati memorizzerai qui?
  // 
  NomeCompleto := GetNamedPropertyValue(NomeCompleto)
  // 
  Skip := True
  // 
  // Se sono nella fase di inserimento e l'oggetto è inserito
  if Phase = ONE AND Inserted
    ...
  // 
  // Se sono nella fase di aggiornamento e l'oggetto è modificato
  if Phase = C2 AND Updated AND NOT(Inserted)
  {
    // Se è cambiato il nome
    if GetOriginalValue(ToPropertyIndex(Nome)) <> Nome
    {
      // Provo a rinominare il file
      try
      {
         EsempiMS.RenameFile(Percorso +c \ +c GetOriginalValue(ToPropertyIndex(Nome)), NomeCompleto)
      }
      catch
      {
         this.AddDocumentError(impossibile rinominare +c Space +c If(GetNamedPropertyValue(Cartella) = True, la
           cartella, il file))
         Cancel := True
      }
    }
    // 
    // Se è cambiato il contenuto
    if GetOriginalValue(ToPropertyIndex(Contenuto)) <> Contenuto
      ...
    // 
    // Se è cambiato l'attributo "In sola lettura"
    if GetOriginalValue(ToPropertyIndex(SolaLettura)) <> SolaLettura
      ...
    // 
    // Se è cambiato l'attributo "Di sistema"
    if GetOriginalValue(ToPropertyIndex(Sistema)) <> Sistema
      ...
    // 
    // Se è cambiato l'attributo "Nascosto"
    if GetOriginalValue(ToPropertyIndex(Nascosto)) <> Nascosto
      ...
  }
}