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

27 votes280 views2 answers
Vba check if file exists
VBA
0 vote230 views1 answer
Excel vba add reference programmatically
VBA
5 votes233 views1 answer
Excel vba last byte from INTEGER
VBA
8 votes233 views1 answer
Excel vba determine number of elements in a 2D array
VBA
1 vote202 views1 answer
Close form vba
VBA
0 vote202 views1 answer
Discern between file and folder given path vb.net
VBA
0 vote200 views1 answer
Refresh token em vb net
VBA
0 vote217 views1 answer
Find if year is leap year vb
VBA
22 votes277 views1 answer
Excelvba check for directory
VBA
0 vote205 views1 answer
Vbscript Trim
VBA