title image


Smiley Bei Beginn des neuen Tages eine neue Datei anlegen?
Hallo zusammen,



wer ist so nett und hilft mir bei folgendem Problem? Mit nachfolgendem Quelltext schreibe ich Daten in eine Datei. Ich möchte nun das aktuelle Datum mit dem Datum der Datei vergleichen und bei Ungleichheit eine neue Datei mit dem aktuellen Datum anlegen. Hat mir jemand diesbezüglich einen heißen Tipp? Besten Dank im voraus!!!



Gruß

Trabbi







Dim arr1 As Variant

Dim arr2 As Variant

Dim arr3 As Variant

Dim Zieldatei2 As String

Dim ff2 As Integer

Dim Datum As Variant

Dim Zeit As Variant

Datum = DateValue(Now)

Zeit = Format(Time, "Long Time")

Zieldatei2 = "O:\27.04.2006.txt"





arr1 = txtReadVal(0)

arr2 = txtReadVal(1)

arr3 = txtReadVal(2)



ff2 = FreeFile()

Open Zieldatei2 For Append As ff2



Print #ff2, arr1 & "," & arr2; "," & arr3; "," & Datum; "," & Zeit



'Print #ff2, arr3

Close ff2

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: