I have many MP3s on my hard drive, and I'd like to download the filenames
directly into Excel. Is there a quick way to do this? Or would I have to
copy-and-paste them one at a time?

try this
Sub anotherfindfiles()
Application.ScreenUpdating = False
Dim FN As String ' For File Name
Dim ThisRow As Long
Dim MediaFileLocation As String
MediaFileLocation = "c:\yourfolder\*.mp3"
FN = Dir(MediaFileLocation)
Do Until FN = ""
ThisRow = ThisRow + 1
Cells(ThisRow, 1) = FN
FN = Dir
Loop
Application.ScreenUpdating = True
End Sub


--
Don Guillett
SalesAid Software

"Rob McLean" wrote in message
...
I have many MP3s on my hard drive, and I'd like to download the filenames
directly into Excel. Is there a quick way to do this? Or would I have to
copy-and-paste them one at a time?

Rob,

My "List Files" add-in will do that
Available - free - upon direct request.
More info... http://makeashorterlink.com/?Y49E21ECA

Remove XXX from my email address

Regards,
Jim Cone
San Francisco, USA
XX


"Rob McLean" wrote in message
...
I have many MP3s on my hard drive, and I'd like to download the filenames
directly into Excel. Is there a quick way to do this? Or would I have to
copy-and-paste them one at a time?

I have many MP3s on my hard drive, and I'd like to download the filenames
directly into Excel. Is there a quick way to do this? Or would I have to
copy-and-paste them one at a time?

If they're in one folder, one way to do this in Win98 is to use a batch
file like this:

@dir %1 /-p /o:gen "%temp%\dir.txt"
notepad "%temp%\dir.txt"
del "%temp%\dir.txt"
exit

Then add a menu command to folders, pointing it to the batch file.

With this setup, I can right-click on a folder, invoke the menu command,
and get a text file with the list of filenames.

After cleaning it up a bit, the text file can imported by Excel.

If you want a different-looking list, look into switches for the DOS "dir"
command to get variations. For example, see:
http://home7.inet.tele.dk/batfiles/msdos7/

If they aren't in one folder, you might set up a folder using Windows
"Find" looking for ".mp3". Select the entire list (control-A), drag with
the right-mouse-button to a newly created folder with "Copy shortcuts
here". Then use the method above to get the list.

Hi

This UDF returns name of n-th file with given extension in given folder.

Public Function GetMyFile(MyFolder As String, FileNum As Integer,
MyExtension As String)
Dim fs, f, f1, fc, s
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFolder(MyFolder)
Set fc = f.Files
i = 0
For Each f1 In fc
If Right(f1.Name, 3) = MyExtension Then
i = i + 1
If i = FileNum Then GetMyFile = f1.Name
End If
Next
End Function

P.e. into cell A1 enter the formula like this:
=IF(ISERROR(GetMyFile("C:\My Music\",ROW(),"mp3")),"",GetMyFile("C:\My
Music\",ROW(),"mp3"))

and copy it down


Arvi Laanemets


"Rob McLean" wrote in message
...
I have many MP3s on my hard drive, and I'd like to download the filenames
directly into Excel. Is there a quick way to do this? Or would I have to
copy-and-paste them one at a time?

...or if you don't want to mess with much code, you could open Dos
- Start/Run/CMD .. gets your to the command prompt
- CD to the right directory
- Dir MyFiles.txt .. this will pipe the file names into a text file

You could then open the text file (notepad), then copy/past the
files into a worksheet. You could then "Data/Text to Columns"
to get the file names seperated out.

If you regulary need this functionality, I'd play around with the VBA
code a bit, or request the add-in.

(..am I just dogging my own solution? ..haha..)

Cheers!


"Rob McLean" wrote:

I have many MP3s on my hard drive, and I'd like to download the filenames
directly into Excel. Is there a quick way to do this? Or would I have to
copy-and-paste them one at a time?

I've used Jim Cone's "ListFiles" add-in many times for things just such as
this.........it works super-fine.

Vaya con Dios,
Chuck, CABGx3


"Rob McLean" wrote in message
...
I have many MP3s on my hard drive, and I'd like to download the filenames
directly into Excel. Is there a quick way to do this? Or would I have to
copy-and-paste them one at a time?

If you are using itunes, there is an export Library option, which will give
you all the ID3 tags as well.
this is an XML file, and is quite useful if you use a portable hard drive on
various PC's, as you don't need to let it build the whole list again. It
exports in XML format, which you can then open in Excel.

Hope this helps

Sunil Jayakumar


"CLR" wrote in message
...
I've used Jim Cone's "ListFiles" add-in many times for things just such as
this.........it works super-fine.

Vaya con Dios,
Chuck, CABGx3


"Rob McLean" wrote in message
...
I have many MP3s on my hard drive, and I'd like to download the filenames
directly into Excel. Is there a quick way to do this? Or would I have to
copy-and-paste them one at a time?




www.ayyoo.com/credit-cards.html

Have a look at Michel Pierron's awesome code at
http://snipurl.com/dtao
it returns file, artist, title, genre, bitrate, ...

HTH. Best wishes Harald

"Rob McLean" skrev i melding
...
I have many MP3s on my hard drive, and I'd like to download the filenames
directly into Excel. Is there a quick way to do this? Or would I have to
copy-and-paste them one at a time?