时间戳

首页 > 解决方案 > 用 x 个月以前的 Excel 文件填充列表框

excel - 用 x 个月以前的 Excel 文件填充列表框

问题描述

我正在制作一个 WinForm 项目，该项目向我显示所选文件夹的 x 个月之前的所有 Excel 文件。我可以用所有 Excel 文件
填充 a （见下面的代码）。 在选择超过 x 个月的时间时，我没有成功。我想我应该使用它，但找不到如何使用它。ListBox
LastWriteTime

谁能帮我找到解决方案？

Private Sub ListFiles(ByVal folderPath As String)
    filesListBox.Items.Clear()

    Dim fileNames As String() =
        System.IO.Directory.GetFiles(folderPath,
            "*.xl*", System.IO.SearchOption.TopDirectoryOnly)

    For Each fileName As String In fileNames
        fileslistbox.Items.Add(fileName)
    Next
End Sub

标签： excelvb.netwinforms

解决方案

你快到了。只需要添加一个 IF 子句来检查修改日期。

检查此代码示例：

Private Sub ListFiles(ByVal folderPath As String)
    filesListBox.Items.Clear()

    Dim fileNames As String() =
        System.IO.Directory.GetFiles(folderPath,
            "*.xl*", System.IO.SearchOption.TopDirectoryOnly)

    For Each fileName As String In fileNames
        Dim dtFileModifiedDate As DateTime = IO.File.GetLastWriteTime(fileName)
        Dim dtCustomDate As DateTime = DateTime.ParseExact(20180401, "yyyyMMdd", Globalization.CultureInfo.InvariantCulture)
        If dtFileModifiedDate > dtCustomDate Then
            filesListBox.Items.Add(fileName)
        End If
    Next
End Sub

推荐阅读