Code: Alles auswählen
Structure dset
name$
datum.l
EndStructure
NewList dsn.dset()
Repeat
file$=ProgramParameter()
If file$="" : Break : EndIf
If UCase(GetExtensionPart(file$))<>"JPG" : Continue : EndIf
path$=GetPathPart(file$)
AddElement(dsn())
dsn()\name$=GetFilePart(file$,#PB_FileSystem_NoExtension)
dsn()\datum=GetFileDate(file$,#PB_Date_Modified)
ForEver
SortStructuredList(dsn(),#PB_Sort_Ascending,OffsetOf(dsn\datum),TypeOf(dsn\datum))