Problème de création de dossiers avec une application vb6
Bonjour,
Je travaille sur un programme où des données sont enregistrées dans des fichier .txt lorsque l'on appui sur un bouton "Enregistrer". Ces fichiers sont enregistrer dans un dossier "Groupes" situé dans le répertoire de l'application (App.path).
Je veux créer une fonction qui, lors de l'enregistrement, vérifie si le dossier "Groupes" existe et, dans le cas où il n'existe pas, le crée.
J'ai donc utiliser la fonction suivante:
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
| Dim MyPath As String 'Définition des variables
Dim myName As String
MyPath = App.Path & "\Groupes\"
If (myName = Dir(MyPath, vbDirectory)) = vbEmpty Then
GoTo enregistrer
Else
MkDir (App.Path & "\Groupes\")
GoTo enregistrer
End If |
Ainsi, l'application crée le dossier s'il est absent du répertoire. Par contre, lorsque qu'il continu jusqu'à la fonction enregistrer, elle effectue tout sans erreur mais le fichier .txt n’apparaît pas dans le nouveau dossier créé alors que, si le dossier est déjà présent, tout s'enregistre parfaitement.
En résumé, si le dossier est créé manuellement avant l'utilisation de l'application, les fichiers .txt s'enregistrent alors que si le dossier est créé par l'intermédiaire de l'application, les fichiers .txt n'apparaissent pas dans le dossier et il n'y a pas de message d'erreur. L'application continu comme si tout avait fonctionné.
Que faire??? 8O
Merci beaucoup!
Gamuelf :)
