File Length

Dimensione := FileLength(percorso)

event OggettoFS.OnGetNamedPropertyValue(
  string PropertyName        // 
  inout string PropertyValue // 
)
{
  // Se è stata richiesta data e ora di ultima modifica
  if PropertyName = UltimaModifica
    ...
  // 
  // Se è stata richiesta la dimensione
  if PropertyName = Dimensione
  {
    // Provo a leggere la dimensione
    try
    {
      PropertyValue := ToString(FileLength(GetNamedPropertyValue(NomeCompleto)))
    }
  }
  // 
  // Se è stata richiesta l'estensione
  if PropertyName = Estensione
    ...
  // 
  // Se è stato richiesto il contenuto
  if PropertyName = Contenuto
    ...
  // 
  // Se è stato richiesto se è in sola lettura
  if PropertyName = In sola lettura
    ...
  // 
  // Se è stato richiesto se è nascosto
  if PropertyName = Nascosto
    ...
  // 
  // Se è stato richiesto se è di sistema
  if PropertyName = Di sistema
    ...
  // 
  // Se è stato richiesto se è una cartella
  if PropertyName = Cartella
    ...
  // 
  // Se è stato richiesto se è da archiviare
  if PropertyName = Archiviare
    ...
  // 
  // Se è stato richiesto il nome completo
  if PropertyName = NomeCompleto
    ...
}