如何获得文件夹中与当天日期相同的文件名称？

[亚细亚]

如文件夹中有如下文件,格式为：yyyymmddhhmm
200904240812.dbf
200904240935.dbf
200904250043.dbf
200904251312.dbf
200904252032.dbf
200904252032.dbf
200904260208.dbf
200904260620.dbf
200904261213.dbf

如何获得与今天日期相同的文件：
200904260208.dbf
200904260620.dbf
200904261213.dbf

[vbman2003]

Private Sub Command1_Click()
    
    Debug.Print TestFileName("200904260208.dbf")
    Debug.Print TestFileName("200904260620.dbf")
    Debug.Print TestFileName("200904261213.dbf")

    Debug.Print TestFileName("200901261213.dbf")
End Sub

Function TestFileName(ByVal fName As String) As Boolean
    
    fName = Format(Left(fName, 8), "####-##-##")
    TestFileName = (CDate(fName) = Date)
    
End Function

[goosen]

  Dim item As Object
  Dim fso As Object
  Dim t As Object
Private Sub Command1_Click()
 Dim sFile As String
  Set fso = CreateObject("scripting.filesystemobject")
  Set t = fso.getfolder("c:\TempEI4")              '你的文件夹
      Text1.Text = ""
      sFile = Format(Now, ("yyyymmddhhmm")) & ".dbf"
        For Each item In t.Files
        
        If Mid(sFile, 1, 8) = Mid(item.Name, 1, 8) Then
          Text1.Text = Text1.Text & item.Name
          End If
  Next

End Sub

[舉杯邀明月]

参考一下我的这段代码：

Sub FileFiter()
    Dim strToday$, strTemp$
    Dim strPath$
    strPath = "X:\Temp"    '你要获取文件的路径
    strToday = Format$(Now(), "yyyymmdd")
    strTemp = Dir$(strPath & "\*.*")
    While (Len(strTemp) > 0)
        If (Left$(strTemp, 8) = strToday) Then
            Debug.Print strTemp
        End If
        strTemp = Dir$()
    Wend
End Sub

[舉杯邀明月]

如果你只需要 .dbf 文件，把：
strTemp = Dir$(strPath & "\*.*")
改成：
strTemp = Dir$(strPath & "\*.dbf")

[zhaozidong86]

up

[SYSSZ]

Private Sub Form_Load()
Dim FileNames As String
FileNames = Dir("c:\123\", vbNormal)
Do While FileNames <> ""
If LCase(Right(Trim(FileNames), 3)) = "dbf" And Left(Trim(FileNames), 8) = "20090426" Then
List1.AddItem FileNames
End If
FileNames = Dir
Loop
End Sub