Question

我正在尝试打开属于日期范围的文件夹中的所有文件。

这是我到目前为止使用的：这将打开文件夹中的所有文件。但即使我放了一个“标记”，所以我不打开我不需要的文件，我需要更先进的技术......

        Dim sFname As String

        Dim MyFiles() As String
        MyFiles = System.IO.Directory.GetFiles(path, "*_x" & "*.xlsx", IO.SearchOption.AllDirectories)


        For Each sFname In myFiles

        'And the code to open the files in excel.

我从这开始：DateTimePicker1.Value作为开始日期，Picker2作为结束日期。

    Dim STDate As String
    STDate = DateTimePicker1.Value

    Dim EnDate As String
    EnDate = DateTimePicker2.Value

我搜索了几个小时，但没有找到任何有用的东西......

请帮忙。

Answer 1

For Each filePath In Directory.GetFiles("*.xlsx").
                               Where(Function(s) File.GetCreationTime(s) >= startTime AndAlso
                                                 File.GetCreationTime(s) <= endTime)
    'Use filePath here.
Next

或

For Each info In New DirectoryInfo(folderPath).GetFiles("*.xlsx").
                                               Where(Function(fi) fi.CreationTime >= startTime AndAlso
                                                                  fi.CreationTime <= endTime)
    Dim filePath = info.FullName

    'Use filePath here.
Next

打开“开始日期”中的所有文件。结束日期。

1 个答案: