Obtenir tous les nom "court" des fichier d'un dossier et les écrire dans un fich [Résolu]

M4ndrax 5 Messages postés mardi 28 mars 2006Date d'inscription 12 décembre 2006 Dernière intervention - 25 nov. 2006 à 19:03 - Dernière réponse : M4ndrax 5 Messages postés mardi 28 mars 2006Date d'inscription 12 décembre 2006 Dernière intervention
- 25 nov. 2006 à 21:20
Bonjours tout le monde,

Voila j'éssaye depuis quelque jours d'avoir les nom ddes fichiers d'un dossier et de les noter dans un fichier texte mais je sais pas comment faire, j'ai bien le code pour obtenir le nom court d'un seul fichier :
 - Private Function GetFileName() As String
        Return New IO.FileInfo("chemin du fichier").Name
    End Function
Mais je ne sais pas comment faire pour l'avoir pour tout les fichier d'un dossier que j'aurais au préalable séléctioner avec un FolderBrowser. Voila merci d'avance et bonne soiré
Afficher la suite 

Votre réponse

3 réponses

Meilleure réponse
cs_Willi 2381 Messages postés jeudi 12 juillet 2001Date d'inscription 13 février 2015 Dernière intervention - 25 nov. 2006 à 20:12
3
Merci
Bonsoir,

La propriété SelectedPath de l'objet FolderBrowserDialog te donne le chemin sélectionné.
Ensuite pour récupérer les fichiers d'un dossier -> IO.Directory.GetFiles("C:\TonDossier")

Exemple:

Dim fbd
As
New FolderBrowserDialog()

If fbd.ShowDialog = Windows.Forms.DialogResult.OK
Then

   Dim Files
As
String() = IO.Directory.GetFiles(fbd.SelectedPath)

   'Après tu fais une itération sur Files pour récupérer tes noms cours....

   fbd.Dispose()

End
If

++

Merci cs_Willi 3

Avec quelques mots c'est encore mieux Ajouter un commentaire

Codes Sources a aidé 123 internautes ce mois-ci

Commenter la réponse de cs_Willi
Meilleure réponse
DavidWhitewater 81 Messages postés lundi 10 avril 2006Date d'inscription 1 janvier 2010 Dernière intervention - 25 nov. 2006 à 20:47
3
Merci
Salut, c'est bien vu, moi j'avais pensé à ça :

Dim Fichiers As Collections.ObjectModel.ReadOnlyCollection(Of String)

Fichiers = My.Computer.FileSystem.GetFiles("c:\Répertoire")
    For Each Nom As String In Fichiers
        TxtBxFichiers.Text &= Nom.Substring(Nom.LastIndexOf("") + 1) & ControlChars.CrLf
    Next

On arrive à peut prêt au même résultat.

Merci DavidWhitewater 3

Avec quelques mots c'est encore mieux Ajouter un commentaire

Codes Sources a aidé 123 internautes ce mois-ci

Commenter la réponse de DavidWhitewater
M4ndrax 5 Messages postés mardi 28 mars 2006Date d'inscription 12 décembre 2006 Dernière intervention - 25 nov. 2006 à 21:20
0
Merci
Merci mille fois a vous 2 sa fonctionne trés bien :)
Commenter la réponse de M4ndrax

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.