1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
|
Private Sub CopieDossiers(ByVal DossierSource As String, ByVal DossierCible As String)
' La classe Path donne notamment la méthode GetFileName qui permet d’extraire le nom du fichier ou du sous dossier d’un chemin complet
Directory.CreateDirectory(DossierCible)
Try
Dim MesFichiers() As String = Directory.GetFiles(DossierSource)
Dim UnFichier As String
For Each UnFichier In MesFichiers
File.Copy(UnFichier, DossierCible & "\" & Path.GetFileName(UnFichier))
Next
Catch
End Try
Try
Dim SousDossiers() As String = Directory.GetDirectories(DossierSource)
Dim UnDossier As String
For Each UnDossier In SousDossiers
CopieDossiers(UnDossier, DossierCible & "\" & Path.GetFileName(UnDossier))
Next
Catch
End Try
End Sub |
