Discussion :

[hacker59]

bonjour,

je voudrais savoir comment faire pour copier les fichiers du dossier dans un autre dossier que j'ai créer.

voici mes code :

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 Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        Dim dialog As New FolderBrowserDialog
        If (dialog.ShowDialog = Windows.Forms.DialogResult.OK) Then
            TextBox1.Text = IO.Path.GetFileName(dialog.SelectedPath)
        End If
End Sub
Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
        Dim dossier As String = My.Computer.FileSystem.SpecialDirectories.Desktop & "\" & TextBox2.Text
        If Directory.Exists(dossier) = False Then
            Directory.CreateDirectory(dossier)
        End If
        My.Computer.FileSystem.CopyDirectory(TextBox1.Text, TextBox2.Text)
    End Sub

TEXTBOX2.TEXT = C'est le nom que je choisir pour créer.

il y a un message d'erreur le fichier que je ouvre , il y est introuvable. comment pourrais corriger ce petit problème. merci pour les réponse.

[wallace1]

Bonsoir hacker59,

Il faut vraiment envisager d'ouvrir un bouquin ou bien de suivre les formations en ligne gratuite sur la programmation en dotnet....
Non pas que je suppose que ce forum n est pas destiné a y evoquer des problemes pour qu'une ame charitable te vienne en aide ! Mais juste pour que tu te rendes compte que toutes les requetes d'aide que tu as formulées ici sont manifestement liées à un manque notable de connaissance des bases du langage......donc d'un gros defaut d'investissement de ta part !


....c est bien dommage car tout les problemes que tu evoques dans tes posts trouveraient des solutions dans le cours en ligne de P Lasserre sur le VBNET !

@+

[egautier18]

Bonjour,

Dans un premier temps, je pense que tu devrais suivre les conseils de wallace1.

Ensuite pour répondre à ta question, je t'ai mis un petit code brut de décoffrage. je te laisse le soins de gérer les cas ou les répertoires n'existent pas et toute amélioration de ton choix.

Ensuite si je peux me permettre.

Tu devrais mettre des Try/Catch sur tes méthodes et créer des méthodes.
Il est préférable de faire une méthode qui sera appelé par ton bouton (cela te permettra entre autre de pouvoir l'exploiter à outrance..).

Code :

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

1
2
3
4
5
6
7
8
9
10
11
If System.IO.Directory.Exists("MonRepertoire1") = True Then
	If System.IO.Directory.Exists("MonRepertoire2") = True Then
		For Each MyFile As String In System.IO.Directory.GetDirectories("MonRepertoire1", "*", SearchOption.AllDirectories)
			System.IO.Directory.CreateDirectory("MonRepertoire2" & "\" & System.IO.Path.GetDirectoryName(MyFile))
		Next
 
		For Each MyFile As String In System.IO.Directory.GetFiles("MonRepertoire1", "*", SearchOption.AllDirectories)
			File.Copy(MyFile, MyFile.Replace("MonRepertoire1", "MonRepertoire2"))
		Next
	End If
End If

Je ne suis pas sur de la traduction donc voici le c#

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
 if (System.IO.Directory.Exists("MonRepertoire1") == true)
            {
                if (System.IO.Directory.Exists("MonRepertoire2") == true)
                {
                    foreach (string MyFile in System.IO.Directory.GetDirectories("MonRepertoire1", "*", SearchOption.AllDirectories))
                    {
                        System.IO.Directory.CreateDirectory("MonRepertoire2" + @"\" + System.IO.Path.GetDirectoryName(MyFile));
                    }
 
                    foreach (string MyFile in System.IO.Directory.GetFiles("MonRepertoire1", "*", SearchOption.AllDirectories))
                    {
                        File.Copy(MyFile, MyFile.Replace("MonRepertoire1", "MonRepertoire2"));
                    }
                }
            }

A+