Récupérer une liste de fichiers et l'affciher dans le programme en VB6

**Ribéry** · 03/07/2006, 10h26

Bonjour,

Je voulais savoir si quelqu'un avait un code source ou tout simplement une idée pour m'aider à démarrer le code. Je voudrais à partir de mon programme télécharger une liste de fichiers contenue sur une cible et afficher ces fichiers dans mon programme. Faire un "dir" en fait.

Voila

merci d'avance

**SfJ5Rpw8** · 03/07/2006, 11h39

ben la commande dir existe... ensuite tu peu tout mettre dans un listbox par exemple..

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
 st= Dir ("c:\tmp\*.*")
While st <> "" 
   Listbox.Additem st
   st = dir
wend

**Ribéry** · 03/07/2006, 11h49

merci, j vais essayer

**Ribéry** · 03/07/2006, 13h39

Mais en fait moi c'est sur une cible que je dois recupere la liste de ces fichiers. J'ai essayé en mettant à la place de "c:\...", "ftp:\adresseip\*.*" mais ca fonctionne pas...

**jmfmarques** · 03/07/2006, 13h48

Montre-nous donc ce que tu as écrit comme chemin de cible, que tu es seul à connaître !...

**SfJ5Rpw8** · 03/07/2006, 13h49

? c'est quoi une cible ...?

cela marche avec dir sous dos ..?

sinon fait une recherche avec ftp sur ce forum ... tu trouveras surement quelque-chose...

**Ribéry** · 03/07/2006, 13h54

La cible c'est une carte, un microcontroleur en fait. Quand je me connecte en ftp, il faut que j'ecrives "dir", en effet. Mon code est énorme, il fait plusieurs pages, j'te copie/colle juste ma fonction pour récupérer la liste dse fichiers:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Function ListeFichiers() As String
    Dim st As String
 
    ListeFichiers = ""
 
    st = Dir("ftp:\192.168.200.251\*.*")
    While st <> ""
        ListBox.AddItem st
        st = Dir
    Wend
 
    Informations(2).Visible = True
 
End Function

**SfJ5Rpw8** · 03/07/2006, 14h04

non .. je pense pas tu ne vas pas pouvoir utiliser directement la commande dir pour des fichiers par ftp ... tu devrai jeter un oeil du coté du contrôle Inet..

**Theocourant** · 03/07/2006, 14h08

Envoyé par Ribéry

La cible c'est une carte, un microcontroleur en fait. Quand je me connecte en ftp, il faut que j'ecrives "dir", en effet. Mon code est énorme, il fait plusieurs pages, j'te copie/colle juste ma fonction pour récupérer la liste dse fichiers:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Function ListeFichiers() As String
    Dim st As String
 
    ListeFichiers = ""
 
    st = Dir("ftp:\192.168.200.251\*.*")
    While st <> ""
        ListBox.AddItem st
        st = Dir
    Wend
 
    Informations(2).Visible = True
 
End Function

Bonjour,

Avec les balises

c'est déjà plus clair...

Ensuite, je n'ai pas pu m'empêcher de remarquer que ta fonction ne renvoie qu'une chaîne de caractères vide... Est-ce normal???

+

Théo

**jmfmarques** · 03/07/2006, 14h15

Theo a écrit :

Ensuite, je n'ai pas pu m'empêcher de remarquer que ta fonction ne renvoie qu'une chaîne de caractères vide... Est-ce normal???

Et je le félicite...

Pourquoi baptiser "fonction" ce qui ne retourne pas de valeur de la fonction ?
Nous avons déjà eu l'occasion d'en discuter....

La "fonction" de notre ami n'est là qu'une procédure.

**Ribéry** · 03/07/2006, 14h19

J'ai pas compris les réflexions....

Par contre si j'utilise cette fonction:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
Private Function ListeFichiers() As String
    Dim st As String
    Dim Root As String
    Dim motpasse As String
    Dim URL As String
    ListeFichiers = ""
 
    st = Dir("C:\*.*")
    While st <> ""
        ListBox.AddItem st
        st = Dir
    Wend
 
    Informations(2).Visible = True
 
End Function

La fonction fonctionne bien et j'ai la liste des fichiers sur C: dans ma List Box. Mon seul pb maintenant c'est pour me connecter en ftp.

**avigeilpro** · 03/07/2006, 15h46

Le reproche est que tu déclare une fonction qui ne renvoie jamais rien d'autre que une chaine vide, déclare simplement une procédure, cela suffit

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Private Sub ListeFichiers() 
    Dim st As String
    Dim Root As String
    Dim motpasse As String
    Dim URL As String
 
    st = Dir("C:\*.*")
    While st <> ""
        ListBox.AddItem st
        st = Dir
    Wend
 
    Informations(2).Visible = True
 
End Function

**Ribéry** · 03/07/2006, 16h00

OK.

Et un autre truc, cette liste de fichiers j'aimerais l'utiliser dans un menu de mon application. Comment je pourrais faire ? En sachant que cette liste de fichiers devra etre sauvegardée dans une base de données??

**avigeilpro** · 03/07/2006, 16h11

Que veut-tu dire par l'utiliser dans un menu?

**Ribéry** · 03/07/2006, 16h19

Ben en fait la fonction que tu vois est utilisé dans la form "Télécharger". La liste que j'affiche la, je voudrais l'utiliser dans une autre form. C'est compliqué à expliquer faudrait que tu vois l'ensemble du programme pour comprendre....