VB6 - Récupérer la liste des fichiers d'un répertoire donné

VB6 - Récupérer la liste des fichiers d'un répertoire donné - VB/VBA/VBS - Programmation

Marsh Posté le 23-04-2002 à 17:52:19    

La question est simple. Je veux récupérer la liste des fichiers d'un répertoire donné ( juste le nom de fichier ) et mettre ca dans un fichier ( un espèce de catalogue :)  )
 
Merci

Reply

Marsh Posté le 23-04-2002 à 17:52:19   

Reply

Marsh Posté le 23-04-2002 à 18:00:25    

tu crees une filelist (je sais pu le vrai nom, c le truc pour explorer qd on sauve koi...); tu regles le rep defaut, tu parcoures la liste en chopant la valeur a chaque foa, et si tu veux pas ke soit soit visible, visibeule=false
 
ya surement mieux comme methode

Reply

Marsh Posté le 23-04-2002 à 18:01:55    

Utilise la fonction dir (c'est expliqué dans l'aide de VB)


---------------
"I wonder if the internal negative pressure in self pumping toothpaste tubes is adjusted for different market altitudes." John Carmack
Reply

Marsh Posté le 23-04-2002 à 18:08:04    

:jap: thx

Reply

Marsh Posté le 23-04-2002 à 18:47:24    

Open App.path & "\index.dat" For Append As #10
    CheMiN = Dir("D:\Inventaire\*.txt", vbNormal)
    Write #10, CheMiN
    Nbre_Fichiers = Nbre_Fichiers + 1
    For CpT = 0 To 10000
        CheMiN = Dir
        If CheMiN <> "" Then
            Write #10, CheMiN
            Nbre_Fichiers = Nbre_Fichiers + 1
        End If
    Next
 
Je ne sais pas à l'avance combien j'ai de fichiers dans mon répertoire.. comment je pourrais faire pour continuer ce petit bout de code ?

Reply

Marsh Posté le 23-04-2002 à 19:02:59    

c'est beau g trouvé

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed