Music list?

  • Thread starter Thread starter Sven
  • Start date Start date
S

Sven

I don't know if it is possible, but I want to make a list of all music on my
pc.
Is there a way to import it directly from 'verkenner'?

Becaus if I need to typ everything, it will take a lot of time


Greetz sven.
 
Whatever 'verkenner' is, you may want to Export your listing from there.
Excel will accept text and CSV files, as well as database files. You may
also generate a file listing from the command prompt and use that.
 
I use Jim Cone's fine little commercial add-in called ListFiles for things
such as this. It will import all the filenames from a directory, such as
..mp3's, and make a hyperlink to each so all you have to do is click on it and
it will play.....cool. It's available at

http://www.realezsites.com/bus/primitivesoftware/

Vaya con Dios,
Chuck, CABGx3
 
The exact translation of verkenner is scout.
It's the survay function in windows.

Can i import is from there?

Thx
 
If you are referring to Windows "Search", then no, you can't. From the
command prompt you could do

DIR c:\*.mp3 /S > C:\musiclist.txt

and you would have a text file you could open in Excel that you could
clean up and use.
 
Thats an option.
But I wanted the artist name and everyting.

Does someone know how to change such an add-in?

Sven
 
Verkenner: Explorer

--
Kind regards,

Niek Otten
Microsoft MVP - Excel


| The exact translation of verkenner is scout.
| It's the survay function in windows.
|
| Can i import is from there?
|
| Thx
|
| "Bob I" <[email protected]> schreef in bericht
| | > Whatever 'verkenner' is, you may want to Export your listing from there.
| > Excel will accept text and CSV files, as well as database files. You may
| > also generate a file listing from the command prompt and use that.
| >
| > Sven wrote:
| >
| >> I don't know if it is possible, but I want to make a list of all music on
| >> my pc.
| >> Is there a way to import it directly from 'verkenner'?
| >>
| >> Becaus if I need to typ everything, it will take a lot of time
| >>
| >>
| >> Greetz sven.
| >
|
 
Here is one I have used in the past (I can see that it needs updating). It
assumes that files are in
artist name - song name.mp3
format. I also have a double click macro that will play the song. My file
does other things too.

Sub FindFiles()
Application.Calculation = xlCalculationManual
Application.ScreenUpdating = False
'sets Erase or Append option
lastrow = Range("a65536").End(xlUp).Row
If lastrow = 4 Then lastrow = 5 Else lastrow = lastrow
'MsgBox lastrow
If UCase([a3]) = "E" Then
Range("a5:f" & lastrow).ClearContents
lastrow = 4
ElseIf UCase([a3]) = "A" Then lastrow = lastrow
End If
'Sets Musicpath
If Right([a1], 1) <> "\" And Left([a1], 1) <> "_" Then x = "\"
If IsEmpty([a2]) = False And Right([a2], 1) <> "\" Then y = "\"
musicpath = [a1] & x & [a2] & y
'Finds Files
With Application.FileSearch
.NewSearch
.LookIn = musicpath
.SearchSubFolders = True 'False
.MatchTextExactly = False
.Filename = ".mp3" '*.mp3* did not work in 97
If .Execute(msoSortOrderDescending) > 0 Then
'MsgBox "There were " & .FoundFiles.Count & " file(s) found."
For i = 1 To .FoundFiles.Count
'MsgBox Mid(.FoundFiles(i), Len(musicpath) + 1, 2)
If Mid(.FoundFiles(i), Len(musicpath) + 1, 2) <> "__" Then 'added for
__INCOMPLETE

x = Application.Find("\", StrReverse(.FoundFiles(i))) - 2 'must have
function before xl2000
y = Application.Find("-", StrReverse(.FoundFiles(i))) - 1

Cells(i + lastrow, 1).Value = Mid(.FoundFiles(i), Len(.FoundFiles(i)) - x,
x - y)
x = Application.Find("-", .FoundFiles(i)) + 1
Cells(i + lastrow, 2).Value = Mid(.FoundFiles(i), x, Len(.FoundFiles(i)) -
x - 3)
Cells(i + lastrow, 3).Value = FileLen(.FoundFiles(i))
Cells(i + lastrow, 4).Value = FileDateTime(.FoundFiles(i))
Cells(i + lastrow, 5).Value = .FoundFiles(i) 'Path to play
End If 'added
Next i

Else
MsgBox "There were no files found."
End If
End With

Range("a5:g" & Range("a65536").End(xlUp).Row) _
..Sort Key1:=Cells(1, 1), Order1:=xlAscending, Key2:=Cells(1, 2),
Order2:=xlAscending, Orientation:=xlTopToBottom
[a5].Select
Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic
End Sub
 
Sven said:
I don't know if it is possible, but I want to make a list of all music on
my pc.
Is there a way to import it directly from 'verkenner'?

Becaus if I need to typ everything, it will take a lot of time


Greetz sven.
Click to expand...

If you don't want to go the trouble of downloading add-ins and trying to
modify them, or using fairly formidable-looking formulas, and you happen to
have Firefox, here's a fairly simple way you can do it:

Open two windows of Firefox (you'll do the operations in the 2nd window, and
should close that one first when you're through ---- if you did the
operation in just one open window, when you close it, you will lose your
Firefox settings, and will have to reset)

In the second window's address bar, enter the path of your music files which
you can copy and paste from your open music files. It should look something
like this:
C:\Documents and Settings\al\My Documents\My Music
Hit "Enter"
You should now have a display of all your music file info.
Select the list.
Copy it.
In Excel, go to Edit > Paste Special > Text > OK.

If you follow the fairly common format (Artist - Name of Song.mp3) of naming
your music files,
column A would include: File: Artist - Name of Song.mp3
Columns B, C, and D would include size of file, date of creation, time of
creation.

If you want to get rid of the redundant "File:" and want separate columns
for Artist and Name of Song, just select column A, go to Data > Text to
Columns, choose "Delimited", specify " : " as a delimiter, then skip the
column now delimiting "File:".
Click Finish and repeat the process using " - " as your delimiter to put
Artist and Name of Song into separate columns.

--Alan
 
This looks perfect, but I get an error.
When I do select MP3 Dir, I can choose the folder but then he gives an
error.

Error 445
Action not supported by object???

Thx in advance
 
It works to get a list.

But I am trying first with Dave his solution because that would give it very
simpel immediatly in excel ready to use.

But thx for the solution.
It's good to know that it is possible like this.
 
Maybe it's a difference in versions of windows. I use WinXP Home and it's
worked for me.
 
If you are interested in a shareware application that does this, you
could take a look at MP3-Boss:
http://www.mp3-boss.com

....which offers a number of advantages:
* Able to scan any/all drives for about a dozen music formats in
addition to mp3 (although it defaults to just mp3)
* Reads embedded tag information to get Artist/Album/Title (and
more...more than 100 fields)
* MusicIP lookups when tag information isn't available (Artist/Album/
Title)

It is fully Office compatible (it is an Access97 Runtime, but with
v0.632beta it now has a fully VISTA compatible installer):
http://web.newsguy.com/mccaffjt/punbb/viewtopic.php?id=374

....and so you can simply Copy/Paste whatever columns/rows you want
directly from MP3-Boss into Excel (and sort or filter the results
before copy/paste) -- or use MP3-Boss directly to get your reports.

John
http://www.mp3-boss.com
 
Back
Top