Scopo
Questa funzione è attualmente OBSOLETA (versione 7.0+) .
Imposta gli attributi di un file o di una
cartella.
Sintassi
Applicazione.SetFileAttributes(percorso, nuovi attributi)
Argomenti
Percorso | Percorso del file o della cartella desiderati |
Nuovi attributi | Guarda la lista valori FileAttributes per i possibili valori |
Esempio
// ****************************************************************************************************
// Evento notificato al documento durante le fasi iniziali della procedura di salvataggio dei documenti
// ****************************************************************************************************
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
...
//
// Se è cambiato il contenuto
if GetOriginalValue(ToPropertyIndex(Contenuto)) <> Contenuto
...
//
// Se è cambiato l'attributo "In sola lettura"
if GetOriginalValue(ToPropertyIndex(SolaLettura)) <> SolaLettura
{
try
{
EsempiMS.SetFileAttributes(NomeCompleto, FileAttributes(NomeCompleto) | Read Only)
}
}
//
// Se è cambiato l'attributo "Di sistema"
if GetOriginalValue(ToPropertyIndex(Sistema)) <> Sistema
...
//
// Se è cambiato l'attributo "Nascosto"
if GetOriginalValue(ToPropertyIndex(Nascosto)) <> Nascosto
...
}
}
// Evento notificato al documento durante le fasi iniziali della procedura di salvataggio dei documenti
// ****************************************************************************************************
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
...
//
// Se è cambiato il contenuto
if GetOriginalValue(ToPropertyIndex(Contenuto)) <> Contenuto
...
//
// Se è cambiato l'attributo "In sola lettura"
if GetOriginalValue(ToPropertyIndex(SolaLettura)) <> SolaLettura
{
try
{
EsempiMS.SetFileAttributes(NomeCompleto, FileAttributes(NomeCompleto) | Read Only)
}
}
//
// Se è cambiato l'attributo "Di sistema"
if GetOriginalValue(ToPropertyIndex(Sistema)) <> Sistema
...
//
// Se è cambiato l'attributo "Nascosto"
if GetOriginalValue(ToPropertyIndex(Nascosto)) <> Nascosto
...
}
}
- Questa funzione è attualmente OBSOLETA (versione 7.0+) .
- Il parametro Nuovi Attributi è la concatenazione binaria di tutti gli attributi che si vogliono impostare al file o alla cartella.
Ultima modifica: 25/03/2021 / Validità: da 7.0.3200