Display files in a directory

[Mike D.]

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.

 

[Frank Kabel]

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

 

[Bob Phillips]

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]

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)




.

 

[Bob Phillips]

My pleasure.

--

HTH

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