bonjour,
je voulais savoir comment dire :
"si il existe des fichiers als ..." pour que mon code fonctionne

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
            'Copie les fichiers de l'ancien répertoire vers le nouveau.
            Dim fso As FileSystemObject
            MsgBox "a"
            Set fso = New FileSystemObject
            If fso...................................... Then
            fso.CopyFolder "Dir1.Path", "chemin", True
            End If
            Set fso = Nothing
            'Supprime l'ancien répertoire.
            Dim fso2 As FileSystemObject
            Set fso2 = New FileSystemObject
            'La valeur True passée au deuxième paramètre permet de supprimer le répertoire dans le cas où il aurait l'attribut lecture seule.
            'Ce paramètre est optionnel, et a la valeur False par défaut.
            fso2.DeleteFolder "chemin", True
            Set fso2 = Nothing