EXTRACTION DE NOM DE FICHIER DEPUIS UN REPERTOIRE --> UN FICHIER TEXTE
pcpunch
Messages postés
1243
Date d'inscription
mardi 7 mai 2002
Statut
Membre
Dernière intervention
18 février 2019
-
19 mai 2004 à 15:09
angeherly Messages postés 1 Date d'inscription lundi 7 février 2005 Statut Membre Dernière intervention 7 février 2005 - 7 févr. 2005 à 18:43
angeherly Messages postés 1 Date d'inscription lundi 7 février 2005 Statut Membre Dernière intervention 7 février 2005 - 7 févr. 2005 à 18:43
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
https://codes-sources.commentcamarche.net/source/22947-extraction-de-nom-de-fichier-depuis-un-repertoire-un-fichier-texte
7 févr. 2005 à 18:43
19 mai 2004 à 15:09
-------------------------------------------------
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