Re: Faire des sauvegardes à partir d'un menu
Posté par Anonyme le 24/2/2004 16:17:11
Cette erreur va etre transmise aux support technique car dans certains cas, elle provoque une erreur sans pour autant retourner un numéro ou un message d'Erreur
Pour continuer à utiliser cette fonction il est donc necéssaire de modifier le code de la façon suivante:
Créer un nouvelle fonction :
puis remplacer le code à partir de :
Cette modification permet de passer outre l'erreur Génerer par {sFichierNom}..Repertoire et de passer au fichier suivant
Un log ou un message est alors peut etre nécessaire pour afficher les fichiers non sauvegardés
Pour continuer à utiliser cette fonction il est donc necéssaire de modifier le code de la façon suivante:
Créer un nouvelle fonction :
Procedure RendRepertoire(pFichier)
Quand Exception
RENVOYER ""
FIN
RENVOYER {pFichier}..Repertoire
puis remplacer le code à partir de :
SREPERTOIRESDONNEES = {SFICHIERNOM}..REPERTOIRE
//Par
SREPERTOIRESDONNEES = RendRepertoire(sFichierNom)
SI SREPERTOIRESDONNEES="" ALORS GOTO SUITE
//Chemin complet du fichier à sauvegarder
sFichierSource = {sFichierNom}..Répertoire+"\"+sFichierNom+{sFichierNom}..Extension
//Chemin Complet du fichier a creer
sFichierDestination = Répertoire+"\"+sFichierNom+{sFichierNom}..Extension
//On ferme le Fichier au cas ou
SI PAS HFerme(sFichierNom) ALORS
Erreur(HErreurInfo())
//Tous les fichiers n'était pas fermés
//Le fichier ne peut pas etre fermé alors on quitte la sauvegarde
FIN
//On copie le fichier
fCopieFichier(sFichierSource,sFichierDestination,frJauge)
SUITE:
FIN
Sablier(Faux)Info("La sauvegarde des fichiers s'est correctement effectuée.")
Cette modification permet de passer outre l'erreur Génerer par {sFichierNom}..Repertoire et de passer au fichier suivant
Un log ou un message est alors peut etre nécessaire pour afficher les fichiers non sauvegardés
Cette contribution était de : http://old.wdforge.org/newbb/viewtopic.php?forum=5&topic_id=562&post_id=2288