Discussion :

[Many89]

Bonjour a tous !!
Svp je cherche une méthode qui permet de récupérer la liste des fichiers .txt dans la racine C:\ avec Vb.net .
Merci pour vos réponses

[BenoitM]

Bonjour a tous !!
Svp je veux une méthode qui permet de récupérer la liste des fichiers .txt dans la racine C:\ avec Vb.net . Merci pour vos réponses

Google?

System.IO.Directory?

[Many89]

Ouii , j'ai travailler avec plusieurs méthodes mé ça marche pas, l'application me donne une erreur

Accès au chemin 'documents and setting' refusé

[BenoitM]

une petite ligne de code?

[Many89]

Voici le code qui me cause un problème :

Code :

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

1
2
3
4
5
6
7
8
9
10
 Try
 
        For Each foundFile As String In My.Computer.FileSystem.GetFiles("E:\", FileIO.SearchOption.SearchAllSubDirectories, "*.*")
                ListBox1.Items.Add(foundFile)
            Next
 
        Catch ex As Exception
            MsgBox(ex.Message)
 
        End Try

[DonQuiche]

Bonjour.

Il va tout simplement falloir faire la récursion à la main pour traiter séparément les sous-répertoires sur lesquels l'accès est restreint (soit pour les ignorer soit pour demander une élévation de privilèges). Autrement dit, pour un dossier donné, on traite d'abord les fichiers, puis on appelle de façon récursive la même méthode pour chaque sous-dossier.

PS : L'opération risquant d'être longue, mieux vaudrait d'abord collecter les fichiers dans un autre thread puis, une fois que c'est fait, revenir sur le thread principal pour ajouter tous les éléments d'un seul coup.

[Many89]

Bonjour,
tu pourrais me faire un exemple parce que j'ai pas bien compris ce que je dois faire, et merci d'avance

[youtpout978]

si tu cherches que ceux à la racine de c pourquoi tu ne fait pas ça

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
Try
 
        For Each foundFile As String In My.Computer.FileSystem.GetFiles("C:\", FileIO.SearchOption.SearchTopLevelOnly, "*.*")
                ListBox1.Items.Add(foundFile)
            Next
 
        Catch ex As Exception
            MsgBox(ex.Message)
 
        End Try

[Many89]

Bonjour,

Merci pour votre réponse, mais le code ça marche pas, il me donne une liste vide

[komat]

essai ce code

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 FileOpen(1, "C:\fichier.txt", OpenMode.Output)
        With ds.Tables("stagiaire")
            For i = 0 To .Rows.Count - 1
                Write(1, .Rows(i).Item(0))
                Write(1, .Rows(i).Item(1))
                Write(1, .Rows(i).Item(2))
                Write(1, .Rows(i).Item(3))
                WriteLine(1, .Rows(i).Item(4))
            Next
            FileClose(1)
        End With

tu ajoute ou tu supprime les lignes cependant de ta base de donné