Bonjour,
J'ai réalisé un projet tout simple qui permet de sauvegarder les fichiers, soit par nom de fichier, soit par nom de répertoire
Dans les deux cas, les fonctions d'archivage signalent un nom de fichier erroné
Voici un exemple de nom qui crée cette erreur
LaunchImage-Landscape@2x~ipad.png
Voici le code, "fichier"
Voici le code "répertoire"
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22 // Ajout des fichiers nTaille=0; sListeSauve="";nLigne=0 POUR TOUT tabBatchSauve AVEC NomBatchIdentSauve=[gsNomBatch,"F"] //// nTaille=nTaille+ftaille(tabBatchSauve.CompletSauve) sListeSauve=sListeSauve+""+tabBatchSauve.CompletSauve+""+RC // Nombre de fichiers FIN JAUGE_Sauvegarde.BorneMax = nTotalFicF JAUGE_Sauvegarde.BorneMin = 1 JAUGE_Sauvegarde.Visible = Vrai //// info("nTaille F "+nTaille) nRésultat = zipAjouteListeFichier(MonArchive,sListeSauve,zipAucun,JAUGE_Sauvegarde) SI nRésultat<>0 ALORS Beep() BTN_Lancer..CurseurSouris = curFlèche FEN_Gestion..CurseurSouris = curFlèche Erreur("Ajout de fichier","Une erreur est survenu lors de la sauvegarde de :","",tabBatchSauve.CompletSauve,"",nRésultat+" "+zipMsgErreur(nRésultat), ... " ","La sauvegarde n'a donc pas été effectuée") Sablier(Faux) RETOUR FIN
Et voici le message d'erreur
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17 POUR TOUT tabBatchSauve AVEC NomBatchIdentSauve=[gsNomBatch,"R"] nTaille = fRepTaille(tabBatchSauve.CompletSauve) JAUGE_Sauvegarde.BorneMax = nTaille JAUGE_Sauvegarde.BorneMin = 1 JAUGE_Sauvegarde.Visible=Vrai nRésultat = zipAjouteRépertoire(MonArchive,tabBatchSauve.CompletSauve,Vrai,zipRépertoire,JaugeCompression,JAUGE_Sauvegarde) SI ((nRésultat<>0) ET (nRésultat<>7)) ALORS Beep() BTN_Lancer..CurseurSouris = curFlèche FEN_Gestion..CurseurSouris = curFlèche Erreur("Répertoire"", ""Une erreur est survenu lors de la sauvegarde de :","",tabBatchSauve.CompletSauve,"",nRésultat+" "+zipMsgErreur(nRésultat)) Sablier(Faux) RETOUR FIN FIN
Comment éviter ?
Cordialement
SC
Partager