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

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

ผมมีไฟล์ ภาพการ์ตูน .jpg อยากจะ ชื่อไฟล์เรียงลำดับ 1,2,3,...,30
โดยจะเปลี่ยนแบบนี้ครับ
1 - 001
2 - 002
3 - 003
ไปเรีอยๆ จนถึง
30 - 030

ปัญหาคือโปรแกรมที่ผมทำมามันเรียงลำดับแบบนี้ครับ
1 - 001
10 - 002
11 - 003
12 - 004
13 - 005
14 - 006
15 - 007
16 - 008
17 - 009
18 - 010
19 - 011
2 - 012
20 - 013
21 - 014
22 - 015
23 - 016
24 - 017
25 - 018
26 - 019
27 - 020
28 - 021
29 - 022
3 - 023
30 - 024
4 - 025
5 - 026
6 - 027
7 - 028
8 - 029
9 - 030

มันไม่ยอมเรียงลำดับแบบที่ต้องการ
มีวิธีแก้ให้มันเป็นแบบที่ผมต้องการรึเปล่าครับ

Code:

#Include <File.au3>
#include <Array.au3>
$Floder="D:\Naruto_550_1\"
$dest="D:\Naruto_550_2\"
          $filelist = _FileListToArray($Floder, "*",1)
          If IsArray($filelist) Then
             $num=0
                For $i = 1 To $filelist[0]
                   if $filelist[0]="" then ExitLoop

                     $num=$num+1
                     if $num<=9 then
                        $num="00"&$num
                     ElseIf $num<=99 then
                        $num="0"&$num
                     Endif
                     
                  FileCopy( $Floder&$filelist[$i], $dest&$num&".jpg", 9)

                Next
           EndIf
            

ที่ต้องทำแบบนี้ก็เพราะจะเอาการ์ตูนไปอ่านใน อุปกรณ์พกพา ครับ
ถ้าไม่แก้ชื่อไฟล์ การ์ตูนมันจะเรียงแบบผิดๆ ที่ผมยกตัวอย่าง

นายเขียนผิดเราแก้ให้นิดนุง

#include <File.au3>
#include <Array.au3>
$Floder = "D:\Naruto_550_1\"
$dest = "D:\Naruto_550_2\"
$filelist = _FileListToArray($Floder, "*", 1)

If IsArray($filelist) Then
For $i = 1 To $filelist[0]
$days = StringSplit($filelist[$i], ".")
Switch StringLen($days[1])
Case 1
$number = "00" & $filelist[$i]
Case 2
$number = "0" & $filelist[$i]
EndSwitch
FileCopy($Floder & $filelist[$i], $dest & "\" & $number, 9)
Next
EndIf

คุณ aut ครับ ถ้าบางโฟลเดอร์มันไม่เรียง เฉพาะเลข แต่มีชื่อด้วย อย่างเช่น
Naruto_550_1.jpg
Naruto_550_2.jpg
Naruto_550_3.jpg
Naruto_550_4.jpg
ไปเรื่อยๆ ครับ
จะทำได้รึเปล่า

ก้อได้นะตัวอย่างชื่อน้อยอะเอาชื่อแบบว่า1ถึง20มาดิ

Naruto_550_1.jpg - 001.jpg
Naruto_550_2.jpg - 002.jpg
Naruto_550_3.jpg - 003.jpg
Naruto_550_4.jpg - 004.jpg
Naruto_550_5.jpg - 005.jpg
Naruto_550_6.jpg - 006.jpg
Naruto_550_7.jpg - 007.jpg
Naruto_550_8.jpg - 008.jpg
Naruto_550_9.jpg - 009.jpg
Naruto_550_10.jpg - 010.jpg
Naruto_550_11.jpg - 011.jpg
Naruto_550_12.jpg - 012.jpg
Naruto_550_13.jpg - 013.jpg
Naruto_550_14.jpg - 014.jpg
Naruto_550_15.jpg - 015.jpg
Naruto_550_16.jpg - 016.jpg
Naruto_550_17.jpg - 017.jpg
Naruto_550_18.jpg - 018.jpg
Naruto_550_19.jpg - 019.jpg
Naruto_550_20.jpg - 020.jpg
Naruto_550_21.jpg - 021.jpg
Naruto_550_22.jpg - 022.jpg
Naruto_550_23.jpg - 023.jpg
Naruto_550_24.jpg - 024.jpg
Naruto_550_25.jpg - 025.jpg
Naruto_550_26.jpg - 026.jpg
Naruto_550_27.jpg - 027.jpg
Naruto_550_28.jpg - 028.jpg
Naruto_550_29.jpg - 029.jpg
Naruto_550_30.jpg - 030.jpg

แบบนี้ครับ

แป็บ

เส็ดได้ย่างนี้

#include <File.au3>
#include <Array.au3>
$Floder = "D:\Naruto_550_1\"
$dest = "D:\Naruto_550_2\"
$filelist = _FileListToArray($Floder, "*", 1)

If IsArray($filelist) Then
For $i = 1 To $filelist[0]
$days = StringSplit($filelist[$i], ".")
$result = StringLen($days[1])
$result2 = StringTrimLeft($filelist[$i],$result+7)

FileCopy($Floder & $filelist[$i], $dest & "\" & $result2, 9)
Next
EndIf

เปี่ยนโฟเดอร์เองนะไปนอนแว้ว

กำลังทดสอบครับ ขอบคุณมาก ครับ

คือว่าโค๊ดอันใหม่นี้ แบบว่า ก็อบปี้มาอย่างเดียวเลยครับ ไม่ได้เปลี่ยนชื่อเลยครับ

ผมดูจากสคริปต์คุณ aut คงคิดว่า Naruto_550_1.jpg - 001.jpg คือชื่อไฟล์

แต่จริงๆ แล้ว ชื่อไฟล์คือ Naruto_550_1.jpg ต้องการเปลี่ยนเป็น 001.jpg ใช่ไหมครับ

ถ้าใช่คุณsirchet ใช้สคริปต์ด้านล่างนี้ ที่ผมดัดแปลงมาจากสคริปต์เดิมตัดได้เลยครับ

Code:

#include <File.au3>
#include <Array.au3>
$Floder = "D:\Naruto_550_1\"
$dest = "D:\Naruto_550_2\"
$filelist = _FileListToArray($Floder, "*", 1)

If IsArray($filelist) Then
   For $i = 1 To $filelist[0]
      $text = StringTrimLeft($filelist[$i],11)
Switch StringLen($text)
Case 5
$number = "00" & $text
Case 6
$number = "0" & $text
EndSwitch
FileCopy($Floder & $filelist[$i], $dest & "\" & $number, 9)

   Next
EndIf

ใช่แล้วครับคุณ POS
โค๊ดที่คุณ POS ทำใช้ได้จริงด้วย ขอบคุณมากๆ ครับ

ขอโทษคุณ aut ด้วยนะครับผมอธิบายรวบรัดเกินไป อาจเข้าใจผิด

อ่านะก้อว่าทำไมไพล์ชื่อแปลก