Hej Martin
Hvis du har adgang til Asp på din server kan du finde filindholdet af en mappe
ved hjælp af dette script:
<%@ LANGUAGE=VBScript %>
<% OPTION EXPLICIT %>
<%
' Gem dette script som getFolderFiles.asp uden at tilføje tags ell.
' Ret "mp3Folder" til det foldernavn du har dine filer i
' Stien er Relativ til der hvor du lægger Asp siden
' Siden danner en tekststreng som kan indlæses i flash
' myPlayList=mp3Folder/sang1.mp3¤mp3Folder/sang2.mp3......
Dim objFSO, objFolder, objItem, strPath, strPrint
strPath = "mp3Folder"
strPrint = "myPlayList="
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.GetFolder(Server.MapPath(strPath))
For Each objItem In objFolder.Files
strPrint = strPrint & strPath & "/" & objItem.Name & "¤"
Next
Set objItem = Nothing
Set objFolder = Nothing
Set objFSO = Nothing
%>
<%= Left(strPrint,Len(strPrint)-1) %>
I flash tilføjer du dette script, der indlæser strengen fra getFolderFiles.asp:
// Opretter array til at holde sti og filnavne
var arrPlayList = new Array();
// Opretter loader objekt
loadPlaylist = new LoadVars();
// Efter indlæsning
loadPlaylist.onLoad = function(success) {
// Hvis indlæsningen går godt
if (success) {
// Opdel strengen ved hver ¤ og gem værdierne i
// arrPlayList
arrPlayList = loadPlaylist.myPlayList.split("¤");
trace("Playlist loaded!");
} else {
trace("Error loading playlist!");
}
};
// Hent data fra getFolderFiles.asp
loadPlaylist.load("
http://www.ditdomæne.dk/getFolderFiles.asp");
Jeg ved ikke hvordan du har lavet din afspiller, men nu har du ihvertfald dine filnavne indlæst... Dem må du så selv ligge og rode med ;)
Håber det gav mening,
Jakob E