usetheforce2
01-08-2002, 01:51 PM
Hey all,
This is an mp3 class that can perform some basic functions when working with mp3 files:
1. Get the tag information (Title, Artist, Album, Year, Comment, Genre)
2. Save tag information to an MP3 file
3. Delete tag information
4. Provide a complete genre list (well as many as I could find)
In order to use the example project, you must change two values:
1. You will have to change the path to a folder that contains mp3 files on you computer in order to populate the textbox with valid mp3 files. This is located in the fsoObject sub routine.
' Get path to folder that contains mp3 files, and initialize folder (fldr) object
Set fldr = fso.GetFolder("E:\My Shared Folder")
2. In order to use the “Get Tag”, “Save Tag”, and “Delete Tag” command buttons, you will need to change the path to a valid Mp3 file on your computer. These are located in each of the following subroutines (these sub routines should all point to the same MP3 file):
* DeleteTag() *
'set path to file
TagInfo.FileName = App.path & "\test1.mp3"
* FileInfo() *
'set path to file
TagInfo.FileName = App.path & "\test1.mp3"
* SaveTag() *
'set path to file
TagInfo.FileName = App.path & "\test1.mp3"
If you have any question or comments please PM me, thanks and enjoy!
Ps: the initial code and idea was provided to me by JDT, thanks SAM!
Regan
[COLOR=blue]
This is an mp3 class that can perform some basic functions when working with mp3 files:
1. Get the tag information (Title, Artist, Album, Year, Comment, Genre)
2. Save tag information to an MP3 file
3. Delete tag information
4. Provide a complete genre list (well as many as I could find)
In order to use the example project, you must change two values:
1. You will have to change the path to a folder that contains mp3 files on you computer in order to populate the textbox with valid mp3 files. This is located in the fsoObject sub routine.
' Get path to folder that contains mp3 files, and initialize folder (fldr) object
Set fldr = fso.GetFolder("E:\My Shared Folder")
2. In order to use the “Get Tag”, “Save Tag”, and “Delete Tag” command buttons, you will need to change the path to a valid Mp3 file on your computer. These are located in each of the following subroutines (these sub routines should all point to the same MP3 file):
* DeleteTag() *
'set path to file
TagInfo.FileName = App.path & "\test1.mp3"
* FileInfo() *
'set path to file
TagInfo.FileName = App.path & "\test1.mp3"
* SaveTag() *
'set path to file
TagInfo.FileName = App.path & "\test1.mp3"
If you have any question or comments please PM me, thanks and enjoy!
Ps: the initial code and idea was provided to me by JDT, thanks SAM!
Regan
[COLOR=blue]