[*]: Cambiare nome a file immagine

[circus.it]

Originariamente inviato da freetom
di creare un applicativo exe sfruttando un compilatore gratuito

Es. in c, c++ ecc...

T H A N K S

http://www.autoitscript.com/autoit3/

$search = FileFindFirstFile("*.jpg")

If $search = -1 Then
   MsgBox(0, "Error", "No files")
   Exit
EndIf

Dim $aFiles [1]

While 1
   $file = FileFindNextFile($search)

   If @error Then ExitLoop
   $aFiles [UBound($aFiles) - 1] = $file
   ReDim $aFiles [UBound($aFiles) + 1]

WEnd

For $cnt = 1 To UBound($aFiles)
   FileMove($aFiles [ $cnt - 1], "foto" & $cnt & ".jpg")
Next

FileClose($search)