NewFileID = DLookup("", "tblMusic", " = '" & strInputFileName & "'")ĭoCmd.OpenForm "frmEdit", acNormal,, " = " & newFileIDģ. " SELECT '" & strInputFileName & "' AS tFile " I've got a few questions on it however that maybe someone can help me with. Then you can create tag & updateĭoCmd.RunSQL "INSERT INTO tblMusic (filepath)" & _ 1 Auto- Tagger questions 1 November 2007, 19:09 I've got to give you guys credit for the Auto-tagger function in Winamp, its one of the most useful things I've come across in Mp3 land in awhile. TComment, '" & MP3.Year & "' AS tYear, '" & _Įlse 'No ID3 Info: Import the file and then call the edit form to add file info. MP3.Artist & "' AS tArtist, '" & MP3.Title " SELECT '" & strInputFileName & "' AS tFile, 'TAG' AS tTag, '" & current support is up to 147, 148 marks as UnknownĭoCmd.RunSQL "INSERT INTO tblMusic ( filepath, Tag, Artist, Title, Album, Comment, Year, genreID )" & _ If MP3.Genre > 147 Then 'Genre information. MP3.filename = strInputFileName 'get the file I don't want to make one huge thread, so. Mid(filedata, Len(filedata) - 127) = tagData If Left(Right(filedata, 128), 3) "TAG" Then GoTo WRONG mp3": GoTo WRONGįiledata = String(FileLen(mvarFilename), Chr(0)) 'Buffer If Len(vData) ".MP3" Then errDesc = "Wrong file extension. If Len(vData) > 4 Then vData = Left(vData, 4) 'If too big, trim to 30 Public Property Let Year(ByVal vData As String) If Left(tagData, 3) "TAG" Then GoTo WRONG If Len(vData) 30 Then vData = Left(vData, 30) 'If too big, trim to 30
If Len(vData) > 30 Then vData = Left(vData, 30) 'If too big, trim to 30 Public Property Let Comment(ByVal vData As String) If (Len(Dir(mvarFilename))) = 0 Then Exit Property Public Property Let Genre(ByVal vData As Integer)
#Winamp auto tagger problems how to#
If any of you know how to do this I would appreciate it.
#Winamp auto tagger problems update#
I am trying now to update MP3 files ID3Tag info with info I have in my database and viceversa. Rem TempPath is a global variable "C:\tmp\"_ Rem WinampPath is a global variable = "C:\ProgramFiles\Winamp\winamp.exe" Shell (WinampPath & " " & TempPath & "PLAYLIST.PLS")
TxtPrint = "NumberOfEntries=" & counter - 1 TxtPrint = "File" & counter & "=" & DefaultPath & rst! Set rst = dbs.OpenRecordset(txtSQL, DB_OPEN_DYNASET) Open TempPath & "PLAYLIST.PLS" For Append As #1 TxtSQL = "SELECT Songs.* FROM Songs WHERE ( 0) ORDER BY, " Open TempPath & "PLAYLIST.PLS" For Output As #1 csv & you can import it directly into Access) (copy and paste this into notepad, save as. *sigh* so much for getting any real work done this week. the genre list based on the ID3v1/2 standards, which means you can pull the genre from the tag & map it to the correct description by building a table from the following data
0 kommentar(er)
