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 vote256 views1 answer
Excel vba named range exists
VBA
0 vote255 views1 answer
Add text to Shape VBA
VBA
0 vote265 views2 answers
VB
VBA
0 vote238 views1 answer
Vb net check if file exists
VBA
5 votes258 views1 answer
Excel vba second byte from INTEGER
VBA
0 vote226 views1 answer
Find the name of the last excel sheet vb
VBA
6 votes249 views1 answer
Excel vba check if a string only contains letters
VBA
1 vote239 views1 answer
Sort using vba
VBA
3 votes252 views1 answer
Vba double quote
VBA
0 vote240 views1 answer
Vbnet check if sting contians symbols
VBA