By using listi.net you agree to our cookie policy, We and our partners operate globally and use cookies, for multiple purposes

listi.net

dir to get files

Sub testdir()
s = Dir("c:\ti2\vba\*.*")

Do While s <> ""
rw s
s = Dir
Loop
End Sub