txt dosyasina tarih kaydetme

[berat01]

Merhaba arkadaslar.
Bilgisayara bir txt dosyasi kaydettim. Bu txt dosyasina bu günün tarihini nasil aktarabilirmiyim biliyormusunuz??

print #1, "31.08.2009" degil de direk isletim sisteminde kayitli olan tarihi alip yazabilecek bir komut varmi?? Örnegin assagida gösterdigim gibi son bes günün tarihlerini yazacak sekilde:
-----------------
31.08.2009:1234mm
30.08.2009:1325mm
29.08.2009:2341mm
28.08.2009:4213mm
27.08.2009:1235mm
----------------
Ve bu tarihlerin yanina da bazi sayilar girmem lazim. 31 agustos tarihinde 1234mm kumas dokundu gibi kücük bir tablo. Bu tablo yatay dikey her türlü sekilde olabilir fark etmez

Tesekkürler

 

[Orion1]

Dim tarih As String, i As Date
For i = Date - 5 To Date
    tarih = tarih & " " & i
Next i
tarih = Right(tarih, Len(tarih) - 1)
Print #1, tarih
print1 #1, "Buraya istediklerinizi yazınız."

 

[izcik]

Boş bir not defterine
.LOG
yazdığınız zaman her açılışta otomatik tarih verir

.. Ama başlık bu ama galiba soru bu değil.

 

[Orion1]

Veya dağa kestirme,

Print #1, Date - 5; Date - 4; Date - 3; Date - 2; Date - 1
Print #1, "Buraya istediklerinizi yazınız."

 

[berat01]

Cok sagolun arkadaslar
Deneyecegim hemen

 

[izcik]

Değerli Evren Gizlen ben kodları anlayamadım. Düğme haline mi getiriyoruz yoksa sadece ALT+F11 (thisworkbook) olarak mı kaydediyoruz.

 

[hamitcan]

 Const yol = "C:\test.TXT"
Sub veriler2()
    Open yol For Output As #1
    Print #1, Date - 5; Date - 4; Date - 3; Date - 2; Date - 1
    Print #1, "Buraya istediklerinizi yazınız."
    Close
End Sub

Yada,

Sub Veriler()
    Dim i As Integer

    Open yol For Output As #1
    For i = 1 To 5
        Print #1, DateSerial(Year(Date), Month(Date), Day(Date) - i); "mmm"
    Next i
    Close
End Sub

şeklinde kullanabilirsiniz.

 

[izcik]

Değerli hamitcan ikisi de hata verdi maalefesef

 

[hamitcan]

Kodu düzelttim.