check a block of files in dir

[sal21]

....
501-L0_04-03-2013
502-L0_04-03-2013
504-L0_04-03-2013
505-L0_04-03-2013
501-L0_06-03-2013
502-L0_06-03-2013
504-L0_06-03-2013
505-L0_06-03-2013
...
I have in a c:\dir1\ the txt files in list.

based 50X-L0_ and date is possible if the "poker" ( )of file are exactlly a block of for????

501-L0_06-03-2013
502-L0_06-03-2013
504-L0_06-03-2013
505-L0_06-03-2013

this poker of file is ok

501-L0_06-03-2013
502-L0_06-03-2013
505-L0_06-03-2013

This is a tris not a poker of file.... the file 504-L0_06-03-2013 not present in poker

[HansV]

Does this do what you want? You'll have to complete the code yourself.

Code: Select all

Sub CheckBlock()
    Dim strPrefix As String
    Dim dtmDate As Date
    Dim strDate As String
    Dim strFolder As String
    Dim strFile As String
    Dim lngCount As Long

    strFolder = "C:\Dir1\"
    strPrefix = "50?-L0_"
    dtmDate = Date ' or DateSerial(2013,3,4) or ...
    strDate = Format(dtmDate, "dd\-mm\-yyyy")

    strFile = Dir(strFolder & strPrefix & strDate & ".txt")
    Do While strFile <> ""
        lngCount = lngCount + 1
        strFile = Dir
    Loop
    If lngCount = 4 Then
        ' We have 4 files matching the pattern
    Else
        ' We have a different number
    End If
End Sub

[sal21]

Does this do what you want? You'll have to complete the code yourself.

Code: Select all

Sub CheckBlock()
    Dim strPrefix As String
    Dim dtmDate As Date
    Dim strDate As String
    Dim strFolder As String
    Dim strFile As String
    Dim lngCount As Long

    strFolder = "C:\Dir1\"
    strPrefix = "50?-L0_"
    dtmDate = Date ' or DateSerial(2013,3,4) or ...
    strDate = Format(dtmDate, "dd\-mm\-yyyy")

    strFile = Dir(strFolder & strPrefix & strDate & ".txt")
    Do While strFile <> ""
        lngCount = lngCount + 1
        strFile = Dir
    Loop
    If lngCount = 4 Then
        ' We have 4 files matching the pattern
    Else
        ' We have a different number
    End If
End Sub

are you a magician?

[sal21]

Does this do what you want? You'll have to complete the code yourself.

Code: Select all

Sub CheckBlock()
    Dim strPrefix As String
    Dim dtmDate As Date
    Dim strDate As String
    Dim strFolder As String
    Dim strFile As String
    Dim lngCount As Long

    strFolder = "C:\Dir1\"
    strPrefix = "50?-L0_"
    dtmDate = Date ' or DateSerial(2013,3,4) or ...
    strDate = Format(dtmDate, "dd\-mm\-yyyy")

    strFile = Dir(strFolder & strPrefix & strDate & ".txt")
    Do While strFile <> ""
        lngCount = lngCount + 1
        strFile = Dir
    Loop
    If lngCount = 4 Then
        ' We have 4 files matching the pattern
    Else
        ' We have a different number
    End If
End Sub

to understand ? is similar the *, or not?

[HansV]

? stands for a single character, * for any number of characters.

So "S?l" matches "Sal" and "Sol" and "Sql", but not "Sail", nor "Strudel".
On the other hand, "S*l" matches "Sal" and "Sail" and "Sl" and "S456l".

[sal21]

? stands for a single character, * for any number of characters.

So "S?l" matches "Sal" and "Sol" and "Sql", but not "Sail", nor "Strudel".
On the other hand, "S*l" matches "Sal" and "Sail" and "Sl" and "S456l".

NICE EXPLAIN... TKS.