Vb.net Textdatei einlesen, jeden Tag neuen Namen

Hallo Administratoren, ich stehe vor einen kniffligen Problem,

möchte eine .txt Datei jeden Tag an Mitarbeiter automatisch schicken, ich les die Textdatei ein, doch ich hab das Problem das diese jeden Tag nen Neuen Namen hat. Beispiel

D:\logs\log20100503-18:00.txt
Also Jahr-Monat-Tag- dann die Uhrzeit, die Uhrzeit ist immer gleich,
Heute wäre es dan log20100511-18:00.txt

So würde mein Code aussehen,

Dim FStream As New FileStream("D:\logs\log20100503-18:00.txt", FileMode.Open, _
FileAccess.Read, FileShare.Read)

Jedoch weiß ich überhaupt nicht, wie ich das ganze umsetzen kann, dass die Datei neu eingelesen wird, ich kann ja schlecht jeden tag in das script reingehen und das datum ändern.

Hat jemand eine Idee oder ein Beispiel ?

Danke schonmal

Please also mark the comments that contributed to the solution of the article

Content-Key: 142574

Url: https://administrator.de/contentid/142574

Printed on: April 18, 2024 at 10:04 o'clock

8 Comments

Latest comment

Hallo!

Bin mit VB nicht so per Du, aber Versuch mal folgendes:

datumNeu = replace(Format(Now, "yyyy.mm.dd"),".","")  

Dim FStream As New FileStream("D:\logs\log" & datumNeu & "-18:00.txt", ........  

lg
Edi

Klasse ;) echt vielen dank edi, ich hab gerade nur ein Problem bei Monat hat er 04 drin stehen wir haben aber schon 05, Datum am PC stimmt,

die variable datumneu hab ich als string deklariert, liegt da vll mein Fehler?

Freut mich, dass es funktioniert...

was das Problem mit 04 betrifft:
Was gibt er Dir denn bei Date() bzw. Now() aus?
Das sollte ja das heute Datum bzw. inkl. Uhzzeit sein...
hm...

also das bringt das aktuelle datum

Hallo!
Wenn ich Dich richtig verstehe, dann bringt

datumNeu = replace(Format(Now, "yyyy.mm.dd"),".","")

20100411
richtig?
Falls ja, was bringt

datumNeu = Format(Now, "yyyy.mm.dd")

falls nein, dann scheint der Fehler irgendwo bei

("D:\logs\log" & datumNeu & "-18:00.txt",

zu liegen...

evtl. ein Anführungszeichen vergessen oder verschoben? hm...

also wenn ich das so mache wie "datumNeu = replace(Format(Now, "yyyy.mm.dd"),".","") " hier bekomm ich als ergebnis 201024311

datumNeu = Format(Now, "yyyy.mm.dd" bringt das datum 2010.44.11

was hat der denn die ganze Zeit mit der 4 ? ich seh den Fehler nicht..