Vba loop through files in folder

'The short version
Dim rs As DAO.Recordset
Set rs = CurrentDb.OpenRecordset("SELECT * FROM Contacts")
If Not (rs.EOF And rs.BOF) Then
	Do Until rs.EOF = True
		rs.MoveNext
	Loop
End If
rs.Close
Set rs = Nothing

Source: stackoverflow.com

Similar codes

0 vote246 views1 answer
Excel vba paste all to each sheet in workbook
VBA
0 vote203 views1 answer
Vba get workbook name
VBA
0 vote203 views1 answer
Remove last 8 characters from string vb
VBA
0 vote216 views1 answer
Vbnet click on dgv cells
VBA
0 vote200 views1 answer
Excel vba clear filter
VBA
8 votes295 views1 answer
Excel vba determine number of elements in a 2D array
VBA
5 votes231 views1 answer
Excel vba last byte from INTEGER
VBA
0 vote210 views1 answer
Vba first line of string
VBA
0 vote198 views2 answers
How to concatenate more than 40 lines in vba
VBA
0 vote225 views1 answer
Build an index all files of a FTP site
VBA