Telefonszámunk: 1-472-0679

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

Kezdőlap Fórumok Excel programozás [Resolved] csak az mp3 fájlok lstázása

Topic Resolution: Resolved

Ennek a témakörnek tartalma 2 hozzászólás, 2 résztvevő. Utolsó frissítés:  Potus 1 hét, 6 napja telt el.

3 bejegyzés megtekintése - 1-3 / 3
  • Szerző
    Bejegyzés
  • #7295

    Potus
    Felhasználó

    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

    #7296

    horvimi
    Adminisztrátor

    Szia!

    Az FSO objektum használatával elvileg külön lekérhető az aktuális fájl kiterjesztése is.
    Például

    ext = FSO.GetExtensionName(File)

    Tehát amikor mész a ciklussal, akkor beteszel egy IF vizsgákatot, és csak akkor írod ki a munkalapra az aktuáluis fájl adatait, ha a kiterjesztése “mp3”

    Imre

    • A hozzászólás módosításra került: 1 hónap, 2 hete telt el- horvimi.
    #7435

    Potus
    Felhasználó

    köszönöm szépen a megoldást!

3 bejegyzés megtekintése - 1-3 / 3

Be kell jelentkezni a hozzászóláshoz.