[Resolved] csak az mp3 fájlok lstázása

Hello !

Át lehet , ha igen, hogyan, alakítani ezt a kódot úgy, hogy csak az mp3 fájlokat lístázza ?

Option Explicit

Sub Listazo_1_ea()
Dim FSO As Object
Dim Folder As Object
Dim File As Object
Dim i As Integer
Set FSO = CreateObject(„Scripting.FileSystemObject”)
Set Folder = FSO.GetFolder(Sheets(„playlist”).Range(„c1”).Value)
i = 1
For Each File In Folder.Files
Sheets(„playlist”).Cells(i + 3, 1) = File.Name
Sheets(„playlist”).Cells(i + 3, 2) = File.path
i = i + 1
Next File
End Sub

köszönöm a segítséget! Potus