VB6 FSO CreateFolder erreur 58 (already exists) alors qu'il n'existe pas

bonjour, peut-être pourrais-tu vérifier si le dossier existe avant de le créer?

Il me sembler que c'est ce que je fais, regarde mon code
si "\Templates" existe je le supprime
je crée "\Templates"
si "\Templates" existe (donc il est vide puisque je viens de le créer) alors
je crée le sous-folder "\Templates\" & FName ==> erreur 58 !

Comme indiqué dans mon premier message, FName est un string qui contient le nom du sous-répertoire à créer.

Je ne comprends pas ta réponse
si le folder "Templates" existe je le supprime, pas d'erreur sur cette ligne, donc il n'existe pas ou plus
je crée le folder "Templates", pas d'erreur sur cette ligne donc il existe et est vide puisque je viens de le créer
si le folder "Templates" existe je crée le sous-folder Fname dans "Templates" ==> erreur 58

Fname peut contenir une des valeurs suivantes
Alpheus
Aqua Illumination
Aqua Medic
Aquanest
Arcadia
ATI
Divers
DsunY
Ecotech
Eshine Aquabeauty
Evergrow
Giesemann
Maxspect
Orphek
Rak-Tech
Vertex
c'est à dire la liste des sous-répertoires qu'il est sensé créer.

Je ne peux pas vérifier avec Dir chez les 4.791 utilisateurs sachant que l'erreur s'est produite chez 2 d'entre eux, chez moi ça fonctionne très bien.
J'ai ajouté le nom du folder qu'il tente de créer dans le message d'erreur 58, ainsi je saurai au moins duquel il s'agit.

Bonjour,
J'ai à nouveau ponctuellement la même erreur alors que la plupart du temps tout fonctionne.
Je rappelle mon code

Dim sh As Object
Dim fPath As New FileSystemObject
If fPath.FolderExists(App.Path & "\Templates") Then fPath.DeleteFolder (App.Path & "\Templates"), True   ' Destruction complète du dossier et des fichiers qu'il contient
DoEvents
fPath.CreateFolder (App.Path & "\Templates")   ' Création du dossier vide
DoEvents
If Not fPath.FolderExists(App.Path & "\Templates") Then   ' Vérifier si le dossier a bien été créé
      MsgBox ("Impossible de créer le répertoire " & App.Path & "\Templates"), vbExclamation
Else
      fPath.CreateFolder (App.Path & "\Templates\" & Rootitem.Name) ' => erreur 58

App.Path & "\Templates\" & Rootitem.Name = "C:\AQUA\Templates\Aquanest"

58 signifie "File already exists" : pourquoi survient-elle lors de la création d'un répertoire ?

Comme je l'ai expliqué je ne peux pas ajouter les Dir
parce que parmi 4.837 utilisateurs le problème s'est posé 2 fois mi juin et aujourd’hui.
Les utilisateurs qui ont rencontré ce problème ne l'ont pas signalé, je le sais parce que le logiciel envoie un rapport d'erreur, je ne pense pas qu'ils feront attention au message.

Je ne vois pas non plus ce que ces Dir pourraient apporter
soit le répertoire existe alors pourquoi n'a-t-il pas été supprimé ?
soit le répertoire n'existe pas alors pourquoi n'a-t-il pas été créé ?

Je teste d'ailleurs ces 2 cas en FSO :
si le répertoire existe, je le supprime, donc il n'existe pas
je crée le répertoire donc il est vide
si le répertoire existe j'ajoute un sous répertoire => erreur 58 !

Bonjour a tous,

Excusez l'incruste.

je le sais parce que le logiciel envoie un rapport d'erreur, je ne pense pas qu'ils feront attention au message.
Modifiez le rapport d'erreur en le complétant des infos sur le fichier en cause

parce que parmi 4.837 utilisateurs
Ben oui, mais soit vous résolvez l'erreur, soit vous la traitez.
yg_be et pijku vous ont donne des pistes

Les deux PC qui vous embêtent sont différents en quoi par rapport au autres?

Dans le code que vous montrez le programme s'arrête !
Le rapport d'erreur arrive par miracle?

Bonjour,
Je n'ai aucune idée des PC utilisés.
En car d'erreur un

on error goto

appelle une Sub qui envoie un fichier sur le serveur.
Il est possible d'ajouter des infos dans ce fichier en créant une nouvelle version du logiciel.

J'ai essayé avec ma version de test alors que tous les répertoires sont bien créés

MsgBox Dir(App.Path & "\Templates\")

donne un message vide !