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 vote315 views1 answer
Vbnet make a string to unicode converter
VBA
0 vote315 views1 answer
Vba get relative cell address
VBA
0 vote328 views1 answer
Remove last 8 characters from string vb
VBA
1 vote323 views2 answers
Vba string length
VBA
0 vote299 views1 answer
Visual stuiod not recognising desgined labels
VBA
0 vote309 views1 answer
Remove series name from legendvbnet
VBA
5 votes356 views2 answers
Excel vba write to the windows registry
VBA
0 vote358 views1 answer
How to call gcd in vba
VBA
0 vote310 views1 answer
Xlbycolumns is not declared
VBA
0 vote310 views1 answer
Vba code to open a file with login rights
VBA