Ouverture de tous les fichiers d'un répertoire

[Résolu]
Signaler
Messages postés
71
Date d'inscription
mercredi 15 novembre 2000
Statut
Membre
Dernière intervention
29 mars 2007
-
Messages postés
1788
Date d'inscription
mardi 7 novembre 2000
Statut
Membre
Dernière intervention
11 mars 2006
-
Salut,

Je souhaite savoir s'il existe un moyen (VB) d'ouvrir tous les fichiers d'un répertoire.

Mon but est que l'utilisateur n'ai à désigner que le répertoire et que l'appli fasse tout le reste du travail.

merci :)

12 réponses

Messages postés
1788
Date d'inscription
mardi 7 novembre 2000
Statut
Membre
Dernière intervention
11 mars 2006
25
Bonjour,

Ce que tu peux faire c'est de récupérer (dans un répetoire donné), les
noms de tes fichiers texte dans une ListBox et les ouvrir un à la
foix à patir de cette Listbox.



jpleroisse.
3
Merci

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

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

Messages postés
1788
Date d'inscription
mardi 7 novembre 2000
Statut
Membre
Dernière intervention
11 mars 2006
25
Bonsoir,

Tu as mis Réponse Acceptée à ma réponse, si c'est uniquement pour visionner le contenu des fichiers. Tu peux faire ceci

Tu place sur ta Form Une ListBox(où l'utilisateur n'aura qu'à cliquer
sur le nom du fichier), unTextBox (propriété Multiligne à True) et un
CommandButton.

Dans mon exemple, les fichiers texte se trouvent dans le réprtoire C:\Mes documents.



Private Sub Command1_Click()

Dim MyName

List1.Clear

MyName = Dir("C:\Mes documents\*.txt*", vbNormal)

While MyName <> ""

List1.AddItem MyName

MyName = Dir

Wend

End Sub



Private Sub List1_Click()

Dim texte, crlf, tout, NomChemin, NomFichier, NomRep

crlf = Chr(13) + Chr(10)

NomChemin = "C:" 'Chemin

NomRep = "Mes documents" 'Répertoire

NomFichier = List1.Text

Open NomChemin + NomRep + NomFichier For Input As #1

On Error Resume Next

Line Input #1, texte

tout = texte

If Len(tout) <> 0 Then

While Not EOF(1)

Line Input #1, texte

tout = tout + crlf + texte

Wend

End If

Text1.Text = tout

Close #1

End Sub



jpleroisse



Si une réponse vous convient, cliquez Réponse acceptée.
3
Merci

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

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

Messages postés
1488
Date d'inscription
mercredi 5 février 2003
Statut
Membre
Dernière intervention
3 décembre 2007
23
Oui, il y en a un.

Enjoy

<hr size="2" width="100%">
( Si une réponse vous convient, cliquez sur le bouton "Réponse acceptée". )
Messages postés
71
Date d'inscription
mercredi 15 novembre 2000
Statut
Membre
Dernière intervention
29 mars 2007

ok, je reformule la question :

Par quel moyen peut-on ouvrir tous les fichiers d'un répertoire en VB ?

Merci
Messages postés
1488
Date d'inscription
mercredi 5 février 2003
Statut
Membre
Dernière intervention
3 décembre 2007
23
Tu ne veux qu'un moyen ou plusieurs ??? 1 seul visiblement...
Alors voilà : tu vas dans l'explorateur pi tu double-cliques sur le fichier voulu... et t'a même pas besoin d'avoir le VB lancé derrière

Non, plus sérieusement. Pense à toujours nous préciser tant le langage utilisé que la version (VB6, VBA, VB.Net, VBS, ...).

Tout dépend ce que tu entends par "ouvrir" un fichier!!! Que veux-tu faire au juste ??? Afficher les fichiers, les modifiers, tous en même temps ou les uns à la suite des autres, les ouvrir dans leurs logiciels respectifs, ..., ..., ... ????
Faut être un chouïa plus précis!

Sinon, classiquement, tu as l'instruction "Open" en mode "Input" ou "Binary" selon la structure de tes fichiers (texte ou autre[binaire]) et ce que tu veux en faire!

T'en dire plus avec si peu d'infos je ne le saurais!

Enjoy

<hr size="2" width="100%">
( Si une réponse vous convient, cliquez sur le bouton "Réponse acceptée". )
Messages postés
71
Date d'inscription
mercredi 15 novembre 2000
Statut
Membre
Dernière intervention
29 mars 2007

