Répertoire qui existe mais qui n'existe pas

Signaler
Messages postés
828
Date d'inscription
mercredi 4 août 2010
Statut
Membre
Dernière intervention
19 octobre 2020
-
Messages postés
828
Date d'inscription
mercredi 4 août 2010
Statut
Membre
Dernière intervention
19 octobre 2020
-
Bonjour,
Je veux créer le répertoire "Aquanest" dans le répertoire "Templates".
Je vérifie d'abord que le répertoire "Templates" existe mais j'obtiens quand même erreur 76 Path not found !
Voici mon code
      Dim fPath As New FileSystemObject
If fPath.FolderExists(App.Path & "\Templates") Then fPath.DeleteFolder (App.Path & "\Templates"), True
DoEvents
fPath.CreateFolder (App.Path & "\Templates")
DoEvents
If Not fPath.FolderExists(App.Path & "\Templates") Then
     MsgBox "Impossible de créer le répertoire " & App.Path & "\Templates", vbExclamation
Else  ' donc Templates existe
     fPath.CreateFolder (App.Path & "\Templates\" & Rootitem.Name) ' ==> erreur 76

2 réponses

Messages postés
2244
Date d'inscription
samedi 11 janvier 2014
Statut
Contributeur
Dernière intervention
19 octobre 2020
115
Bonjour
1) je factoriserais la variable Repertoire : cela évite de "recalculer" à chaque fois
App.Path & "\Templates"


Dim fPath As New FileSystemObject
Dim Repertoire as String = App.Path & "\Templates"
If fPath.FolderExists(Repertoire) Then fPath.DeleteFolder (Repertoire), True
DoEvents
fPath.CreateFolder (Repertoire)
DoEvents
If Not fPath.FolderExists(Repertoire) Then
     MsgBox "Impossible de créer le répertoire " & Repertoire, vbExclamation
Else  ' donc Templates existe
     fPath.CreateFolder (Repertoire & Rootitem.Name) ' ==> erreur 76


2) Que vaux
App.Path
dans ce cas précis ?
Messages postés
828
Date d'inscription
mercredi 4 août 2010
Statut
Membre
Dernière intervention
19 octobre 2020
2
Bonjour,
App.Path = "C:\Users\Benji\Desktop\logiciel\log-aqua-lumiere" càd un sous-sous-répertoire sur le bureau !
Il n'empêche que le code revient à
If fPath.FolderExists(Repertoire) Then fPath.CreateFolder (Repertoire & Rootitem.Name)

et donne une erreur 76
un peu comme si
if x > 0 then y = 1/x
donnait "division par zéro" : à quoi se fier ?