Discussion :

[jujukk1]

Bonjour, cela fait 5 jours que j'hère sur le net afin de trouver comment copier mes documents sous Windows 7.

j'ai utiliser :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub BD_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BD.Click
 
        If System.IO.Directory.Exists(TB3.Text) = False Then
            System.IO.Directory.CreateDirectory(TB3.Text)
        End If
        If TB3.Text.Contains("Documents") Then
            TB3.Text.Replace("C:\Users\", Environment.GetFolderPath(Environment.SpecialFolder.MyDocuments))
           TB3.Text.Replace(Environment.UserName, "")
        End If
        My.Computer.FileSystem.CopyDirectory(Environment.GetFolderPath(Environment.SpecialFolder.MyDocuments), TB3.Text, True)
        MsgBox("La copie s'est exécutée correctement", vbInformation, "Etat de la sauvegarde")
 
    End Sub

explication :

tb3 = textbox relier a un bouton recherche des dossier (choisie la ou j'enrejistre le dossier "Mes Document')

Environment.GetFolderPath(Environment.SpecialFolder.MyDocuments) = "Mes Document" de l'utilisateur courant


Problème rencontrer :

L'accès au chemin d'accès 'C:\Users\Julien\Documents\Ma musique\' est refusé.

Merci de vos réponse future.

[_Ez3kiel]

Dans un premier temps, remplace

Code :

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

1
2
TB3.Text.Replace("C:\Users\", Environment.GetFolderPath(Environment.SpecialFolder.MyDocuments))
TB3.Text.Replace(Environment.UserName, "")

par

Code :

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

1
2
TB3.Text = TB3.Text.Replace("C:\Users\", Environment.GetFolderPath(Environment.SpecialFolder.MyDocuments))
TB3.Text = TB3.Text.Replace(Environment.UserName, "")

(Replace retourne une chaîne de caractère modifiée, tu dois remplacer la valeur de ta TB3 par le retour de la fonction)

Et pour ton problème de droit, je ne sais absolument pas pourquoi j'ai essayé quelques trucs avec des retours bizarres ...

Code :

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

1
2
3
4
5
6
7
8
 
My.Computer.FileSystem.CopyDirectory(Environment.GetFolderPath(Environment.SpecialFolder.MyDocuments), TB3.Text, FileIO.UIOption.AllDialogs) ' Marche
 
My.Computer.FileSystem.CopyDirectory(Environment.GetFolderPath(Environment.SpecialFolder.MyDocuments), TB3.Text)' Exception privilège
 
My.Computer.FileSystem.CopyDirectory(Environment.GetFolderPath(Environment.SpecialFolder.MyDocuments), TB3.Text, True)' Exception privilège
 
My.Computer.FileSystem.CopyDirectory(Environment.GetFolderPath(Environment.SpecialFolder.MyDocuments), TB3.Text, False) 'Exception privilège

Alors que celle qui marche la différence c'est l'affichage ou non de la barre de progression de la copie .....

[jujukk1]

merci, tout marche nikel.

je met le code complet et rectifier pour mes documents, je donnerais le script une foi fini, on ne sais jamais sa peut servir.

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
Private Sub BD_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BD.Click
 
        If System.IO.Directory.Exists(TB3.Text) = False Then
            System.IO.Directory.CreateDirectory(TB3.Text)
        End If
 
        If TB3.Text.Contains("Documents") Then
            TB3.Text = TB3.Text.Replace("C:\Users\", Environment.GetFolderPath(Environment.SpecialFolder.MyDocuments))
            TB3.Text = TB3.Text.Replace(Environment.UserName, "")
 
        End If
        My.Computer.FileSystem.CopyDirectory(Environment.GetFolderPath(Environment.SpecialFolder.MyDocuments), TB3.Text, FileIO.UIOption.AllDialogs) ' Marche
 
        MsgBox("La copie s'est exécutée correctement", vbInformation, "Etat de la sauvegarde")
    End Sub
 
    Private Sub TB3_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TB3.TextChanged
 
    End Sub
 
    Private Sub BP2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BP2.Click
 
        TB3.Text = "choisissez le repertoire ou enregistrer!"
        FolderBrowserDialog3.ShowDialog()
        TB3.Text = FolderBrowserDialog3.SelectedPath
    End Sub

bd = bouton copie document
tb3 = textbox 3
bp2 = bouton parcourir 2

[_Ez3kiel]

C'est bien mais je suis pas trop fan du principe de "ça marche, mais je sais pas pourquoi".