我有几个日期（DD-MM-YYYY）形式的文件名。我已经读了所有名字并对其进行了排序。但是，如果一天超过12天，则应用程序终止。我陷入了这一部分。
在此处输入代码
For Each file As String In System.IO.Directory.GetFiles(directoryPath)
Dim name = System.IO.Path.GetFileNameWithoutExtension(file)
MsgBox(name)
list.Add(name)
Next
list.Sort(New Comparison(Of Date)(Function(x As Date, y As Date) y.CompareTo(x)))
ComboBox1.DataSource = list
我做了另一个过程
Dim Dates As List(Of Date)
For Each cbItem As Date In Me.ComboBox1.Items
Dates = {
Date.Parse(cbItem.ToString("MM/dd/yyyy", CultureInfo.InvariantCulture))
}.ToList
Dates.Sort(New Comparison(Of Date)(Function(x As Date, y As Date) y.CompareTo(x)))
Next
ComboBox2.DataSource = Dates
尝试这个：
Dim name As String
Dim list As List(of DateTime) = new List(of DateTime)
For Each file As String In System.IO.Directory.GetFiles(directoryPath)
name = System.IO.Path.GetFileNameWithoutExtension(file)
list.Add(Datetime.ParseExact(name, "dd-MM-yyyy", CultureInfo.InvariantCulture))
Next
list.Sort(New Comparison(Of Date)(Function(x As Date, y As Date) y.CompareTo(x)))
ComboBox1.DataSource = list
注：我已经声明了列表，列表DateTime和转换文件名String以DateTime内部Add使用DateTime.ParseExact方法。
本文收集自互联网，转载请注明来源。
如有侵权，请联系[email protected] 删除。
我来说两句