Discussion :

[Ptikir]

Bonjour le forum,

J'ai toujours un problème avec la vérification de l'existence d'un répertorie dans mon filesystem.

Voici mon code

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
If repertoirePJRang2 <> "" Then
    Print #n, repertoirePJ & vbCrLf;
        'If Not ExistRepertoire.folderexists(repertoirePJ & "\" & repertoirePJRang2) Then
        If Dir(repertoirePJ & "\" & repertoirePJRang2) = "" Then
        Print #n, repertoirePJ & "\" & repertoirePJRang2 & vbCrLf;
                MkDir (repertoirePJ & "\" & repertoirePJRang2)
                repertoirePJ = repertoirePJ & "\" & repertoirePJRang2
                Print #n, "le repertoire des PJ = " & repertoirePJ & vbCrLf;
        End If
    Else
        Print #n, "Le répertoire : " & repertoirePJ & "\" & repertoirePJRang2 & "existe déjà" & vbCrLf;
    End If

L'erreur se situe au niveau du MkDir

j'ai l'erreur "erreur d'execution '75' erreur d'accès Chemin\Fichier"

la valeur de repertoirePJ & "\" & "repertoirePJRang2 = D:\Documents and Settings\A770477\Mes documents\Macros\Despatching Message\2009

Cette arborecence existe dans mon filesystem (j'ai testé dans un explorateur)


De plus je ne devrais pas entrer dans le SI car le répertorie existe.


Quelqu'un a t il une idée concernant mon problème?

Merci d'avance pour vos réponses

[aalex_38]

Bonjour,

Tu as le message justement parce que le chemin existe

Un exemple pour tester si le repertoire existe la fonction suivante :

Code :

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

1
2
3
Function DossierExiste(NomDossier As String) As Boolean
    DossierExiste = Dir(NomDossier, vbDirectory) <> ""
End Function

[Ptikir]

Merci bien...

J'ai fais comme celà :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
If repertoirePJRang2 <> "" Then
    Print #n, repertoirePJ & vbCrLf;
    dossierExiste = Dir(repertoirePJ & "\" & repertoirePJRang2, vbDirectory) <> ""
 
        If dossierExiste = False Then
        Print #n, dossierExiste & vbCrLf;
                MkDir (repertoirePJ & "\" & repertoirePJRang2)
                repertoirePJ = repertoirePJ & "\" & repertoirePJRang2
                Print #n, "le repertoire des PJ = " & repertoirePJ & vbCrLf;
        End If
Else
        Print #n, "Le répertoire : " & repertoirePJ & "\" & repertoirePJRang2 & "existe déjà" & vbCrLf;
End If

Et ça fonctionne très bien !!