Copying file names into a spreadsheet 1

[scottie1]

Hi All

Can anybody tell me how to copy file names from a folder list in windows explorer into an excel spreadsheet all in one go. Thats if there is a way. It's so when I save sheets in a workbook I save them as the name of the worksheet but sometimes people writing sheet names put spaces at the end, so if you go and look for the file afterwards you can't find it.

Good Luck

 

[Molby]

Something like this should help:

Directory = "C:\Windows\"
x=1
Cells(x,1) = "Filename"
x=x+1
fil=Dir(Directory,7)
cells(x,1)=fil
do while fil<>""
  fil=Dir
  If fil<>"" then
    x=x+1
    Cells(x,1)=fil
  End if
Loop

 

[scottie1]

Cheers Molby

That was excellent