Bestand met bepaalde naamvoorwaarden copieren werkt niet

[ExcelTonnie]

Dag allen,

Ik zit met het volgende probleem.
Dagelijks komen Txt files binnen in een bepaalde map die ik middels een makro copieer naar een locatie die niet voor anderen toegankelijk zijn.
Dit heeft gewoon gewerkt echter nu ineens niet meer en kan er niet achter komen wat het is.

De files die bijv. in de map staan hebben de volgende benamingen.
03M102022300.txt
03M102021400.txt
03M102020600.txt
03M102012300.txt
03M102011400.txt

Wanneer we uitgaan van de huidige datum 03-02-2021 dan moet die dus de bovenste 3 files copieeren.

Private Sub SolexMetingen_Click()

'SolexNDG3()
  'Hier komen de solexbestanden te staan. 
  c00 = "S:\QADeventer\Quality Data\1.Solex Nestle Files van bloktijden\"
  If Dir("S:\SolexData4\Black\Gemetendossiers\NDG3\2021\03M1" & Format(Date, "mm") & Format(Date, "dd") - 1 & "????.txt") = "" Then
        MsgBox "Niet alle metingen van NDG 3 aanwezig!", vbCritical, "Solexfiles ontbreken......."
  Else
 CreateObject("scripting.filesystemobject").CopyFile "S:\SolexData4\Black\Gemetendossiers\NDG3\2021\03M1" & Format(Date, "mm") & Format(Date, "dd") - 1 & "????.txt", c00
End If
End Sub

 

[OctaFish]

Hoe krijg je het voor elkaar om zo'n klein stukje code tóch niet in één overzichtelijk venster te krijgen . (antwoord: zet overal een zootje lege regels tussen, dan wordt de code vanzelf lang).
Als je hem eens zo probeert?

Private Sub SolexMetingen_Click()
    
    'Hier komen de solexbestanden te staan.
    c00 = "S:\QADeventer\Quality Data\1.Solex Nestle Files van bloktijden\"
    If Dir("S:\SolexData4\Black\Gemetendossiers\NDG3\2021\03M1" & Format(Date, "mm") & Format(Date, "dd") - 1 & "*.txt") = "" Then
        MsgBox "Niet alle metingen van NDG 3 aanwezig!", vbCritical, "Solexfiles ontbreken......."
    Else
        CreateObject("Scripting.Filesystemobject").CopyFile "S:\SolexData4\Black\Gemetendossiers\NDG3\2021\03M1" _
            & Format(Date, "mm") & Format(Date, "dd") - 1 & "*.txt", c00
    End If

End Sub

 

[ExcelTonnie]

Excuses voor de lege regels allemaal.
Probeer het voor mezelf wat leesbaar te maken.
Maar goed daar heb jij niets aan.

Heb jou code geprobeerd echter komt die ook terug met de melding dat "niet alle metingen van NDG 3 aanwezig".
Files zijn wel aanwezig.

 

[edmoor]

Vandaag zal hij naar 03M1022????.txt zoeken en die staat niet in je lijstje.
Controleer dus je Dir opdracht.

 

[ExcelTonnie]

Vandaag zal hij naar 03M1022????.txt zoeken en die staat niet in je lijstje.

Klopt dit wel want 03M1 staat vast en 0202 is de maand en dag (laatste 4 cijfers is de tijd) en omdat er in de opdracht -1 staat na de DD zou die toch moeten kloppen?

 

[edmoor]

Ik zou zeggen, kijk er naar in het Direct venster.

 

[snb]

Sub M_snb()
   y = DateSerial(2012, 2, 1)
   
   MsgBox Format(y, "mmdd")
   MsgBox Format(y - 1, "mmdd")
   MsgBox Format(y, "mm") & Format(y, "dd") - 1
End Sub

 

[ExcelTonnie]

Ben er even over na gaan denken wat bedoeld snb hier nu mee.
Maar was waarschijnlijk om je aan het denken te zetten.
Nou het is gelukt heren.
Dank voor jullie info/hulp.