VB Copie Mes Document win7

Version imprimable

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:

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.

Dans un premier temps, remplace
Code:

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

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:

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 ..... :arf:

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:

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

16/12/2013, 10h49
_Ez3kiel

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