Ok, Don. Time to show em what we do now!! Take it.....
-----Original Message-----
From: Windows Home/SOHO [mailto:[EMAIL PROTECTED] Behalf
Of Wayne Johnson
Sent: Wednesday, November 15, 2006 8:24 AM
To: [email protected]
Subject: Re: Export file directory to Excel?
At 08:01 AM 11/15/2006, Don Guillett typed:
>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
That's great Don but how about tell the rest of the list that may not
know what is one suppose to do with this Sub.
---------------+--------------
I'm a geek that loves to tweak.
--
----------------------------------------
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.
--
----------------------------------------
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.
