Bonjour,
Voici mon problème: j'essaye de faire une sauvegarde des profiles se trouvant dans le dossier "utilisateurs" mais en ne prenant que les dossiers important comme "bureau", "mes documents", "Favoris", "images"....etc.
Le problème est qu'il bute sur le dosssier "Mes Documents\ma musique", "mes images" et je pense aussi "mes vidéos" qui se trouvent dans "mes documents" qui sont en fait des "hard link" dossiers protégés.
J'ai vue qu'il y avait le "File.GetAttributes" avec "If (File.GetAttributes(Users & "\" & NomProfil & "\Documents\Ma Musique") And FileAttributes.ReparsePoint) = FileAttributes.ReparsePoint Then",
mais j'arrive pas à l'utiliser.
Je voudrai juste trouver le code qui dit que si le dossier est un dossier caché ou dossier protégé alors il les ignore(ou la solution pour copier le dossier "mes documents").
voici mon code juste pour la copie du dossier "mes documents" de chaque profils:
Mon code retourne donc un fichier texte avec les erreurs rencontrées qui est pour chaque profil : -Access to the path 'C:\Users\*****\Documents\Ma musique' is denied.
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 Dim Profil As String Dim Users As String = My.Application.GetEnvironmentVariable("USERPROFILE").Substring(0, My.Application.GetEnvironmentVariable("USERPROFILE").LastIndexOf("\")) For Each Profil In System.IO.Directory.GetDirectories(Users) Dim di As New DirectoryInfo(Profil) Dim NomProfil As String = di.Name Dim Profildestination As String = (Drive & NomPC & "\Profils\" & NomProfil & "\") If Directory.Exists(Users & "\" & NomProfil & "\Documents") Then Try My.Computer.FileSystem.CopyDirectory(Users & "\" & NomProfil & "\Documents\", Profildestination & "Documents\", True) Catch erreur As Exception My.Computer.FileSystem.WriteAllText(Drive & NomPC & "\Erreurs.txt", vbCrLf & "-" & erreur.Message & vbCrLf, True) End Try End If Next
Pour les autres dossier comme "bureau", Favoris" etc j'ai pas de problème et j'exécute tout en admin bien sur.
Merci de votre aide
Partager