Basic4Android中按日期排序文件

#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 Region

Sub 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 Sub

Sub Globals
	‘These global variables will be redeclared each time the activity is created.
	‘These variables can only be accessed from this module.

End Sub

Sub 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 Sub

Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub

Sub 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 sortedFiles
End Sub

Basic4Android中按日期排序文件,布布扣,bubuko.com