อยากได้ ตัวอย่างโค้ดสำหรับเปลี่ยนชื่อไฟล์ครับ

อยากได้โค้ดตัวอย่างในการเปลี่ยนชื่อไฟล์ทั้งหมดใน folder ครับ
(ปัญหาคือ ชื่อไฟล์รูปใน folder ไม่เรียงกัน และมีจำนวนไฟล์มากกว่า 100 รูป)
........................................................................................................
เช่น

ใน folder images มีรูป :
KDGJS0393d.jpg
sdghhdG3d0.jpg
...
...
...
1200DKG300.jpg

อยากเปลี่ยนชื่อรูปเป็น :
Picture1.jpg
Picture2.jpg
Picture3.jpg
...
...
...
PictureN.jpg
เป็นต้น
........................................................................................................
ขอบคุณครับ

ใช้ คำสั่ง filecopy,filedelete ครับ

FileCopy("C:\Pictures\KDGJS0393d.jpg", "C:\Pictures\Picture1.jpg")

FileDelete("C:\Pictures\KDGJS0393d.jpg")

ขอบคุณมากครับ

เออ... แล้วผมจะรู้ได้ไงครับว่าไฟล์ใน folder มีจำนวนกี่ไฟล์

และ แต่ละไฟล์ชื่ออะไร แนะนำทีครับ


ขอบคุณครับ

ประมานนี้


#include


$FileList = _FileListToArray("c:\")


For $i = 1 To UBound($FileList)-1
ConsoleWrite($FileList[$i] & @crlf )
Next

ขอบคุณมากครับผม