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

4 votes127 views1 answer
Excel vba check cell not empty
VBA
18 votes297 views2 answers
Vba make word from bytes
VBA
0 vote150 views1 answer
Find if year is leap year vb
VBA
0 vote131 views1 answer
Excel vba clear filter
VBA
0 vote149 views2 answers
S yyyy-MM-dd em vb net
VBA
0 vote157 views1 answer
Excel vba move down to next visible cell
VBA
0 vote134 views3 answers
Write to text file vb.net
VBA
0 vote143 views1 answer
Reset border color textbox vba
VBA
0 vote147 views1 answer
Vbs run with cscript
VBA
0 vote129 views1 answer
Vba len variant
VBA