Extraction de nom de fichier depuis un repertoire --> un fichier texte

Soyez le premier à donner votre avis sur cette source.

Vue 6 521 fois - Téléchargée 664 fois

Description

Cette petite application permet de recuperer tout les noms des images *.jpg depuis un dossier. Elle créée un fichier texte avec tout les nom que l'application à trouver.

Tres simple mais qui est tres utile quand on doit constituer un fichier ou relevez tous les nom contenu dans un repertoire. Utilisation de la fonction "DIR"

Parametre: -chemin en entier du repertoire à analyser (ne pas oublier le \ a la fin)
-nom du fichier texte (avec extension)

Voila.

Conclusion :


Remarque: ne pas oublier le \ a la fin du chemin, tres important sinon ne fonctionne pas. Il faudrait faire un verification de ce dernier caractere, et le rajouter en cas d'oubli, ou utiliser le controle commonDialog

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

Messages postés
1
Date d'inscription
lundi 7 février 2005
Statut
Membre
Dernière intervention
7 février 2005

tre bon
Messages postés
1247
Date d'inscription
mardi 7 mai 2002
Statut
Membre
Dernière intervention
18 février 2019
3
Oui, mais il y a plus simple pour le code !!!
-------------------------------------------------
Dim Fic As String

Fic = Dir(Text1, vbNormal)
Open App.Path & "/" & Text2 For Output As #1

Do While Fic <> vbNullString
Print #1, Left(Fic, InStr(Fic, ".") - 1)
Fic = Dir()
Loop

Close #1

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.