Lecture des noms de fichier dans un dossier

[Résolu]
Signaler
Messages postés
181
Date d'inscription
jeudi 12 janvier 2006
Statut
Membre
Dernière intervention
26 janvier 2011
-
Messages postés
17288
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
27 septembre 2021
-
Bonjour,

Je débute en VB.
Je cherche à faire une fonction qui place dans un tabeau tous les noms de fichiers
d'un ré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 :)

8 réponses

Messages postés
17288
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
27 septembre 2021
70
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
3
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 112 internautes nous ont dit merci ce mois-ci

Messages postés
4030
Date d'inscription
mardi 13 mai 2003
Statut
Modérateur
Dernière intervention
23 décembre 2008
22
Et ?
Quelle est la question ?

Manu
Messages postés
14823
Date d'inscription
vendredi 14 mars 2003
Statut
Modérateur
Dernière intervention
9 octobre 2021
157
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é
NHenry (VB6, VBA excel, VB.NET, C++, C#.Net)
Messages postés
15814
Date d'inscription
jeudi 8 août 2002
Statut
Modérateur
Dernière intervention
4 mars 2013
126
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
<s></s>
Messages postés
181
Date d'inscription
jeudi 12 janvier 2006
Statut
Membre
Dernière intervention
26 janvier 2011
1
Salut!
Le langage est VB 6

listFichiers est un tableau de la taille du nombre de fichier du répertoire
AddItem ne marche donc pas

merci bien :)

La question est que mon code ne fonctionne pas :)
Messages postés
181
Date d'inscription
jeudi 12 janvier 2006
Statut
Membre
Dernière intervention
26 janvier 2011
1
MErci bien, ca marche

Par contre je suis pas qur que ca me mette les fichiers dans l'ordre alphabétique...
Messages postés
17288
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
27 septembre 2021
70
non, ca ne les trie pas, effectivement....

Renfield
Admin CodeS-SourceS - MVP Visual Basic
Messages postés
17288
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
27 septembre 2021
70
y'a un bout qui semble avoir disparu...

c'était bien :
Redim listFichiers( f.Files.Count - 1)

Renfield
Admin CodeS-SourceS - MVP Visual Basic