Hi.

Several months ago, someone posted a quick macro that
would display the files in a given directory. Could
someone point me to that code?

Thanks,
Mike.

Hi
try using the Google archives for this :-)
see this great add-in:
http://www.rondebruin.nl/Google.htm

--
Regards
Frank Kabel
Frankfurt, Germany


Mike D. wrote:
Hi.

Several months ago, someone posted a quick macro that
would display the files in a given directory. Could
someone point me to that code?

Thanks,
Mike.

Sub ListFiles()
Dim oFSO As Object
Dim oFolder As Object
Dim oFile As Object
Dim i As Long

Set oFSO = CreateObject("Scripting.FileSystemObject")
Set oFolder = oFSO.GetFolder("c:\Test\")
i = 1
With Range("A1")
For Each oFile In oFolder.Files
If oFile.Type = "Microsoft Excel Worksheet" Then
.Cells(i, 1).Value = oFile.Name
i = i + 1
End If
Next
End With
End Sub


--

HTH

Bob Phillips
... looking out across Poole Harbour to the Purbecks
(remove nothere from the email address if mailing direct)

"Mike D." wrote in message
...
Hi.

Several months ago, someone posted a quick macro that
would display the files in a given directory. Could
someone point me to that code?

Thanks,
Mike.

Thanks, Bob!

-----Original Message-----
Sub ListFiles()
Dim oFSO As Object
Dim oFolder As Object
Dim oFile As Object
Dim i As Long

Set oFSO = CreateObject("Scripting.FileSystemObject")
Set oFolder = oFSO.GetFolder("c:\Test\")
i = 1
With Range("A1")
For Each oFile In oFolder.Files
If oFile.Type = "Microsoft Excel Worksheet"
Then
.Cells(i, 1).Value = oFile.Name
i = i + 1
End If
Next
End With
End Sub


--

HTH

Bob Phillips
... looking out across Poole Harbour to the Purbecks
(remove nothere from the email address if mailing direct)

"Mike D." wrote in
message
...
Hi.

Several months ago, someone posted a quick macro that
would display the files in a given directory. Could
someone point me to that code?

Thanks,
Mike.


.

My pleasure.

--

HTH

Bob Phillips
... looking out across Poole Harbour to the Purbecks
(remove nothere from the email address if mailing direct)

"Mike D" wrote in message
...
Thanks, Bob!

-----Original Message-----
Sub ListFiles()
Dim oFSO As Object
Dim oFolder As Object
Dim oFile As Object
Dim i As Long

Set oFSO = CreateObject("Scripting.FileSystemObject")
Set oFolder = oFSO.GetFolder("c:\Test\")
i = 1
With Range("A1")
For Each oFile In oFolder.Files
If oFile.Type = "Microsoft Excel Worksheet"
Then
.Cells(i, 1).Value = oFile.Name
i = i + 1
End If
Next
End With
End Sub


--

HTH

Bob Phillips
... looking out across Poole Harbour to the Purbecks
(remove nothere from the email address if mailing direct)

"Mike D." wrote in
message
...
Hi.

Several months ago, someone posted a quick macro that
would display the files in a given directory. Could
someone point me to that code?

Thanks,
Mike.


.