Récupération du nom de tous les utilisateurs
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:
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