Lister - Créer fichiers dans un répertoire [Fermé]
tactac - - Dernière réponse :
ucfoutu
Modérateur Dernière intervention
11 avril 2018
- 6 sept. 2016 à 10:52
- Messages postés
- 18039
- Date d'inscription
- lundi 7 décembre 2009
- Statut
A voir également:
- Lister - créer fichiers dans un répertoire
- Petit programme pour créer un fichier avec la liste des fichiers dans un repertoire - Codes sources - Visual Basic / VB.NET (Trucs & Astuces)
- Lister les fichiers d'un répertoire - Codes sources - ASP / ASP.NET (ASP.Net)
- Asp.net - comment charger dans un datagrid la liste des fichiers d'un répertoire donné - Codes sources - ASP / ASP.NET (FileSystem)
- C / C++ / C++.NET : Bcb : lister les fichiers d'un répertoir dans une tstringlist - CodeS So - Guide
- Liste des fichiers d'un répertoire au format html - Codes sources - Visual Basic / VB.NET (Fichier / Disque)
12 réponses
- Messages postés
- 1869
- Date d'inscription
- samedi 11 janvier 2014
- Statut
Bonsoir
Tu as posté ton message dans la catégorie générale Visual Basic .
Quel VB utilises-tu ?
- VBA ?
- VBS ?
- VB 6 ?
- VB Net ?
il va de soi que même si c'est toujours du Visual Basic le code est différent selon le VB utilisé
Quant aux trucs de base que tu as tenté d'utiliser ce serait plutôt des commandes Dos en fichier .Bat je pense . Cela n'a rien à voir avec Visual Basic
La théorie, c'est quand on sait tout et que rien ne fonctionne. La pratique, c'est quand tout fonctionne et que personne ne sait pourquoi.
Tu as posté ton message dans la catégorie générale Visual Basic .
Quel VB utilises-tu ?
- VBA ?
- VBS ?
- VB 6 ?
- VB Net ?
il va de soi que même si c'est toujours du Visual Basic le code est différent selon le VB utilisé
Quant aux trucs de base que tu as tenté d'utiliser ce serait plutôt des commandes Dos en fichier .Bat je pense . Cela n'a rien à voir avec Visual Basic
La théorie, c'est quand on sait tout et que rien ne fonctionne. La pratique, c'est quand tout fonctionne et que personne ne sait pourquoi.
- Messages postés
- 1869
- Date d'inscription
- samedi 11 janvier 2014
- Statut
C'est faisable en VB 6 sans souci ! C'est par là que j'ai commencé il y a environ 15 ans !
Par contre VB 6 commence à dater ( sorti en 1998) et n'est plus mis à jour par Microsoft . Tu es sous quel OS sur ton poste ? As-tu déjà programmé en VB 6 pour avoir les bases ?
Moi je n'ai que VB Net 2015 ( rien à voir avec VB 6)
Le site regorge d'exemples pour la recherche de fichiers dans un répertoire, la création de fichiers en VB 6
Les commandes DOS fonctionnent uniquement sous DOS
J'ai modifié la catégorie de ton post en VB 6
Inspires toi de ce code pour la recherche des fichiers : http://codes-sources.commentcamarche.net/source/49405-moteur-de-recherche-de-fichiersj
Par contre VB 6 commence à dater ( sorti en 1998) et n'est plus mis à jour par Microsoft . Tu es sous quel OS sur ton poste ? As-tu déjà programmé en VB 6 pour avoir les bases ?
Moi je n'ai que VB Net 2015 ( rien à voir avec VB 6)
Le site regorge d'exemples pour la recherche de fichiers dans un répertoire, la création de fichiers en VB 6
Les commandes DOS fonctionnent uniquement sous DOS
J'ai modifié la catégorie de ton post en VB 6
Inspires toi de ce code pour la recherche des fichiers : http://codes-sources.commentcamarche.net/source/49405-moteur-de-recherche-de-fichiersj
- Messages postés
- 18039
- Date d'inscription
- lundi 7 décembre 2009
- Statut
Bonjour, et un salut à VB95
===>> utilisation toute simple de la fonction DIR (exposée dans l'aide VB6 avec exemple à l'appui)
utilisation toute aussi simple de l'instruction Open ... For ... Output, également accomapgnée dans l'aide VB6 d'exemples simples
Reviens s'il te plait avec le code au moins tenté sur ces bases très simples.
qui liste les fichiers *.wav du répertoire courant
===>> utilisation toute simple de la fonction DIR (exposée dans l'aide VB6 avec exemple à l'appui)
pour chaque *.wav trouvé créer un fichier texte vide portant le nom du fichier son....
utilisation toute aussi simple de l'instruction Open ... For ... Output, également accomapgnée dans l'aide VB6 d'exemples simples
Reviens s'il te plait avec le code au moins tenté sur ces bases très simples.
- Messages postés
- 1869
- Date d'inscription
- samedi 11 janvier 2014
- Statut
- Messages postés
- 18039
- Date d'inscription
- lundi 7 décembre 2009
- Statut
Salut ucfoutu
surtout que 50% du code est fait avec le lien que je lui ai donné plus haut
Bon weekend à toi
surtout que 50% du code est fait avec le lien que je lui ai donné plus haut
Bon weekend à toi
Bonjour,
J'ai réussi à faire ça pour lister le contenu de mon répertoire :
Private Sub Listage_Click()
'Lister répertoire
Dim FileName As String
Dim Path As String
Dim Filter As String
Path = "d:\temp\*.wav"
FileName = Dir$(Path)
While FileName <> ""
MsgBox (FileName,vbOKONLY,LISTE) = vbYes
FileName = Dir$
Wend
End Sub
Mais ça ne marche point quand je l’exécute. Normalement cela devrait afficher la liste des .wav dans un pop-up avec une case OK....
Avez-vous une petite idée ?
Merci d'avance.
J'ai réussi à faire ça pour lister le contenu de mon répertoire :
Private Sub Listage_Click()
'Lister répertoire
Dim FileName As String
Dim Path As String
Dim Filter As String
Path = "d:\temp\*.wav"
FileName = Dir$(Path)
While FileName <> ""
MsgBox (FileName,vbOKONLY,LISTE) = vbYes
FileName = Dir$
Wend
End Sub
Mais ça ne marche point quand je l’exécute. Normalement cela devrait afficher la liste des .wav dans un pop-up avec une case OK....
Avez-vous une petite idée ?
Merci d'avance.
- Messages postés
- 18039
- Date d'inscription
- lundi 7 décembre 2009
- Statut
C'est quoi, cette ligne de code :
Elle correspond à quelle syntaxe d'utilisation de la fonction MsgBox ???
C'est une plaisanterie ?
Et d'où sort soudain cette variable LISTE (qui ne contient dont Rien) ?
Et à quoi te sert la variable filter que tu n'utilises nulle part ?
Etc ...
Quand tu écris :
je suppose que tu veux dire "j'ai copié/collé, sans les comprendre, des bouts de code trouvés je ne sais où ...
Et si tu réussissais à ouvrir au moins ton aide VB6 ? Pour y découvrir au moins la syntaxe de MsgBox ... Quand même !!!!
________________________
Nul ne saurait valablement coder ce qu'il ne saurait exposer clairement.
MsgBox (FileName, vbOKONLY, LISTE) = vbYes
Elle correspond à quelle syntaxe d'utilisation de la fonction MsgBox ???
C'est une plaisanterie ?
Et d'où sort soudain cette variable LISTE (qui ne contient dont Rien) ?
Et à quoi te sert la variable filter que tu n'utilises nulle part ?
Etc ...
Quand tu écris :
J'ai réussi à faire ça
je suppose que tu veux dire "j'ai copié/collé, sans les comprendre, des bouts de code trouvés je ne sais où ...
Et si tu réussissais à ouvrir au moins ton aide VB6 ? Pour y découvrir au moins la syntaxe de MsgBox ... Quand même !!!!
________________________
Nul ne saurait valablement coder ce qu'il ne saurait exposer clairement.
C'est censé afficher le résultat dans une fenêtre....
"LISTE" est le titre de la fenêtre en question.
Pour info, je ne suis pas de spécialité et je prend sur mon temps libre pour "essayer de coder" cette moulinette. Celle-ci ne va pas servir à m'amuser ou faire de l'argent, elle va servir à annoter les enregistrements des appels de détresses que mon service reçoit.
Donc oui, je suis désolé de ne pas m'être plongé dans l'aide en ligne ou dans les tutoriels comme il se doit mais j'ai préféré faire appel à vous pensant que cela irai plus vite et que j'aurai un guidage pas à pas, me serai-je trompé ?
"LISTE" est le titre de la fenêtre en question.
Pour info, je ne suis pas de spécialité et je prend sur mon temps libre pour "essayer de coder" cette moulinette. Celle-ci ne va pas servir à m'amuser ou faire de l'argent, elle va servir à annoter les enregistrements des appels de détresses que mon service reçoit.
Donc oui, je suis désolé de ne pas m'être plongé dans l'aide en ligne ou dans les tutoriels comme il se doit mais j'ai préféré faire appel à vous pensant que cela irai plus vite et que j'aurai un guidage pas à pas, me serai-je trompé ?
- Messages postés
- 18039
- Date d'inscription
- lundi 7 décembre 2009
- Statut
Parfait.
Au passage :
1) tu dis que tu es venu ici "pour gagner du temps".
Tu y es depuis 24 heures. Moins de 15 minutes de lecture de ton aide VB6 suffisaient :
- lecture de la rubrique DIR, qui est assortie d'un exemple où il suffit de remplacer Debug.Print par Msgbox pour répondre à ta demande !
- lecture de la rubrique Msgbox pour en découvrir la syntaxe et son utilisation
2) je suppose que "gagner du temps" signifie pour toi : "utiliser le temps des autres".
De surcroît : ce forum dispose d'un moteur de recherches. Il se trouve que le nombre de discussions ouvertes sur ce type de sujet est pléthoriques et que des sources déposées le traitent aussi.
Ah pardon : je pense que tu préfère ne pas l'utiliser (pour gagner du temps) et attendre que d'autres le fassent à ta place et te montrent les rubriques ainsi trouvées ...
Bref... Tu voudras bien comprendre que je mets un terme à cette discussion, en la fermant.
Bonne chance
Au passage :
1) tu dis que tu es venu ici "pour gagner du temps".
Tu y es depuis 24 heures. Moins de 15 minutes de lecture de ton aide VB6 suffisaient :
- lecture de la rubrique DIR, qui est assortie d'un exemple où il suffit de remplacer Debug.Print par Msgbox pour répondre à ta demande !
- lecture de la rubrique Msgbox pour en découvrir la syntaxe et son utilisation
2) je suppose que "gagner du temps" signifie pour toi : "utiliser le temps des autres".
De surcroît : ce forum dispose d'un moteur de recherches. Il se trouve que le nombre de discussions ouvertes sur ce type de sujet est pléthoriques et que des sources déposées le traitent aussi.
Ah pardon : je pense que tu préfère ne pas l'utiliser (pour gagner du temps) et attendre que d'autres le fassent à ta place et te montrent les rubriques ainsi trouvées ...
Bref... Tu voudras bien comprendre que je mets un terme à cette discussion, en la fermant.
Bonne chance