Discussion :

[huggo]

Bonjour à tous,

Je fais appel à la communauté pour me permettre d'avancer dans mon script.
Je cherche à récupérer tous mes fichiers texte dans un fichier unique.
Le dossier "recup" s’installe dans C:\ ainsi que le fichier bigdata.txt.
Je me perds un peu dans le reste du code .
Merci, d'avance.

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
Imports System
Imports System.Text
Imports System.IO
Imports System.Collections.Generic
 
Public Class Form1
 
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
 
        Dim sb As New StringBuilder() ' Imports System.Text
 
        For Each txtName As String In Directory.EnumerateFiles("C:\Users\hugo\Documents", "*.txt", SearchOption.AllDirectories)
            Using sr As New StreamReader(txtName)
                sb.Append(txtName.ToString())
                sb.AppendLine("======")
                sb.Append(sr.ReadToEnd())
                sb.AppendLine()
                sb.AppendLine()
            End Using
        Next
 
        Using outfile As New StreamWriter("C:\Recup" + "\bigdata.txt")
            outfile.Write(sb.ToString())
        End Using
 
    End Sub
End Class

[infosam76]

Quel est exactement ton soucis, la je ne vois pas au premier coup d’œil sans tester ce qui pourrait clocher.

[wallace1]

Remplaces ceci :

Code :

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

1
2
 
For Each txtName As String In Directory.EnumerateFiles("C:\Users\hugo\Documents", "*.txt", SearchOption.AllDirectories)

Par cela :

Code :

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

1
2
 
For Each txtName As String In Directory.GetFiles("C:\Users\hugo\Documents", "*.txt", SearchOption.TopDirectoryOnly)

Places ton code dans une clause Try Catch pour savoir ce qui cloche lors du debug.

[huggo]

Remplaces ceci :

Code :

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

1
2
 
For Each txtName As String In Directory.EnumerateFiles("C:\Users\hugo\Documents", "*.txt", SearchOption.AllDirectories)

Par cela :

Code :

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

1
2
 
For Each txtName As String In Directory.GetFiles("C:\Users\hugo\Documents", "*.txt", SearchOption.TopDirectoryOnly)

Places ton code dans une clause Try Catch pour savoir ce qui cloche lors du debug.

Salut et encore merci d'avoir jeté un coup d’œil.
Je me suis mal exprimé

La ligne de code que tu m'as passé fonctionne mais elle énumère les dossiers ainsi que leurs fichiers.
En utilisant la fonction <!--Directory.EnumerateFiles-->, je recherche à écrire le contenu de tout mes fichiers texte dans un seul fichier texte.
Ya comme un truc bizarre dans mon script de base, il fonctionne qu'en je suis dans sur le bureau "Desktop" mais qu'en je passe dans le dossier "Documents" plus rien ne marche sauf si j’enlève la fonction<!--SearchOption.AllDirectories-->.
Est ce possible de faire la même chose en étant sur C:\ ?

[huggo]

J'ai pu résoudre mon problème en rajoutant une "exception" -> Catch ex As UnauthorizedAccessException.

PS: la MsgBox indique: l’accès au chemin d'accès C:\Users\hugo\Documents\Ma musique est refusé
et pourtant c'est "C:\Users\hugo\Documents"

Merci wallace1

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
Imports System
Imports System.Text
Imports System.IO
Imports System.Collections.Generic
 
Public Class Form1
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
 
        Dim sb As New StringBuilder() ' Imports System.Text
 
        Try
 
            For Each txtName As String In Directory.EnumerateFiles("C:\Users\hugo\Documents", "*.txt", SearchOption.AllDirectories) ' erreur avec \Documents
 
                Using sr As New StreamReader(txtName)
                    sb.AppendLine(txtName.ToString())
                    sb.AppendLine("<--------------------------------------------->")
                    sb.AppendLine()
                    sb.Append(sr.ReadToEnd())
                    sb.AppendLine()
                    sb.AppendLine()
                End Using
            Next
        Catch ex As UnauthorizedAccessException
            ' MsgBox(Err.Description)
        End Try
        Using outfile As New StreamWriter("C:\Dossier" + "\bigdata.txt")
            outfile.Write(sb.ToString())
        End Using
 
    End Sub