Bonjour,
J'utilise un répertoire de travail dans lequel je crée dynamiquement des fichiers qui seront ensuite traité par différentes méthodes afin d'être injectés dans un autre programme.
En fait, je les crée quand j'encode une facture afin que celle-ci soit transférée vers un programme comptable.
Tout se passe bien lorsque j'encode une 1ere facture mais si j'encode une 2eme facture sans avoir fermé mon programme, ma procédure de transfert échoue.
J'aimerais donc supprimer les fichiers de ce répertoire, supprimer le répertoire et le recréer.
SI PAS HFerme("") ALORS
Erreur("Problème lors de la fermeture des fichiers"+RC + HErreur ())
FIN
HLitPremier(PARAM_GEN,ID_SOC)
res est un booléen = fSupprime(PARAM_GEN.REP_DEST_WB+"\*.*",frLectureSeule)
SI res = Faux ALORS
Erreur(ErreurInfo( errMessage ))
RETOUR
FIN
resSupRep est un booléen = fRepSupprime(PARAM_GEN.REP_DEST_WB,frRécursif)
SI resSupRep = Faux ALORS
Erreur(ErreurInfo( errMessage ))
RETOUR
FIN
fRepCrée(PARAM_GEN.REP_DEST_WB)
J'obtiens le message suivant suite au fRepSupprime :
"Impossible de supprimer le répertoire. Vérifiez que vs avez les droits nécessaires et qu'il ne reste plus de fichiers ouverts"
J'arrive donc bien à supprimer tous les fichiers du répertoire mais pas le répertoire en lui même!
NB: les fichiers contenus sont au format DBF (avec index CDX) ouverts via HDBOuvre et certains fichiers ont été créés par une DLL.