this is my code
Dim orderedFiles = New System.IO.DirectoryInfo(dir).GetFiles("file_*.jpeg").OrderBy(Function(x) x.Name)
For Each f As System.IO.FileInfo In orderedFiles
msgbox(f.name)
Next
display
file_1.jpeg
file_10.jpeg
file_11.jpeg
file_12.jpeg
file_13.jpeg
file_14.jpeg
file_2.jpeg
file_3.jpeg
file_4.jpeg
file_5.jpeg
file_6.jpeg
file_7.jpeg
file_8.jpeg
file_9.jpeg
i want them to sort 1 - 2 - 3 ...... 14
how can i do it?
You can do what you want without changing the file names using the StrCmpLogicalW API, e.g.
Imports System.IO
Imports System.Runtime.InteropServices
Module Module1
<DllImport("shlwapi.dll", CharSet:=CharSet.Unicode)>
Private Function StrCmpLogicalW(x As String, y As String) As Integer
End Function
Sub Main()
Dim files = New DirectoryInfo("D:\johnm\Documents\Test").GetFiles()
Array.Sort(files,
Function(file1, file2) StrCmpLogicalW(file1.Name, file2.Name))
For Each file In files
Console.WriteLine(file.Name)
Next
Console.ReadLine()
End Sub
End Module
problem solved! i just set every file name with padleft 000000
e.g 000001 and 000010 now everything is fine
code
Dim test1 As String = "1"
test1 = test1.ToString.PadLeft(6, "0"c)
display
000001
New System.IO.DirectoryInfo(dir).GetFiles("file_*.jpeg")?
1followed by10is the correct order. The usual way to fix this issue is to add zeros on the left of the numbers that are a single digit, as in01, which will allow them to sort in the order you want. If that doesn't work for you, you're going to have to write your own code to do the sorting.StrCmpLogicalW.000000e.g000001and000010now everything is fine. thank you everyone