Lecture des noms de fichier dans un dossierRésolu

Question

Bonjour,

Je d&#233;bute en VB.
Je cherche &#224; faire une fonction qui place dans un tabeau tous les noms de fichiers
d'un r&#233;pertoire.
Voici ou j'en suis : 


Function RemplirListeFichiers(listFichiers() As String)
    Dim i As Integer
    Dim fso, f, file
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set f = fso.GetFolder(LireINI("G150", "PathOF"))
    For i = 0 To f.Files.Count Step 1
        For Each file In f.Files
            listFichiers(i) = file.Name
        Next
    Next i
End Function



Merci bien :)

Renfield · Accepted Answer

pas besoin d'imbriquer de boucles....

    For i = 0 To f.Files.Count Step 1
        For Each file In f.Files
            listFichiers(i) = file.Name
        Next
    Next i

fais simplement :

    Redim ( f.Files.Count - 1)
    i = 0
    For Each file In f.Files
       listFichiers(i) = file.Name
       i = i+1
    Next file

Renfield
Admin CodeS-SourceS - MVP Visual Basic

econs · Answer

Et ?
Quelle est la question ?

Manu

NHenry · Answer

Bonjour

Pour quel langage ?

Il est plus facile de batiser kk1 que de la convertir. (surtout en programmation)
Une question se pose sur le forum, pas en priv&#233;
NHenry (VB6, VBA excel, VB.NET, C++, C#.Net)

cs_DARKSIDIOUS · Answer

Function RemplirListeFichiers(listFichiers() As String) Dim i As Integer Dim fso, f, file, path Set fso = CreateObject("Scripting.FileSystemObject") Set f = fso.GetFolder(LireINI("G150", "PathOF")) For Each file In f.Files listFichiers.AddItem = file.Name Next End Function _ Avant de poster dans le forum, prière d'aller lire ceci : http://www.codes-sources.com/reglement.aspx

aurelien2723 · Answer

Salut!
Le langage est VB 6

listFichiers est un tableau de la taille du nombre de fichier du r&#233;pertoire
AddItem ne marche donc pas

merci  bien :)

La question est que mon code ne fonctionne pas :)

aurelien2723 · Answer

MErci bien, ca marche

Par contre je suis pas qur que ca me mette les fichiers dans l'ordre alphab&#233;tique...

Renfield · Answer

non, ca ne les trie pas, effectivement....

Renfield
Admin CodeS-SourceS - MVP Visual Basic

Renfield · Answer

y'a un bout qui semble avoir disparu...

c'&#233;tait bien :
Redim listFichiers( f.Files.Count - 1)

Renfield
Admin CodeS-SourceS - MVP Visual Basic

Lecture des noms de fichier dans un dossier

8 réponses

Discussions similaires