Discussion :

[issaines]

Salut,
Je veux savoir comment charger un ensemble de fichier à partir d'un répertoire donnée dans une application VB

[jmfmarques]

comment charger un ensemble de fichier à partir d'un répertoire donnée dans une application VB

Quentends-tu exactement par "charger" ?

[SfJ5Rpw8]

Salut,
Je veux savoir comment charger un ensemble de fichier à partir d'un répertoire donnée dans une application VB

VB ... VB6? .. c'est quoi t fichiers!

[issaines]

Salut,
je cherche comment je peut ouvrir tout les fichiers d'un répértoire choisi par l'utilisateur dans mon application au lieu de les ouvrir l'un aprés l'autre.
Rq: Les fichiers sont des fichiers textes
Merci pour votre réponse.

[issaines]

Salut,
j'ai oublié de vous indiquer que je parle d'une application VB6

[Megaxel]

Heu...
Quand tu ouvres un fichier, au lieu de le fermer et d'ouvrir le suivant, et bien tu ne le fermes pas, et tu changes de numéro pour le suivant.

[jmfmarques]

je cherche comment je peut ouvrir tout les fichiers d'un répértoire choisi par l'utilisateur dans mon application au lieu de les ouvrir l'un aprés l'autre.

j'ose espérer, par pitié pour la mémoire de sa machine, que l'utilisateur ne choisira pas un répertoire contenant une centaine de fichiers , voire plus, par étourderie !

[sovo]

je ne sais pas ce que tu veux exactement faire mais tu peux utiliser cette methode :

Code :

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

1
2
3
4
5
6
7
8
9
10
 
un drivelistbox       'pour choisir le disque qui contient le repertoire
un dirlistbox           'pour afficher tous les repertoire qui se trouve dans le disque selectioner avec le drivelistbox
un filelistbox          'pour afficher les fichiers se trouvant dans le repertoire selectioner dans le dirlistbox
un textbox (ou rtf)  'pour afficher le contenu du fichier selectioner dans le filelistbox 
 
 
'tous sont des conposants par defaut de VB6
 
avantage plus rapide car composant propre de VB (pour jmfmarques)

si tu n'arrive pas a coder tout ca fait moi signe et je te donnerais le code.

[issaines]

Merci beaucoup pour votre réponse, mais j'ai pas pu coder tout ses méthodes.

[Invité]

Salut,

Regarde dans les FAQ, il me semble qu'il s'agit de la FAQ Access, il existe une API qui tu permets de de sélectionner un répertoire, et ensuite c'est à toi de coder pour charger tous les fichiers du répertoire


Starec

[sovo]

tout d'abord mon principe te pemettra de lire fichier par fichier (un seul a la fois) tous les fichier qui ce trouve dans ton repertoire.

Voici comment tu pourras code tout ca.

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
18
19
20
21
22
23
24
25
26
27
28
29
30
31
 
'tout d'abod tu doit coller les controlles :
'drivelistbox = DLB (son nom)
'dirlistbox = RLB
'filelistbox = FLB
'textbox = ViewFile
 
'ok maintenant le code proprement dit
 
'pour le drivelistbox : utilisant l'evenement "click"
private sub DLB_Click()
     RLB.path=DLB.drive
ebd sub
 
'pour le dirlistbox : utilisant l'evenement "click"
private sub RLB_Click()
     FLB.path=RLB.drive
ebd sub
 
private sub FLB_Click()
     dim text as string, NbFile as integer
 
     NbFile = freefile
     open RLB & "\" & FLB.text for input as NbFile
         while not eof(NbFile)
              line input NbFile, text & vbCrLf
         wend
     close (NbFile)
 
     ViewFile=text 
ebd sub

Bon je croit qu'avec ca tu pouras lire tous tes fichiers dans un repertoire choisi.

PS: je n'est pas tester ce code mais je croit qu'il devrais fonctionner.

[issaines]

Merci beaucoup pour votre aide.
Lorsque j'ai écris ce code une erreur c'est affiché indiquant "object required" au niveau de la ligne suivante:

Code :

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

open RLB & "\" & FLB.text for input as NbFile

Merci une autre fois.

[SfJ5Rpw8]

'tout d'abod tu doit coller les controlles :
'drivelistbox = DLB (son nom)
'dirlistbox = RLB
'filelistbox = FLB
'textbox = ViewFile

c'est fait ?

[sovo]

code revu et corriger (contenais un certain nombre d'erreur).

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
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
 
'tout d'abod tu doit coller les controlles :
'drivelistbox = DLB (son nom)
'dirlistbox = RLB
'filelistbox = FLB
'textbox = ViewFile
 
'ok maintenant le code proprement dit
 
'pour le drivelistbox : utilisant l'evenement "change"
Private Sub DLB_Change()
    RLB.Path = DLB.Drive
End Sub
 
'pour le dirlistbox : utilisant l'evenement "click"
Private Sub RLB_Click()
    FLB.Path = RLB.Path
End Sub
 
'pour le filelistbox : utilisant l'evenement "click"
Private Sub FLB_Click()
    Dim texte As String, NbFile As Integer
 
    ViewFile.Text = ""
    NbFile = FreeFile
 
    Open FLB.Path & "\" & FLB.List(FLB.ListIndex) For Input As #NbFile
        While Not EOF(NbFile)
            Line Input #NbFile, texte
            ViewFile.Text = ViewFile.Text & texte & vbCrLf
        Wend
    Close #NbFile
End Sub

bon la comme ca (et surtout si tu tient compte de la remarque de bbil) ca devrais marche nickel (tester et ca marche 100 %)