Re: Suppression de fichier HF [WD10]

On 23 mai, 10:03, Romain PETIT <V...@Signature.fin> wrote:
> wd_newbie a exprim=E9 avec pr=E9cision :
>
> > Pourtant il me semblait que dans l'aide le type de format pour
> > sSupprimer() pouvait =EAtre :
> > "C:\mes projets\monAplli\exe\membres.*"
> > C'es ce que me renvoie ma variable :
> > sNom =3D Compl=E8teRep(gsFichierGlobal) + sNomFichier + ".*"
> > ou sNomfichier est un split de la fonction HlisteFichier()
>
> Alors c'est une nouvelle option (je suis rest=E9 en 7.5) pour fSupprime ?
> Quel est ton code exact ?
>
> > je ne voudrai pas avoir a coder tous les fSupprime() fichier par
> > fichier ...
>
> M=EAme avec WD7.5, tu n'as pas besoin les coder un par un.
> fListeFichier("C:\tests\*.log","SupprimeFichier")
>
> FONCTION SupprimeFichier(sChemin,sFichier,eChange,ePointeur)
> //proc=E9dure appell=E9e par flistefichier
> //on ne s'occupe pas des sous-r=E9pertoires
> SI echange=3DflChangeR=E9pertoire ALORS RENVOYER Faux
>
> SI PAS fSupprime(sChemin+sFichier) ALORS
> Erreur("Erreur dans la suppression du fichier : "+
> sChemin+sFichier)
> SINON
> Trace("Suppression du fichier "+sChemin+sFichier)
> FIN
> RENVOYER Vrai
>
> --
> Romain PETIThttp://cerbermail.com/?O16kfXOFcq
> (cliquez sur le lien ci-dessus pour me contacter en priv=E9)

C'est marrant, j'ai fait un essai avec ton systeme, pour moi c'est la
m=EAme chose que le mien , sauf que je liste mes fichiers de donn=E9es
avec un Hlistefichier( ) , ce qui me donne la liste des fichiers de
mon analyse, alors qu'avec le tien je liste le r=E9pertoire de
l'executable avec un filtre "*.fic" ou "*.ndx".
Mais j'ai quand m=EAme fait un essai ... ce ne serait pas la premiere
fois qu'un truc bizzare se passe en informatique :-)

Le r=E9sultat est le m=EAme , une fois tous mes fichiers sont effac=E9s, un
coup c'est certains , un coup c'est d'autres ... mais pas les m=EAme. Je
suppose que mon probleme provient du fait que les fichiers ne sont pas
"completement fermes", malgre un Hferme("*") juste avant d'appleler la
fonction de suppression du fichier.

J'ai fait un essai en r=E9cup=E9rant le nom de mon fichier hyperfile et
d'appliquer le Hferme() s=E9paremment sur chaques fichiers, =E7a n'a pas
l'air de mieux fonctionner :-(

PROCEDURE effacer_fichier_HF(sChemin,sFichier,eChange,ePointeur)
SI eChange=3DflChangeR=E9pertoire ALORS RENVOYER Faux
sNomSimple est une cha=EEne
sNomSimple =3D ExtraitCha=EEne(sFichier,1,".")
HFerme(sNomSimple)
SI PAS fSupprime(sChemin+sFichier) ALORS
Erreur("Erreur dans la suppression du fichier : "+ sChemin+sFichier)
FIN
RENVOYER Vrai


Si quelque'un a deja fait cela ?

Olivier