Listing de fichier ??? comment k'on fait ?

Signaler
Messages postés
25
Date d'inscription
samedi 11 novembre 2000
Statut
Membre
Dernière intervention
13 juin 2003
-
Messages postés
11
Date d'inscription
mardi 9 juillet 2002
Statut
Membre
Dernière intervention
20 septembre 2002
-
Salut, je cherche a faire un liste de tout les fichiers presant ds un repertoire. sans aucun control ! savez vous faire sa ?
en tout cas merci d'avoir pris le temp de me lire et bonne continuation a tous ...

4 réponses

Messages postés
152
Date d'inscription
mercredi 27 juin 2001
Statut
Membre
Dernière intervention
11 juillet 2002
1
Vois simplement la fonction DIR
(à noter que l'utilisation d'une ListBox est seulement à des fins d'affichages)

  Dim strTmp As String
  Dim strListe() As String
  Dim iCmpt As Integer
  Dim iNbr As Integer
  
  strTmp = Dir("C:\Windows\Temp\*.*", vbNormal)
  iNbr = -1
  If (LenB(strTmp) > 0) Then
      iNbr = iNbr + 1
      ReDim strListe(iNbr)
      strListe(iNbr) = strTmp
      strTmp = Dir
      Do While (LenB(strTmp) > 0)
        iNbr = iNbr + 1
        ReDim Preserve strListe(iNbr)
        strListe(iNbr) = strTmp
        strTmp = Dir
      Loop
    Else
      iNbr = 0
      ReDim strListe(0)
      strListe(0) = "[Répertoire vide...]"
  End If
  
  List1.Clear
  For iCmpt = 0 To iNbr
    List1.AddItem strListe(iCmpt)
  Next iCmpt
0
Messages postés
54
Date d'inscription
dimanche 25 novembre 2001
Statut
Membre
Dernière intervention
19 mai 2003

Dim allfile As String, one As Integer
allfile = Dir(App.Path & "\*.*", vbNormal)
List1.AddItem allfile

While one <> 1
On Error GoTo Fin:
List1.AddItem Dir
Wend
Fin:

Sans prétention, plus court, plus "porc". A toi de voir. :big)
0
Messages postés
25
Date d'inscription
samedi 11 novembre 2000
Statut
Membre
Dernière intervention
13 juin 2003

LooL, thx a vous deux, vous m'eviter un paquet d'heure d'enmerde. Merci encore et a biento j'espert !
0
Messages postés
11
Date d'inscription
mardi 9 juillet 2002
Statut
Membre
Dernière intervention
20 septembre 2002

-------------------------------
Réponse au message :
-------------------------------

LooL, thx a vous deux, vous m'eviter un paquet d'heure d'enmerde. Merci encore et a biento j'espert !

-------------------------------
Réponse au message :
-------------------------------

Dim allfile As String, one As Integer
allfile = Dir(App.Path & "\*.*", vbNormal)
List1.AddItem allfile

While one <> 1
On Error GoTo Fin:
List1.AddItem Dir
Wend
Fin:

Sans prétention, plus court, plus "porc". A toi de voir. :big)

c'est clair je me demande pourquoi il faut qu'il y en ait qu tape du code long pourris et incomprehensible alors que la memechose peut etre faite en 6 ligne.bien joue kephren
0