TXT dosyasına yazdır

[mozdem]

Makro ile;
bir txt dosyası açmak ve içine tarih saat yazdırmak istiyorum.
eğer txt dosyası zaten var ise var olan yazının bir alt satırına o anki tarih saati yazdırmak istiyorum.

Aşağıda çalıştım ama, var olan dosyaya yazdırma işlemini yapamadım.
Yardımlarınızı bekliyorum. teşekkürler.

Option Explicit

Sub aktar()
Dim Fs As Object
Dim KapalıDosyaAd, surucu As String
Dim Klasor, dosyaadi, i, deger, Yol As String

Set Fs = CreateObject("Scripting.FileSystemObject")
Yol = "C:\Users\" & Environ("username") & "\AppData\benioku.txt"
deger = Format(Now, "dd.mm.yyyy hh:mm:ss")
'-----------------------
If Fs.FileExists(Yol) Then
    
'Buraya Nasıl Bir kod yazmalıyım ki;
'Var olan dosyanın üzerine ama içeriğini bozmadan bir alt satırına yazsın.

Else
    Open Yol For Output As #1
    Print #1, deger
    Close #1
    
 End If
'-------------------------

End Sub

 

[mozdem]

Teşekkürler

Sitede aradım ve buldum. Teşekkür ederim.

Option Explicit
Sub aktar()
Dim Fs As Object
Dim KapalıDosyaAd, surucu As String
Dim Klasor, dosyaadi, i, deger, Yol As String

Set Fs = CreateObject("Scripting.FileSystemObject")
Yol = "C:\Users\" & Environ("username") & "\AppData\benioku.txt"
deger = Format(Now, "dd.mm.yyyy hh:mm:ss")
    Open Yol For Append As #1
    Print #1, deger
    Close #1
End Sub