|
|
|
|
|
- Updating the structure of the files
HModifyStructure (Example)
Updating the structure of the files This example shows how to update the structure of all the files if necessary. sListeDesErreurs is string
HCheckStructure("*", hIdentical)
FOR EACH STRING sNomUnFichier OF HListFile() SEPARATED BY CR
WHEN EXCEPTION IN
HCreationIfNotFound(sNomUnFichier)
DO
IF HError(hErrCurrent) = 70016 THEN
ToastDisplay("Mise à jour de la structure du fichier <" + ...
sNomUnFichier + "> en cours...", toastShort, vaMiddle, haCenter)
IF NOT HModifyStructure(sNomUnFichier) THEN
sListeDesErreurs += [CR] + ...
"- Erreur de modification de structure pour le fichier <" + ...
sNomUnFichier + "> : " + HErrorInfo()
END
ELSE
sListeDesErreurs += [CR] + "- Erreur d'accès au fichier <" + ...
sNomUnFichier + "> : " + HErrorInfo()
END
END
END
HCheckStructure("*", hCompatible)
IF sListeDesErreurs <> "" THEN
IF NOT YesNo("Des erreurs sont apparus lors de l'ouverture des fichiers : " + CR + ...
sListeDesErreurs + CR +...
"Continuer quand même l'application ?") THEN
EndProgram()
END
END
This page is also available for…
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|