Reading Directories

[STe]

Hi,

I would like to be able to loop through files within a given directory and
return the name of the files from within VBA Excel. The file types within the
directory will be mixed, however they will be mainly text files. I am not
sure if this is possible. I hope that my question makes sense. TIA.

Regards

Steven

 

[Don Guillett]

One way of several. You can restrict file type such as *.xls

Sub GetFileList()
Dim ThePath As String
Dim fname As String
Dim i As Long
ThePath = "c:\A" 'ThisWorkbook.Path
fname = Dir(ThePath & "\*.*")
i = 1
Do While fname <> ""
On Error Resume Next
Cells(i, "a") = fname
'MsgBox fname
On Error GoTo 0
fname = Dir()
i = i + 1
Loop
End Sub

 

[STe]

Thank you Don! That is a great help.

One way of several. You can restrict file type such as *.xls

Sub GetFileList()
Dim ThePath As String
Dim fname As String
Dim i As Long
ThePath = "c:\A" 'ThisWorkbook.Path
fname = Dir(ThePath & "\*.*")
i = 1
Do While fname <> ""
On Error Resume Next
Cells(i, "a") = fname
'MsgBox fname
On Error GoTo 0
fname = Dir()
i = i + 1
Loop
End Sub

--
Don Guillett
Microsoft MVP Excel
SalesAid Software
(e-mail address removed)

 

[Don Guillett]

Glad to help