基于您的代码只需使用Where(Function(p) p.CreationTime.Date = Now.Date)
代替OrderByDescending(Function(p) p.LastWriteTime)
Dim orderedFiles = New System.IO.DirectoryInfo("C:\MyFolder") _
.GetFiles() _
.Where(Function(p) p.CreationTime.Date = Now.Date)
或
Dim Dir As New DirectoryInfo("C:\MyFolder")
Dim FilesInDir As FileSystemInfo()
FilesInDir = Dir.GetFileSystemInfos
Dim my_file = FilesInDir.Where(Function(p) p.CreationTime.Date = Now.Date)
今天
Dim file_name As String
file_name = my_file(0).FullName ' file in 0th position or you can loop thorough my_file
创建文件的
在我的情况下系统日期将永远是正确的。 –