ok, je m'lance :

Je ne sais pas encore si c'est du VB6 ou du VB.NET (ca commence bien...)

ouvrir = (
lire un fichier texte
ou parser un fichier XML (de pire en pire!!!)
)
avec VB (instruction open en mode input ou je ne sais quel autre détail technique)

Ce que je souhaite faire, c'est ouvrir tous les fichiers, les uns à la suite des autres, se trouvant dans un répertoire donné.

là c'est mieux ??

:p
Messages postés
1488
Date d'inscription
mercredi 5 février 2003
Statut
Membre
Dernière intervention
3 décembre 2007
23
Les ouvrir, d'accord, mais pour en faire quoi ??? Affiche le texte qu'il y a dedans ? Si ce sont, par exemple, des fichiers Excel (pour peut que tu bosses sous Excel en VBA), ouvrir les fichiers dans Excel ?
De plus, quel est le type de tes fichier ??? Ce sont des fichiers texte ou autre (images, vidéos, ...) ???
Tu les veux affichés dans un contrôle (Champ de texte) ou dans une variable (mode binaire) ???

Tu comprends, on ne peut pas te dire grand chose comme ça !!!

Essaie d'être un peu plus expensif dans tes explications!

Enjoy

<hr size="2" width="100%">
( Si une réponse vous convient, cliquez sur le bouton "Réponse acceptée". )
Messages postés
71
Date d'inscription
mercredi 15 novembre 2000
Statut
Membre
Dernière intervention
29 mars 2007

Ok,

c'est une solution intéressante, mais je veux que l'ouverture et le parcours des fichiers (les uns à la suite des autres) soient complètement transparente à l'utilisateur !

Je m'explique : l'utilisateur saisi le répertoire (à l'aide d'une boîte de dialogue) et après, il n'a pas à se préoccuper de sélectionner les fichiers à ouvrir. Cette étape doit-être totalement automatisée.

1. Est-ce possible ?
2. Si oui, comment faire ?
3. Merci du coup de main, c'est vachement sympa :)

+,
kharrat
Messages postés
1488
Date d'inscription
mercredi 5 février 2003
Statut
Membre
Dernière intervention
3 décembre 2007
23
Bien sûr que c'est faisable!!!

MAIS POUR FAIRE QUOI ?????????????????
(t'es bouché toi!)

Enjoy

<hr size="2" width="100%">
( Si une réponse vous convient, cliquez sur le bouton "Réponse acceptée". )
Messages postés
71
Date d'inscription
mercredi 15 novembre 2000
Statut
Membre
Dernière intervention
29 mars 2007

Ben, j'ai besoin de récupérer des données qui sont réparties sur plusieurs fichiers pour les traiter.

Par exemple, je dois comparer les données du fichier 1 et les données du fichier 2 et affichier les résultats de ces comparaisons à l'écran pour que l'utilisateur les analyse à loisir.

En pratique, c'est un peu plus compliqué que ça, mais le principe est le même.

+
Messages postés
71
Date d'inscription
mercredi 15 novembre 2000
Statut
Membre
Dernière intervention
29 mars 2007

Réponse à jpleroisse,

merci :)

j'ai mis Réponse Acceptée à ta réponse car elle me semble en effet être une option efficace à mon problème.

Ce que je cherchais (à l'origine) était un degré d'automatisation supérieur, où l'utilisateur n'a pas à sélectionner les fichiers (en sélection multiple), mais seulement le répertoire où ils se trouvent. Cette exigeance est (probablement) un peu puérile...

Comme je disais dans un précédent message, je ne souhaite pas afficher le contenu des fichiers, mais effectuer des traitement sur les données qu'ils contiennent (voir au dessus l'exemple des comparaisons).

J'ai donc besoin de récupérer ces données et de les insérer dans des structures. Je crois que j'ai un minimum de modifs à apporter à ton exemple pour arriver à mon but.

Merci pour ton aide :)

+,
kharrat
Messages postés
1788
Date d'inscription
mardi 7 novembre 2000
Statut
Membre
Dernière intervention
11 mars 2006
25
Re,

Dans ce cas tu peux mettre 2 listBox et 2 TextBox, l'utilisateur ouvre
un fichier dans le premier TexrBox avec la List1 et un autre dans le
deuxième TextBox avec la List2(où des combobox si tu veux, c'est le
même code); Il peut ainsi les comparer.



jpleroisse



Si une réponse vous convient, cliquez Réponse acceptée.