I was wondering what "ReadOnly" does. VbNormal returns all "ReadOnly" files too, so "vbNormal + vbReadOnly" combination seems to have no effect. But I guess it has to have some function.
Thank you very much for your idea.
Sub test()
x = Dir("C:\Folder\", vbNormal) 'It returns read-only files as well, but vbReadOnly is not given as condition
Do While x <> ""
Debug.Print x
x = Dir
Loop
End Sub