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: 13014 |
Se accedi con utente e password, puoi aggiungere dei commenti.
