fnSearchFolder => bug ?

Le
gauso
Bonjour,

Soit une table "Fonds" entretenant une relation 1-n avec une tables
"Objets". Depuis ma base je gère des répertoires reproduisant cette
hiérarchie : la dénomination des répertoires fonds utilisant le champ
"Abreviation" de ma table Fonds et la dénomination des sous-
répertoires Objets reprenant le nom du champ "RefObjet" de ma table
Objets. (les sous-répertoires objets contiennent la plupart du temps
des fichiers images illustrant les "objets" en question qui sont en
fait des projets d'architecture).
Pour éviter que l'on modifie une référence objet (ou qu'on la
supprime) - et ce faisant que l'on compromette les liens existant
entre ma base et ces répertoires, j'ai mis en place un code qui
vérifie l'existence des répertoires en cas de modification ou
suppression des objets
Tout marche parfaitement, sauf avec un fonds qui a la particularité de
contenir beaucoup plus que des fichiers images, mais énormément de
fichiers de toutes sortes (fichiers de CAO, fichiers textes, excell,
etc.), en fait ce sont toutes les archives numériques d'une agence
d'architecte
Là le code suivant fait complètement planter la base (ne réponds
plus) : pourquoi ???
Merci de votre aide,

Dim RepFonds As String
RepFonds = "I:" & Me![Abreviation]
Dim NomRepObjet As String
NomRepObjet = Me![Refobjet]

'VERIFICATION DE L'EXISTENCE DU REPERTOIRE OBJET
'définition chemin
Dim cheminrechObjet As String
cheminrechObjet = fnSearchFolder(RepFonds, NomRepObjet) 'on
vérifie d'abord que le répertoire Objet existe
If cheminrechObjet <> "" Then 's'il existe un répertoire Objet
MsgBox "Impossible de supprimer cet objet car il existe un
répertoire lié dans I: Celui-ci va s'ouvrir pour vous permettre de
vérifier son contenu (vous ne pourrez supprimer l'objet que si le
répertoire n'existe plus !", vbInformation, "IMPOSSIBLE DE SUPPRIMER
L'OBJET : REPERTOIRE LIE !"
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
gauso
Le #23128191
Il suffit parfois de poser la question pour trouver la réponse...
En utilisant pas fnSearchFolder, tout va beaucoup mieux !
Bonne journée,

Voici ce qui a marché :
Dim RepFonds As String
RepFonds = "I:" & Me![Abreviation]
Dim NomRepObjet As String
NomRepObjet = Me![Refobjet]

'VERIFICATION DE L'EXISTENCE DU REPERTOIRE OBJET
If dir(RepFonds & "" & NomRepObjet & "", vbDirectory) <> ""
Then
MsgBox "Impossible de supprimer cet objet ...!",
vbInformation, "IMPOSSIBLE DE SUPPRIMER L'OBJET : REPERTOIRE LIE !"
Publicité
Poster une réponse
Anonyme