Discussion :

[Bylliboy]

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:

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

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.

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

[hacker59]

bonjour,
essayer ceci , il marche parfaitement.
voici en image :


voici mes codes :

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
16
17
18
19
20
21
Imports System.IO
 
Public Class Form1
 
    Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        TextBox1.Text = My.Computer.FileSystem.SpecialDirectories.MyDocuments
        ListBox1.Items.Clear()
        For Each foundFile As String In My.Computer.FileSystem.GetDirectories(TextBox1.Text)
            If (foundFile.ToLower().EndsWith("")) Then ListBox1.Items.Add(foundFile.Split("\")(foundFile.Split("\").Count() - 1))
        Next
        Label2.Text = ListBox1.Items.Count
    End Sub
 
    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        Dim dossier As String = My.Computer.FileSystem.SpecialDirectories.Desktop & "\test"
        If Directory.Exists(dossier) = False Then
            Directory.CreateDirectory(dossier)
        End If
        My.Computer.FileSystem.CopyDirectory(TextBox1.Text, dossier & "\", FileIO.UIOption.AllDialogs)
    End Sub
End Class

Bien cordialement,

[Rainui]

Bonjour,
J'ai passé un peu de temps à chercher à répondre à votre question et voici ce que j'ai pu trouver :

Les dossiers Mes documents, Ma musique, ... sont des dossiers dit Système. Ils ont été créés par le système d'exploitation. Il n'est apparemment pas possible de copier un dossier système en temps que tel. Par contre, il est possible de copier son contenu.

L'idée est donc de créer un dossier portant le même nom que le dossier système dans le répertoire de destination puis de copier le contenu de ce dossier.
Pour vérifier qu'un dossier est un fichier système, on utilise l'expression suivante (tirée de MSDN et modifiée) :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
'Soit _f un objet DirectoryInfo créé avec le path voulu
Dim _f As New DirectoryInfo("Mon Path")
If (_f.Attributes And FileAttributes.System) = FileAttributes.System Then
 
End If

En utilisant ce principe, il devient donc possible de copier tout un dossier système.

[Bylliboy]

Bon je commence a désespérer, j'arrive toujours pas à copier "mes documents".

Hacker59 ton script a le même problème que le mien, si tu remplace "FileIO.UIOption.AllDialogs" par "true" t'aura le même problème que le mien, et comme je ne veux pas d'une progressbar pour chaque dossier sauvegardés mais une progressbar pour l'ensemble de la sauvegarde, je ne veux pas utiliser "FileIO.UIOption.AllDialogs".

Rainui, j'avais déjà testé et j'ai retesté ton idée sur mon code mais j'ai toujours le même résultat, merci quand même.

Au secoure....

[Rainui]

Bonjour,

Dommage, j'ai jeté l'application de test...
Mais je vous assure que ça fonctionne.

[Bylliboy]

Rainui:
Voila mon code avec ton morceau de script:

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
16
17
18
19
20
21
22
23
24
25
26
'Variables mises au début de la Class
Dim Drive As String = SelectDrives.ComboBox1.SelectedItem  'Drive = la lettre que l'on sélectionne dans la combobox
Dim NomPC As String = Environment.MachineName  'variable d'environnement qui donne le nom du pc
 
Sub Copie_Docs()
   Dim di As New DirectoryInfo(Profil)
   Dim NomProfil As String = di.Name
   Dim Profildestination As String = (Drive & NomPC & "\Profils\" & NomProfil & "\")
 
   Dim _f As New DirectoryInfo("Mon Path")
 
   If Directory.Exists(Users & "\" & NomProfil & "\Documents") Then
                  My.Computer.FileSystem.CreateDirectory(Drive & NomPC & "\Profils\" & NomProfil & "\Documents")
 
                Try
                    If (_f.Attributes And FileAttributes.System) = FileAttributes.System Then
Continue For
                    Else
                        My.Computer.FileSystem.CopyDirectory(Users & "\" & NomProfil & "\Documents", Profildestination & "\Documents", True)
End If
 Catch erreur As Exception
                    My.Computer.FileSystem.WriteAllText(Drive & NomPC & "\Erreurs.txt", vbCrLf & "-" & erreur.Message & vbCrLf, True)
 
                End Try
            Next
 End Sub

Le résultat c'est que je n'est plus le message d'erreur qui dit "C:\Users\****\Documents\Ma musique accès denied" mais rien ne se passe, il n'y a pas de copie de "mes documents".

Je commence à désespérer....