pro lowercasenames, path


	if n_elements(path) le 0 then begin

f = pickfile(tit = 'Select a file to indicate path')
if f(0) eq '' then return
path = subdir(f(0))
	endif

if strlowcase(strmid(!version.OS, 0, 3)) eq 'win' then Delim = '\' else Delim = '/'

files = findfile(path + Delim + '*')

names = files

N = n_elements(files)

for j0, N-1 do names(j) = (name_extract(names(j)))(0)

for j0, N-1 do spawn, ' mv '+ path + Delim + names(j) + $
	' ' + path + Delim + strlowcase(names(j) )

	end