Sviluppo4d.it
Sito indipendente di informazioni tecniche per sviluppatori 4th Dimension italiani  

Sviluppatori 4D

Utility 4D

Risorse 4D



4d logo
Naviga: Prev Next

Titolo: Backup della cartella MAC4DX ed i file .bundle

Categoria: Codice Ultimo Aggiornamento: 13/07/05


Ciao a tutti.

Voglio allegare nel backup del database anche la cartella MAC4DX
La cartella può contenere 2 tipi di plugin :
- come files con suffisso .4CX
- come pacchetti con suffisso .bundle

Il comando 'Select folder' ed il successivo comando 'DOCUMENT LIST' non permettono di riconoscere nella lista dei documenti contenuti i file con suffisso .bundle, che si comportano in realtà come delle cartelle. E' necessario per cui introdurre anche un successivo controllo sulle cartelle contenute nella cartella MAC4DX, con il comando 'FOLDER LIST'.

Per implementare il backup dell'intera cartella MAC4DX da un bottone 'Seleziona Cartella' inserito nella finestra di impostazioni del Backup è possibile utilizzare le seguenti 3 procedure:

Nel Bottone 'Seleziona Cartella':-------------------------------------------

C_TEXT($tPath)
ARRAY TEXT($aDocuments;0)

$tPath:=Select folder("Scegli una Cartella da allegare")

If ($tPath#"")
  DOCUMENT LIST($tPath;$aDocuments)
  FOLDER LIST($tPath;$aDirectories)
  For ($i;1;Size of array($aDocuments))
    If (Find in array(IncludesFiles;$tPath+BKP_GetDirGlyph +$aDocuments{$i})=-1)
      INSERT ELEMENT(IncludesFiles;Size of array(IncludesFiles)+1)
      IncludesFiles{Size of array(IncludesFiles)}:=$tPath+BKP_GetDirGlyph +$aDocuments{$i}
    End if
  End for

  If (Size of array($aDirectories)#0)
    For ($i;1;Size of array($aDirectories))
      BKP_XML_GetBundle ($tPath+BKP_GetDirGlyph +$aDirectories{$i})
    End for
  End if

End if

  ` Method: BKP_XML_GetBundle-------------------------------------------
$tPath:=$1
DOCUMENT LIST($tPath;$aDocuments)
FOLDER LIST($tPath;$aDirectories)
For ($i;1;Size of array($aDocuments))
  If (Find in array(IncludesFiles;$tPath+BKP_GetDirGlyph +$aDocuments{$i})=-1)
    INSERT ELEMENT(IncludesFiles;Size of array(IncludesFiles)+1)
    IncludesFiles{Size of array(IncludesFiles)}:=$tPath+BKP_GetDirGlyph +$aDocuments{$i}
  End if
End for

If (Size of array($aDirectories)#0)
  For ($i;1;Size of array($aDirectories))
    BKP_XML_GetBundle ($tPath+BKP_GetDirGlyph +$aDirectories{$i})
  End for
End if

  ` Method: BKP_GetDirGlyph-------------------------------------------
C_LONGINT($platform)
C_TEXT($0)

PLATFORM PROPERTIES($platform)
If ($platform=3)
  $0:="/"
Else
  $0:=":"
End if

(PROVATO SOLO SU MAC)


Inviato da: Raffaele Furlotti Visite: 12713

Se accedi con utente e password, puoi aggiungere dei commenti.


Accesso

User:
Pass: Accedi

Cerca

Se non trovi le informazioni che cerchi scrivi a aiuto@sviluppo4d.it

4D Principali

4D Discussioni

Faq random


Crediti

Dominio registrato da ZetaNet
Sito realizzato da Nexus srl
4D SQL 11.9.0 offerto da 4D & Italsoftware
Icone di FAMFAMFAM
Moderato da Umberto Migliore
301 utenti registrati

Pagina servita il 19/03/24 alle 07:24:53 Valid HTML 4.01! Valid CSS!

Mutuo Facile, iDigitalScout, iDigitalTags e altre app di Nexid srl per iPhone e iPad

Cidroid, distributore italiano lettori barcode per IOS Apple iPhone, iPod, iPad