No problem:

filen = Dir(directory, 7) 'Catch first file
Do Until filen = ""
name filen lcase(filen)
filen = Dir() 'Find next file
Loop


Hope this helps!