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 vote117 views1 answer
Vba collection key list
VBA
0 vote117 views1 answer
Change whcih control a user has selected vb
VBA
0 vote128 views1 answer
Search in richtextbox vb.net
VBA
0 vote120 views1 answer
Vbscript abs
VBA
0 vote126 views1 answer
Excel vba delete folder
VBA
0 vote108 views1 answer
Docker vboxmanage not found
VBA
0 vote118 views1 answer
Excel vba disable mouse click
VBA
0 vote124 views1 answer
Vba sort the data Z to A
VBA
8 votes202 views1 answer
Vba make integer
VBA
0 vote141 views1 answer
Vba search string position
VBA