Hepka! Jeg er ved at lave en side med en mp3 database ( med lovlige
mp3'er ) og har derfor fundet en glimrende kode her:
http://www.15seconds.com/howto/pg000933.htm
Denne kode læser alle informationer der er i en mp3 fil. Bitrate,
album, artist etc.
Denne kode er der skrevet så man definerer en folder, og koden løber
så alle filer i folderen igennem og viser deres informationer. denne
kode putter man på sin side:
//////////////////////////ASP
Dim folderspec
Dim fso
Dim f
Dim f1
Dim fc
Dim s
set myObj = new mp3dump
folderspec = Server.MapPath(".")
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.GetFolder(folderspec)
Set fc = f.Files
For Each f1 in fc
If LCase(Mid(StrReverse(f1.name), 1,3)) = "3pm" Then
myObj.File = folderspec & "\" & f1.name
Response.Write "FileName = " & myObj.File &
"<br>"
Response.Write "Size = " & myObj.Size &
"<br>"
Response.Write "AudioVersion = " & myObj.AudioVersion &
"<br>"
Response.Write "LayerDescription = " & myObj.LayerDescription &
"<br>"
Response.Write "CRC = " & myObj.CRC &
"<br>"
Response.Write "BitRate = " & myObj.BitRate &
"<br>"
Response.Write "SampleRate = " & myObj.SampleRate &
"<br>"
Response.Write "Pading = " & myObj.Pading &
"<br>"
Response.Write "Frames = " & myObj.Frames &
"<br>"
Response.Write "FrameLenght = " & myObj.FrameLenght &
"<br>"
Response.Write "IsPrivate = " & myObj.IsPrivate &
"<br>"
Response.Write "ChannelMode = " & myObj.ChannelMode &
"<br>"
Response.Write "CopyRight = " & myObj.CopyRight &
"<br>"
Response.Write "Original = " & myObj.Original &
"<br>"
Response.Write "Emphasis = " & myObj.Emphasis &
"<br>"
Response.Write "SongName = " & myObj.SongName &
"<br>"
Response.Write "Artist = " & myObj.Artist &
"<br>"
Response.Write "Album = " & myObj.Album &
"<br>"
Response.Write "AudioYear = " & myObj.AudioYear &
"<br>"
Response.Write "Genre = " & myObj.Genre &
"<br>"
Response.Write "Comment = " & myObj.Comment &
"<br>"
Response.Write "<br>"
End If
Next
%>
//////////////////////////ASP
Alt arbejdet gøres af include filen:
http://www.15seconds.com/files/mp3_class.txt.
Jeg vil dog gerne lave koden om, så man viser stigen til én bestemt
mp3 fil, og så får alle info's. Jeg er ikke særligt snild til asp
efter en længere pause, og kan derfor ikke gennemskue denne kode og
hvordan jeg laver denne ændring.
Jeg har blandt andet prøvet at ændre alle "folderspec" til "filespec"
men det kan jeg ikke få til at virke på nogen måde.
kan nogle asp kyndige komme med et fix, det ville være super!
På forhånd tak!