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