Je cherche (toujours...) à importer les noms de fichiers d'un répertoire.
J'ai une fonction qui tourne très bien, mais m'importe aussi le chemin et
nom du répertoire en premier et je voudrais supprimer celui-ci pour ne
conserver que les noms de fichiers. Le séparateur est un point-virgule.
Exemple :
J'obtiens :
D:\Sons\Mp3\Arno_BestOf;01. Jive to the beat.mp3;02. Tango de la
peau.mp3;03. Bathroom singer.mp3;04. Oh la la la !.mp3;05. Forget the cold
sweat.mp3;06. Vive ma liberté.mp3;07. Mon Sissoyen.mp3;08. Whoop that
thing.mp3;
Et je souhaiterais :
01. Jive to the beat.mp3;02. Tango de la peau.mp3;03. Bathroom
singer.mp3;04. Oh la la la !.mp3;05. Forget the cold sweat.mp3;06. Vive ma
liberté.mp3;07. Mon Sissoyen.mp3;08. Whoop that thing.mp3;
Mon appel de fonction :
Private Sub BtnMorceau_Click()
Dim Morceau As String
ListeMorceau = OpenFile(CurrentProject.Path, Multi_Sélection, True, Son)
ListeMorceau.Requery
Morceau = ListeMorceau
'C'est ici que je voudrais bien insérer le bidule
MsgBox "il y a " & nOpenFile & " fichiers sélectionnés"
End Sub
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Raymond [mvp]
Bonjour.
tu utilises la fonction que j'ai mise au point. la liste des fichiers que tu récupères se trouve également dans le tableau public tOpenFile dans lequel la 1ere donnée(indice 0) est le chemin et les autres le nom des fichiers. Indique moi la finalité de ton besoin et je t'indiquerai comment modifier proprement la fonction. Il faut, je pense, conserver le chemin à quelque part ?
-- @+ Raymond Access MVP http://OfficeSystem.Access.free.fr/ http://users.skynet.be/mpfa/ pour débuter sur le forum
"PatCatNats" a écrit dans le message de news: cn2ah1$ann$
Bonjour,
Je cherche (toujours...) à importer les noms de fichiers d'un répertoire. J'ai une fonction qui tourne très bien, mais m'importe aussi le chemin et nom du répertoire en premier et je voudrais supprimer celui-ci pour ne conserver que les noms de fichiers. Le séparateur est un point-virgule.
Exemple :
J'obtiens : D:SonsMp3Arno_BestOf;01. Jive to the beat.mp3;02. Tango de la peau.mp3;03. Bathroom singer.mp3;04. Oh la la la !.mp3;05. Forget the cold sweat.mp3;06. Vive ma liberté.mp3;07. Mon Sissoyen.mp3;08. Whoop that thing.mp3;
Et je souhaiterais : 01. Jive to the beat.mp3;02. Tango de la peau.mp3;03. Bathroom singer.mp3;04. Oh la la la !.mp3;05. Forget the cold sweat.mp3;06. Vive ma liberté.mp3;07. Mon Sissoyen.mp3;08. Whoop that thing.mp3;
Mon appel de fonction :
Private Sub BtnMorceau_Click() Dim Morceau As String ListeMorceau = OpenFile(CurrentProject.Path, Multi_Sélection, True, Son) ListeMorceau.Requery Morceau = ListeMorceau
'C'est ici que je voudrais bien insérer le bidule
MsgBox "il y a " & nOpenFile & " fichiers sélectionnés" End Sub
Merci de votre aide
Patrice
Bonjour.
tu utilises la fonction que j'ai mise au point.
la liste des fichiers que tu récupères se trouve également dans le tableau
public tOpenFile dans lequel la 1ere donnée(indice 0) est le chemin et les
autres le nom des fichiers. Indique moi la finalité de ton besoin et je
t'indiquerai comment modifier proprement la fonction. Il faut, je pense,
conserver le chemin à quelque part ?
--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum
"PatCatNats" <patcat.nats@tiscali.fr> a écrit dans le message de news:
cn2ah1$ann$1@news.tiscali.fr...
Bonjour,
Je cherche (toujours...) à importer les noms de fichiers d'un répertoire.
J'ai une fonction qui tourne très bien, mais m'importe aussi le chemin et
nom du répertoire en premier et je voudrais supprimer celui-ci pour ne
conserver que les noms de fichiers. Le séparateur est un point-virgule.
Exemple :
J'obtiens :
D:SonsMp3Arno_BestOf;01. Jive to the beat.mp3;02. Tango de la
peau.mp3;03. Bathroom singer.mp3;04. Oh la la la !.mp3;05. Forget the cold
sweat.mp3;06. Vive ma liberté.mp3;07. Mon Sissoyen.mp3;08. Whoop that
thing.mp3;
Et je souhaiterais :
01. Jive to the beat.mp3;02. Tango de la peau.mp3;03. Bathroom
singer.mp3;04. Oh la la la !.mp3;05. Forget the cold sweat.mp3;06. Vive ma
liberté.mp3;07. Mon Sissoyen.mp3;08. Whoop that thing.mp3;
Mon appel de fonction :
Private Sub BtnMorceau_Click()
Dim Morceau As String
ListeMorceau = OpenFile(CurrentProject.Path, Multi_Sélection, True,
Son)
ListeMorceau.Requery
Morceau = ListeMorceau
'C'est ici que je voudrais bien insérer le bidule
MsgBox "il y a " & nOpenFile & " fichiers sélectionnés"
End Sub
tu utilises la fonction que j'ai mise au point. la liste des fichiers que tu récupères se trouve également dans le tableau public tOpenFile dans lequel la 1ere donnée(indice 0) est le chemin et les autres le nom des fichiers. Indique moi la finalité de ton besoin et je t'indiquerai comment modifier proprement la fonction. Il faut, je pense, conserver le chemin à quelque part ?
-- @+ Raymond Access MVP http://OfficeSystem.Access.free.fr/ http://users.skynet.be/mpfa/ pour débuter sur le forum
"PatCatNats" a écrit dans le message de news: cn2ah1$ann$
Bonjour,
Je cherche (toujours...) à importer les noms de fichiers d'un répertoire. J'ai une fonction qui tourne très bien, mais m'importe aussi le chemin et nom du répertoire en premier et je voudrais supprimer celui-ci pour ne conserver que les noms de fichiers. Le séparateur est un point-virgule.
Exemple :
J'obtiens : D:SonsMp3Arno_BestOf;01. Jive to the beat.mp3;02. Tango de la peau.mp3;03. Bathroom singer.mp3;04. Oh la la la !.mp3;05. Forget the cold sweat.mp3;06. Vive ma liberté.mp3;07. Mon Sissoyen.mp3;08. Whoop that thing.mp3;
Et je souhaiterais : 01. Jive to the beat.mp3;02. Tango de la peau.mp3;03. Bathroom singer.mp3;04. Oh la la la !.mp3;05. Forget the cold sweat.mp3;06. Vive ma liberté.mp3;07. Mon Sissoyen.mp3;08. Whoop that thing.mp3;
Mon appel de fonction :
Private Sub BtnMorceau_Click() Dim Morceau As String ListeMorceau = OpenFile(CurrentProject.Path, Multi_Sélection, True, Son) ListeMorceau.Requery Morceau = ListeMorceau
'C'est ici que je voudrais bien insérer le bidule
MsgBox "il y a " & nOpenFile & " fichiers sélectionnés" End Sub
