Bonjour,
J'essaye de faire une sauvegarde et je veux récupérer que certain sous dossiers (comme desktop, mes documents..) de chaque utilisateurs présents sur le pc.

J'essaye avec le code suivant mais il me retourne l'erreur: "Could not find directory 'C:\Users\C\Desktop'."

Mon code:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
  Dim NomDossier, DossierDestination, DossierSélectionné, NomDossier2 As String
    Dim Drive As String = SelectDrives.ComboBox1.SelectedItem  'Drive = la lettre du disque que l'on sélectionne dans la combobox
    Dim NomPC As String = Environment.MachineName  'variable d'environnement qui donne le nom du pc
    Dim Profil As Object
        Dim Users As String = "C:\Users\"
        For Each Profil In Users
            Dim NomProfil As String = Profil.ToString
            Dim Profildestination As String = (Drive + NomPC & "\Profils\" & NomProfil & "\")
            My.Computer.FileSystem.CreateDirectory(Drive + NomPC & "\Profils\" & NomProfil & "\")
            My.Computer.FileSystem.CopyDirectory(Users + NomProfil & "\Desktop", Profildestination)
        Next
Merci de m'aider