如何获取今天更新的文件列表？ 。网

Question

我在 FTP 服务器中有数千个文件，我可以使用 Windows 资源管理器进行连接。日复一日，晚上，我必须找到今天更改（上传）的文件并取他们的名字。 我想开发一个 Visual Basic 批处理应用程序，只需运行带有参数（日期）的 EXE，就可以获取这些文件的名称列表。

最近我在这里找到了这段代码：

source = "\\ftp_my\Upload\"
searchfor = "*"
Dim dirs As String() = Directory.GetFiles(source, searchfor)
For Each file In dirs
    fileinfo = New FileInfo(file)
    If (fileinfo.LastWriteTime >= DateAdd(DateInterval.Day, -1, Date.Today)) Then
        'execute my actions
    End If
Next

但是列出所有文件并评估它们的属性需要花费难以置信的时间。另一方面，如果我只是创建一个“目录”，导出到 excel，拆分文本并手动评估我想要的日期/文件，我比 VB 更早地完成了这项研究！

因此应该有一个命令在合理的时间内列出按日期 DESC 排序的文件，是吗？

Answer 1

我注意到有几件事会减慢您的迭代速度。

您将每个文件名转换为一个 fileinfo 对象，而不是使用 fileinfo 对象的集合。

您正在为每个文件计算要检查的目标日期，而不是计算一次。

这是一种使用 LINQ 执行所需操作的方法，该方法可以在不到 5 秒的时间内在映射的网络驱动器上找到 1000 个文件（最坏的情况）：

    Dim source = New DirectoryInfo("\\ftp_my\Upload\")
    Dim searchfor = "*"
    Dim TargetDate = DateAdd(DateInterval.Day, -1, Date.Today)
    Dim dirs = (From f As FileInfo In source.GetFiles(searchfor)
                Where f.CreationTime >= TargetDate
                Select f).ToList

dirs 将包含您要定位的每个文件的所有 fileinfo 对象。

如果遍历目录并完成对每个文件的操作需要很长时间，那么这将告诉您时间花费在哪里，您可以开始查看该代码并开始优化它以减少时间。