J'ai une directory C:\ pers\ & !NomName & "\A. Pieces officielles\".

Je voudrais que si les dossiers comportant \A. mais ne s'intitulant pas \A. Pieces officielles\" soient remplacés par \A. Pieces officielles\"
J'ai écrit un code dont une ârtie est reprise ci dessous. mais il me crée un secont dossier vide.


Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
            strPathNl = toPath & "\" & !NomName & "\A. Pieces officielles\"
 
                If fso.FileExists(strPathNl) = False Then
                MkDir strPathNl
                Else
                If Mid(strPathNl, longstrPath, 2) = "A." And fso.FileExists(strPathNl) = False Then
                MkDir strPathNl
                fso.CopyFolder strPathNl, strPathNl
                End If
            End If