List MP3 FILER i dir

Function ShowFolderList()
    counter = 4
    counter2 = 0
    folderspec = server.mappath(\".\")
    Set fso = Server.CreateObject(\"Scripting.FileSystemObject\")
    Set folder = fso.GetFolder(folderspec)
    Set foldercollection = folder.Files
    For Each file in foldercollection
    if lcase(right(file, 3)) = \"mp3\" then
    tmp = tmp & \"<a href=\'\" & file.name & \"\'>\"& file.name &\"</A>\"
    counter2 = counter2 + 1
    if counter2 = counter then
    tmp = tmp & \"<BR>\"
    counter2 = 0
    end if
    end if
    Next
    ShowFolderList = tmp
End Function

response.write showfolderlist()

Det er vist rigtigt! :-)

det skulle det også meget gerne være :)

takker for point!

så lidt... Takker for hjælp :-)