Vérification existence répertoire dans le filesystem

Version imprimable

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:

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

07/04/2009, 17h06
aalex_38
Bonjour,

Tu as le message justement parce que le chemin existe :lol:

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

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

Merci bien...

J'ai fais comme celà :

Code:

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 !! :king: