#Region  Project Attributes 	#ApplicationLabel: SortByDateFileTest 	#VersionCode: 20140627	#VersionName: 	‘SupportedOrientations possible values: unspecified, landscape or portrait.	#SupportedOrientations: unspecified	#CanInstallToExternalStorage: False#End Region#Region  Activity Attributes 	#FullScreen: False	#IncludeTitle: True#End RegionSub Process_Globals	‘These global variables will be declared once when the application starts.	‘These variables can be accessed from all modules.	Type FileAndTime(Name As String, Time As Long)End SubSub Globals	‘These global variables will be redeclared each time the activity is created.	‘These variables can only be accessed from this module.End SubSub Activity_Create(FirstTime As Boolean)	‘Do not forget to load the layout file created with the visual designer. For example:	‘Activity.LoadLayout("Layout1")   Dim files As List   files = ListFilesByDate(File.DirRootExternal)   Log(files.Size -1) ‘ 返回-1表示目录为空   For i = 0 To files.Size - 1      Dim fs As FileAndTime      fs = files.Get(i)      Log(fs.Name & ": " & DateTime.Date(fs.Time))   Next	End SubSub Activity_ResumeEnd SubSub Activity_Pause (UserClosed As Boolean)End SubSub ListFilesByDate(Folder As String) As List   Dim files As List   files = File.ListFiles(Folder) ‘ File.ListFiles 返回指定文件夹内所有目录和文件列表   Dim sortedFiles As List   sortedFiles.Initialize   For i = 0 To files.Size - 1 ‘ List.Size 返回列表中的条目的数量      Dim fs As FileAndTime      fs.Name = files.Get(i) ‘ List.Get 返回List中第i项      fs.Time = File.LastModified(Folder, fs.Name) ‘ File.LastModified 返回指定的文件的最后修改日期      sortedFiles.Add(fs)   Next   sortedFiles.SortType("Time", False) ‘ List.SortType 将List按类型进行排序，Ture=升序，False=降序   Return sortedFilesEnd Sub