Discussion :

[Serendipity]

Bonjour,

je créé un programme simple qui doit me permettre la chose suivante :

sélectionner un fichier source (.txt)
sélectionner un répertoire cible
copier ce fichier source sur tous les fichiers qui sont dans le répertoire sélectionné. En d'autre terme, j'ai dans mon répertoire les fichiers pomme1.txt, pomme2.txt et pomme3.txt, l'appli doit copier le contenu du fichier source dans les trois fichiers pomme.

Pour l'instant j'en suis là:

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
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
Imports System.IO
 
Public Class Form1
    Dim myFolder As String
    Dim mySource As String
 
 
 
    Private Sub btnSource_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSource.Click
        srcDialog.Title = "Merci de choisir le fichier source (modèle)"
        srcDialog.ShowDialog()
    End Sub
 
    Private Sub srcdialog_FileOk(ByVal sender As System.Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles srcDialog.FileOk
        Dim strm As System.IO.Stream
        Dim sourcefilepath As String
        strm = srcDialog.OpenFile
        sourcefilepath = srcDialog.FileName.ToString
        tboxSource.Text = sourcefilepath
        Dim mySource As String
        mySource = My.Computer.FileSystem.ReadAllText(sourcefilepath)
    End Sub
 
    Private Sub btnSelecttarget_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSelecttarget.Click
        folderDialog.ShowDialog()
        tboxFolder.Text = folderDialog.SelectedPath
 
    End Sub
 
 
 
 
    Private Sub btnStart_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnStart.Click
        For Each File In folderDialog.SelectedPath
 
            Microsoft.VisualBasic.FileIO.FileSystem.CopyFile()
 
        Next
 
    End Sub
End Class

C'est le plus simple, il me reste maintenant à utiliser filesystem.copyfile pour obtenir mon résultat mais je suis loin d'être certain de savoir l'utiliser!

merci d'avance.

(visual studio 10, vb.net 4.0, os cible windows xp)

[Vince]

Utilise System.IO.File.Copy() : http://msdn.microsoft.com/fr-fr/libr...file.copy.aspx

[Serendipity]

Merci de ta réponse! En revanche je tourne un peu en rond là... Si je comprends bien ce que je fais:
J'instancie mon repertoire
Je liste les fichiers à l'interieur avec myFolder.getFiles
...Et c'est là que je tourne en rond. Toutes les versions du code que j'ai essayé me retourne une erreur.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
    Private Sub btnStart_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnStart.Click
 
        Dim myFolder As New System.IO.DirectoryInfo(myfolderpath)
        Dim dir As System.IO.FileInfo() = myFolder.GetFiles
        Dim item As IO.FileInfo
 
        For Each item As IO.FileInfo In dir
            System.IO.File.Copy(mySource, item, True)
 
        Next
        MessageBox.Show("operation effectuée")
    End Sub
End Class

Donc si j'ai bien compris, dir contient ma liste de cible, ce que je veux faire:

For each item in dir
system.io.file.copy(source,item,true)

Mais ça ne fonctionne pas car file.copy ne veut pas prendre mes variables parce qu'elles sont des strings, raison pour laquelle j'ai déclaré as fileinfo, mais là ça ne marche pas non plus...

[Rainui]

Bonsoir,

Si j'ai tout bien compris, à partir d'un fichier texte, tu veux :
Copier le contenu du fichier
Ecrire le contenu de ce fichier dans tout les fichier .txt d'un dossier

Si c'est ça, il te faut lire le contenu du fichier .txt source, mettre le texte dans une variable, ouvrir chaque fichier destination .txt et écrire dans ce fichier à partir du texte de la variable

[Pol63]

lecture du contenu : dim contenu as string = system.io.file.Readalltext(chemin)

si tu veux remplacer le contenu des fichiers cibles : system.io.file.writealltext(chemin, contenu)

si tu veux ajouter le contenu à la suite des fichiers cibles, il faut faire du append

[Serendipity]

Super merci pour ces infos, je vois ce que j'arrive à pondre avec ça dès que j'ai le temps.

EDIT :
bon j'ai un "ArgumentNullException was unhandled" concernant cette ligne :

Dim contenu As String = System.IO.File.ReadAllText(mySource)

Je pense que ma variable mysource est pas accessible dans ce sub, pour en être sûr j'ai fait un
messagebox.show(masource) et effectivement ça ne m'affiche rien. Est-ce que je dois déclarer le sub dans lequel j'affecte mySource en Public, ou je me met le doigt dans l'oeil?
(le code est à la ligne 30à

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
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
Imports System.IO
 
Public Class Form1
    Dim myfolderpath As String
    Dim mySource As String
 
 
 
    Private Sub btnSource_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSource.Click
        srcDialog.Title = "Merci de choisir le fichier source (modèle)"
        srcDialog.ShowDialog()
    End Sub
 
    Private Sub srcdialog_FileOk(ByVal sender As System.Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles srcDialog.FileOk
        Dim strm As System.IO.Stream
        Dim sourcefilepath As String
        strm = srcDialog.OpenFile
        sourcefilepath = srcDialog.FileName.ToString
        tboxSource.Text = sourcefilepath
        Dim mySource As String
        mySource = My.Computer.FileSystem.ReadAllText(sourcefilepath)
    End Sub
 
    Private Sub btnSelecttarget_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSelecttarget.Click
        folderDialog.ShowDialog()
        tboxFolder.Text = folderDialog.SelectedPath
 
    End Sub
 
    Private Sub btnStart_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnStart.Click
        MessageBox.Show(mySource)
        MessageBox.Show(myfolderpath)
        Dim myFolder As String = folderDialog.SelectedPath.ToString
        Dim contenu As String = System.IO.File.ReadAllText(mySource)
 
        For Each file In myFolder
 
 
            System.IO.File.WriteAllText(file, contenu)
 
        Next
        MessageBox.Show("operation effectuée")
    End Sub
End Class