Créer un fichier texte à partir du contenu d'un dossierRésolu

Question

Bonjour j'aimerai générer un fichier txt  en vbnet (que par exemple les fichiers du répertoire c:temp soient listés ds ce fichier txt ligne par ligne)

Merci de votre aide.

Loo

OneHacker · Accepted Answer

Voici la fonction que j'ai utilisé :

Si tu veux juste le nom

Public
Function ListFolder(
ByVal Path 
As
String) 
As
String

Dim Result 
As
String = ""

For
Each Fichier 
As
String
In Directory.GetFiles(Path)Result += Fichier & NewLine

NextResult.Trim(NewLine) 

' Enlève les sauts de lignes aux extrémités (inutiles)

Return Result

End
FunctionVoici la fonction à rajouter pour n'avoir que le nom : 

Public
Function OnlyName(
ByVal FileName 
As
String) 
As
String

Return
New IO.FileInfo(FileName).Name

End
FunctionPuis il n'y a plus qu'à l'incorporer dans la fonction ListFolder comme ceci :

Public
Function ListFolder(
ByVal Path 
As
String) 
As
String

Dim Result 
As
String = ""

For
Each Fichier 
As
String
In Directory.GetFiles(Path)Result += OnlyName(Fichier) & NewLine

NextResult.Trim(NewLine) 

' Enlève les sauts de lignes aux extrémités (inutiles)

Return Result

End
FunctionVoilà ! Je pense que sa devrait te satisfaire, demande toujours pour autre chose, j'essayerai de faire de mon mieux !

Redman

asecher · Answer

Tu dois avoir la "vieille" commande vb DIR qui doit toujours fonctionner...
Sinon, tu lance un shell dos avec "DIR >MonFichier.txt"
(moi, j'aime bien le TREE /F)

A+

Alain 31

OneHacker · Answer

Ben je viens d'y travailler et voilà le résultat -> http://www.vbfrance.com/code.aspx?ID=37271

Si ca te convient n'oublie pas d'accepter la réponse !

Redman

bimbo777 · Answer

Oui c'est exactement ce qu'il me faut!!!
Y a t'il une solution pour lister uniquement les fichiers sans les attributs et les extension avec cette méthode?

Loo

bimbo777 · Answer

Y a t'il moyen d'adapter ton code en module? (sans interface par exemple)?

bimbo777 · Answer

bon fallait pas chercher bien loi il suffit de faire /b...parcontre pour virer l'extension?

Créer un fichier texte à partir du contenu d'un dossier

6 réponses

Discussions similaires