如何列出今天在目录中使用 VB.Net 创建的文件）

Question

我正在使用以下代码按降序对目录中的所有文件进行排序，然后检查文件创建日期是否是今天的日期。

能否改进以在末尾包含 .Where() 条件以仅包含今天创建的文件？

代码

Dim orderedFiles = New System.IO.DirectoryInfo("C:\MyFolder").GetFiles().OrderByDescending(Function(p) p.LastWriteTime)

Answer 1

根据您的代码，只需使用 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)

• my_file 存储今天创建的文件集合

  Dim file_name As String
  file_name = my_file(0).FullName ' file in 0th position or you can loop thorough my_file 
  

• 这将显示带有绝对路径的文件名，即 C:\MyFolder\file.txt