try this
Sub anotherfindfiles()
Application.ScreenUpdating = False
Dim FN As String ' For File Name
Dim ThisRow As Long
Dim FileLocation As String
FileLocation = "c:\YOURFOLDER\*.YOURFILEEXTENSION"
FN = Dir(FileLocation)
Do Until FN = ""
ThisRow = ThisRow + 1
Cells(ThisRow, 1) = FN
FN = Dir
Loop
Application.ScreenUpdating = True
End Sub
Don Guillett
SalesAid Software
[EMAIL PROTECTED]
----- Original Message -----
From: "Rainman" <[EMAIL PROTECTED]>
To: <[email protected]>
Sent: Tuesday, November 14, 2006 8:12 PM
Subject: Export file directory to Excel?
Is there a way to export or copy a file directory listing to Excel,
or a database or other spreadsheet?
I'd like to keep an offline sortable, searchable listing of my files,
but I don't know how to do it.
Any suggestions?
Mike Brady
http://home.comcast.net/~mikeb6933/
--
----------------------------------------
To unsubscribe, mailto: [EMAIL PROTECTED]
Is your picture included in the Official Win-Home List Members Profiles
Page?
http://www.besteffort.com/winhome/Profiles.html
If not, write to: [EMAIL PROTECTED]
--
No virus found in this incoming message.
Checked by AVG Free Edition.
Version: 7.1.409 / Virus Database: 268.14.5/533 - Release Date: 11/13/2006
--
----------------------------------------
To Change your email Address for this list, send the following message:
CHANGE WIN-HOME your_old_address your_new_address
to: [EMAIL PROTECTED]
Note carefully that both old and new addresses are required.
