OVH Cloud OVH Cloud

quelqu'un sait lister le contenu d'un répertoire en indiquant le nom du file présent et sa durée (mm:ss) pour de l'audio ?

3 réponses
Avatar
Help ME
Merci

Michel

3 réponses

Avatar
isabelle
bonjour,

pour récupérer le nom des fichiers d'un dossier, mais je ne sais pas
comment récupérer sa durée.

Sub TousFichiersDunDossier()
Dim fso As Object, Dossier As Object, NomDossier
Dim Files As Object, File As Object, i As Integer
Set fso = CreateObject("Scripting.FileSystemObject")
NomDossier = "C:zaza"
If NomDossier = "" Then Exit Sub
Set Dossier = fso.getfolder(NomDossier)
Set Files = Dossier.Files
If Files.Count <> 0 Then
For Each File In Files
x = x + 1
Range("A" & x) = File
Next
End If
End Sub

isabelle


Merci

Michel


Avatar
JpPradier
Bonjour Help ME

Ca dépend du type de fichier ( .wav .mp3, autre ?). Peux-tu préciser ?

j-p

"Help ME" a écrit dans le message de
news:
Merci

Michel




Avatar
Help ME
cela peut etre du wav comme du mp3.
Merci à vous 2
"JpPradier" a écrit dans le message
de news:
Bonjour Help ME

Ca dépend du type de fichier ( .wav .mp3, autre ?). Peux-tu préciser ?

j-p

"Help ME" a écrit dans le message de
news:
Merci

Michel