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

8 votes230 views1 answer
Vba make a short integer from two bytes
VBA
0 vote178 views1 answer
Discern between file and folder given path vb.net
VBA
0 vote180 views1 answer
Hello world vb.net
VBA
0 vote174 views1 answer
Remove first character from string vb
VBA
5 votes506 views1 answer
Vlookup vba
VBA
0 vote171 views1 answer
Priavte sub with multiple handels find sneder
VBA
0 vote195 views1 answer
Vba dictionary clear
VBA
0 vote175 views2 answers
Excel vba close without saving
VBA
0 vote194 views1 answer
Vb run command
VBA
0 vote172 views1 answer
Visual basic msdos
VBA