OVH Cloud OVH Cloud

WD9 - HCreationSiInexistant

1 réponse
Avatar
I.G.LOG
Problème sous Windev 9 (dernière version)


Bonsoir à tous,

Je cherche depuis plus de 2 heures l'origine du problème suivant:

HcreationSiInexistant("*") me renvoie un message d'erreur "Impossible de
créer le fichier
<c:\Mes Projets\TECHAVIA_Migre\Fichiers\DOCLGLN.NDX.
Le fichier n'a pas été trouvé ... Détail de l'erreur système: Le chemin
spécifié est introuvable"

Le chemin est introuvable car je n'utilise plus ce répertoire depuis des
lustres ???!!!! Et j'utilise la fonction HCreation sans aucun problème
jusqu'à présent (ce problème est nouveau, sans rien avoir changé au code) !

La seule manipulation que j'ai faite avant cette erreur c'est de générer une
nouvelle analyse (le fichier DOCLGLN est un nouveau fichier).


J'ai vérifié les points suivants:
Dans l'analyse, il y a bien "répertoire des données = répertoire programme".
J'ai même forcé le répertoire (e:\Mes Projets\TA\Fichiers) sans succès
J'ai fait une recherche de la chaine "TECHAVIA_Migre" dans tout le code du
programme: pas trouvée !!
J'ai vérifié et modifié le .REP (techavia.rep qui se trouve dans le rép. du
programme e:\Mes Projets\TA) pour qu'il n'y ai plus d'occurence
"TECHAVIA_Migre"
Je suis même allé dans la base de registre pour supprimer les occurrences
"TECHAVIA_Migre"

Rien n'y fait !!!


Le code pour gérer la création des fichiers et le répertoire données est le
suivant (dans la classe Projet):


// Nota: le rep. est paramétré dans le fichier "TECHAVIA.INI", section
"PATH", rubrique "Fichiers"
// Ceci permet de gérer le répertoire des donnees

// Répertoire programme
SI EnModeTest() ALORS
:PathPro = fDisqueEnCours()+"\Mes Projets\TA"
SINON
:PathPro = ExeInfo("Répertoire")
FIN

// Valeurs du fichier INI
lpDefault = :PathPro + "\"
lpFileName = :PathPro + "\TECHAVIA.INI"
SI fRep(lpFileName,frFichier) = "" ALORS
Erreur("Fichier " + lpFileName + " introuvable !!!")
Ferme
FIN
:PathFic = INILit("PATH","Fichiers",lpDefault,lpFileName)

// Info(:PathPro,:PathFic) ---> OK
SI PAS HSubstRep("?",:PathFic) ALORS
Erreur("HSubstRep, Rép. logique = "+fRepDonnees()+", Rép. physique =
"+:PathFic,"Erreur Hyper File : " + HErreur ())
RENVOYER Faux
FIN

Je précise que ce problème est nouveau... j'utilise ce code depuis plusieurs
années sans problème


Merci de votre aide

1 réponse

Avatar
I.G.LOG
Ne cherchez pas, j'ai trouvé ! Dans l'analyse propritétés du fichier (onglet
info) le répertoire était défini "en dur" sur ce répertoire inexistant.
c'est un mystère puisque ce fichier vient d'être crée ??!!!