Supprimer un fichier depuis le centre
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:
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 |