EXTRACTION DE NOM DE FICHIER DEPUIS UN REPERTOIRE --> UN FICHIER TEXTE

Signaler
Messages postés
1247
Date d'inscription
mardi 7 mai 2002
Statut
Membre
Dernière intervention
18 février 2019
-
Messages postés
1
Date d'inscription
lundi 7 février 2005
Statut
Membre
Dernière intervention
7 février 2005
-
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.

https://codes-sources.commentcamarche.net/source/22947-extraction-de-nom-de-fichier-depuis-un-repertoire-un-fichier-texte

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