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!
Printable View
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!