Discussion :

[moha31005]

Bonjour

Mes fichiers sont HFCS.

Par le code ci dessous, je vérifie l'existence par la fonction, HFichierExiste(), de mes fichiers dans le répertoire "Dossier", mais toujours il m'adit que le fichier <nomfichier> est introuvable.
Sachant que mes fichiers sont déjà existe dans le dossier dans le centre .

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
 
 
HChangeConnexion("*",MaConnexion) 
HChangeRep("*",Dossier) 
HPasse("*",MotPasse)
HOuvreConnexion(MaConnexion) 
HCréationSiInexistant('*',hOuvertureDifférée) 
 
sListeFichier  = HListeFichier(DossierAnalyse,hLstDétail+hLstTriée)
sFichier =ExtraitChaîne(sListeFichier,I,RC)
TANTQUE sFichier<>EOT
    NomFichier=    ExtraitChaîne(sFichier,1)
   SI HFichierExiste(MaConnexion,NomFichier)=Vrai ALORS
        trace(NomFichier)
   sinon
       trace("Introuvable")
 fin
I++
    NomFichier  = ExtraitChaîne(sListeFichier, I, RC)
fin

Merci de me donner une piste

[moha31005]

Oups 'cest résolu

HFichierExiste(NomFichier)