Convert all filename to lowercase

[Dieuz 0]

Hi,

I have a folder containing over 500 files. I would like to convert each of these filename to become lowercase.

What would be the more efficient way to do it?

Thanks!

Edited August 26, 2010 by Dieuz

[Danny35d 8]

Try it:

#include <File.au3>

Local $FilePath = 'C:\Temp'

$FileList = _FileListToArray($FilePath, '*', 1)

If IsArray($FileList) Then
    For $x = 1 To $FileList[0]
        FileMove($FilePath & '\' & $FileList[$x], StringLower($FilePath & '\' & $FileList[$x]), 9)
    Next
EndIf

[Dieuz 0]

That works like a charm!

Thanks alot Danny!

[Spiff59 51]

I'm not sure how long and convoluted your pathnames are, or whether you want to mess with directory names, or how many times this line of code is going to be executed, but...

I would think:

FileMove($FilePath & '\' & $FileList[$x], StringLower($FilePath & '\' & $FileList[$x]), 9)

ought to be:

FileMove($FilePath & '\' & $FileList[$x], $FilePath & '\' & StringLower($FileList[$x]), 9)

Edit: Actually, since you mentioned "efficient", this would likely be the best refinement of Danny's code:

#include <File.au3>

Local $DirPath = 'C:\Temp'

$FileList = _FileListToArray($DirPath, '*', 1)

If IsArray($FileList) Then
    $DirPath &= "\"
    For $x = 1 To $FileList[0]
        $FilePath = $DirPath & StringLower($FileList[$x])
        FileMove($FilePath, $FilePath, 9)
    Next
EndIf

Edited August 27, 2010 by Spiff59