VB6拿到序号后,检查连续三天的文件夹里面是否有相同序号，可以实现吗？

老师，您好,可能是我没太描述清楚,谢谢！
      ：1,连续检测三天,（例如：今天是2021-11-18,那就要检查2021-11-16，2021-11-17，2021-11-18的文件夹，）
        2,text1.text里面输入进去序号后,每天会新建一个文件夹,是以当天的日期命名。（已完成）
          文件夹里面就是输入进去的序号，例如：123456789.txt.(已完成)
        
       问题点:在任何时候输入序号进去（例如输入：3456789）,就去这三天里面寻找3456789.txt，如有就提示。
      
        例如：以当天（包含当天）2021-11-16，2021-11-17，2021-11-18
                                2021-11-17，2021-11-18，2021-11-19
                                2021-11-18，2021-11-19，2021-11-20
                                ...

'-----每天新加一个以当天日期为文件夹名的文件夹，
   
    Dim curDir As String '定义文件夹目录名
    curDir = "C:\result\" & Format$(Now, "YYYY-MM-DD") & "\" '以年月日 组成文件夹名称
    '判断该文件夹是否存在,不存在就新建
    If Len(Dir$(curDir, vbDirectory)) = 0 Then
    MkDir curDir
    End If
'--------------------------------------------------
'    Open "C:\result\curDir\.txt" For Output As #1     '打开XXX路径的XXX文件（双引号里表示文件位置和文件名）
'    Print #1, Txt_scan.Text     '写入Text1的Text内容
'    Close #1     '关闭
   
    sFile = curDir
    sPath = curDir '文件路徑存在sPath裡面
    sFile = sPath & "\" & Txt_scan.Text & ".txt"
    Open sFile For Output As #1 'Aspend Append才是附加写入
      Print #1, Txt_scan.Text
    Close #1

    strDir = Format(DateAdd("d", -3, Now()), "yyyy-mm-dd")

        
    '
    Shell ("C:\SM100\jig0.bat")
     'List1.AddItem "2,通知列印OK...！" ', 0 '用作狀態顯示
    Txt_scan.Text = ""

End Sub

学习了!
小白路过!