Bonjour,
J'ai besoin d'une information.
Je veux transférer des fichiers par FTP sur un serveur dans des répertoires bien précis.
Avant d'envoyer le fichier je teste si le répertoire existe sinon je le crée.
Voici mon bout de code :
La variable "sFichierServeur" contient le dossier à tester, exemple : \toto\tutu
Je me sert de la fonction "FTPAttribut" si j'ai une erreur c'est que le dossier n'existe pas alors je le crée.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7 FTPAttribut(nNumConnexion, sFichierServeur) SI ErreurDétectée ALORS FTPRepCrée(nNumConnexion,sFichierServeur) FIN gbEtatEnvoie = FTPEnvoie(nNumConnexion,sFichierClient,sFichierServeur,TransfertEnCours,FTPModeBinaire)
Avant de faire ce bout de code j'avais à la suite :
En gros mon problème vient que si je laisse ce "CAS ERREUR" si "FTPAttibut" me retourne une erreur je crée le dossier et je vais dans mon "CAS ERREUR" sans faire le transfert.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3CAS ERREUR : ....
En supprimant le "CAS ERREUR" tout fonctionne bien.
Mais n'existe t'il pas une façon plus propre de faire et de gérer les erreurs ?
Merci bien.
Partager