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:\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
Merci de votre aide
Patrice
Téléchargements
-
STALKER Clear Sky : patch 1
Le jeu n'était même pas déjà sorti qu'un patch se montrait déjà disponible. Les développeurs se sont montrés réactifs, et pour cause.
-
LittleBigPlanet : trailer
Si vous n'avez jamais vu le titre le plus populaire de cette rentrée, il est temps pour vous de faire votre éducation et de savoir ce qu'il en est.
-
Widget MyTube
Un widget qui permet d'accéder aux vidéos diffusées sur le portail YouTube.
Tous les téléchargements