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

2 votes338 views1 answer
Excel vba extract file name
VBA
0 vote360 views1 answer
Xlbycolumns is not declared
VBA
2 votes332 views1 answer
Vba uppercase first letter of each word
VBA
1 vote333 views1 answer
Excel vba convert cells(1,1) into A1 and vice versa
VBA
3 votes342 views1 answer
Excel vba read registry key value
VBA
1 vote411 views1 answer
Vba login website
VBA
0 vote355 views1 answer
Vba timestamp -- milliseconds
VBA
0 vote347 views1 answer
Excel vba scroll to cell
VBA
0 vote346 views1 answer
Vbscript check if string contains
VBA
0 vote341 views1 answer
Vba exit while
VBA