Discussion :

[Gamuelf]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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???

Merci beaucoup!

Gamuelf

[Aniki]

Salut Gamuelf,

une petit remarque à propos de ton code.
J'ai l'impression tu fais l'inverse de ce que tu voudrais faire.
SI le résultat de Dir est vbEmpty (dossier pas trouvé si je ne m'abuse) => enregistre SINON crée le dossier Groupes et enregsitre.

[iclic]

Bonjour,

Où tout simplement faire...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
 Dim MyPath As String 'Définition des variables
 Dim myName As String
 Dim fso
 
 Set fso = CreateObject("Scripting.FileSystemObject")
 
 MyPath = App.Path & "\Groupes\"
 
If fso.folderexists(MyPath) = False Then
    fso.createfolder (MyPath)
End If
 
GoTo enregistrer
 
set fso = nothing

[Gamuelf]

Merci beaucoup pour vos réponses! :O Cela règle mon problème!

[Gamuelf]

Un problème persiste! Le dossier se crée bel et bien mais le fichier .txt n'est pas enregistré dans le dossier!

[Gamuelf]

J'ai trouvé! Merci encore!