MrExcel Publishing
Your One Stop for Excel Tips & Solutions

Importing/copying filenames into an excel sheet?


Posted by Garrett on December 22, 2000 8:22 AM

Hi,
Does anybody know how to copy filenames into excel from the Windows NT Explorer?

Here's the problem: I've got one excel spreadsheet with a bunch of image file names in it. I've also got a couple thousand images (jpg's) saved on my harddrive. I want to extract the image names (not the actual picture) from my harddrive, and create a new excel file that I can match up against the existing one (so I can determine which products have no existing image).
Thoughts?

Happy Holidays!
TIA!


Posted by Bruce on December 23, 2000 10:57 AM

Give this macro a try. You might have to customize it.

Sub ListFiles()
Dim myRow As Integer
Dim myFile As String

myRow = 1
myFile = Dir("*.xls")
Do Until myFile = ""
Cells(myRow, 1) = myFile

myRow = myRow + 1
myFile = Dir
Loop
End Sub

Posted by Bruce on December 23, 2000 11:49 AM

myRow = 1 myFile = Dir("*.xls") Do Until myFile = "" Cells(myRow, 1) = myFile myRow = myRow + 1 myFile = Dir Loop

What I meant my customzing is you will need to tell where the directly to look in is.
Example
myFile = Dir("C:\Images\*.jpg") or to get all files in the directory : myFile = Dir("C:\Images\*.*")

Posted by Bruce on December 23, 2000 11:50 AM

myRow = 1 myFile = Dir("*.xls") Do Until myFile = "" Cells(myRow, 1) = myFile myRow = myRow + 1 myFile = Dir Loop

What I meant my customzing is you will need to tell where the directly to look in is.
Example
myFile = Dir("C:\Images\*.jpg") or to get all files in the directory : myFile = Dir("C:\Images\*.*")