Bonjour
Je voulais supprimer, par programmation, des fichiers depuis mon dossier existant dans le centre e contrôle( HFCS)
mais j'ai un message suivant "le fichier spécifier est introuvable"
Pourtant la fonction HListeFichier() à lit tous mes fichiers
Merci de me donner une piste
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 sListeFichier est une chaîne= HListeFichier(hLstDétail+hLstTriée) i est un entier=1 sFichier est une chaîne=ExtraitChaîne(sListeFichier,i,RC) TANTQUE sFichier<>EOT SI HFichierExiste(ExtraitChaîne(sFichier,1))=Vrai ALORS SI fSupprime(ExtraitChaîne(sFichier,1))=Faux ALORS Erreur(ErreurInfo(errMessage)) SINON Trace(ExtraitChaîne(sFichier,1)) FIN SINON FIN i++ sFichier=ExtraitChaîne(sListeFichier,i,RC) FIN
Partager