'元の並び順 Dim jpgFiles As String() = System.IO.Directory.GetFiles(フォルダパス名, "*.jpg")
'作成日順 'Dim jpgFiles As String() = System.IO.Directory.EnumerateFiles(フォルダパス名, "*.jpg").OrderBy(Function(jpg) New System.IO.FileInfo(jpg).CreationTime).ToArray()
'更新日順 'Dim jpgFiles As String() = System.IO.Directory.EnumerateFiles(フォルダパス名, "*.jpg").OrderBy(Function(jpg) New System.IO.FileInfo(jpg).LastWriteTim).ToArray()
> For i As Integer = jpgFiles.Length - 1 To 0 Step -1 > > Dim original As Image = Bitmap.FromFile(jpgFiles(i)) > Dim thumbnail As Image = createThumbnail(original, width, height) > > ImageList1.Images.Add(thumbnail) > ListView1.Items.Add(jpgFiles(i), s)・・・(※) s = s + 1・・・(※) > > original.Dispose() > thumbnail.Dispose() > Next > End Sub