Obtenir tous les nom "court" des fichier d'un dossier et les écrire dans un fichRésolu

Question

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é

cs_Willi · Accepted Answer

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

++

DavidWhitewater · Answer

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.

M4ndrax · Answer

Merci mille fois a vous 2 sa fonctionne trés bien :)

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

3 réponses

Votre réponse

Discussions similaires