VBS ile txt dosyasına yazı yazdırmak

[mozdem]

Merhabalar
Aşağıdaki kodu nasıl yazmalıyım ki,
.VBS dosyasını her çalıştırdığımda "merhaba" yazısını bir alt satıra yazsın istiyorum.
teşekkürler

set fso = createobject("Scripting.filesystemobject")
set dosyam = fso.createtextfile("D:\deneme.txt", true)
dosyam.write ("Merhaba")
dosyam.close

 

[Korhan Ayhan]

Aşağıdaki kod işinize yarayabilir.

Sub Makro()
    Set Dosya_Sistemi = CreateObject("Scripting.FileSystemObject")
    
    If Dir("D:\Deneme.txt") = "" Then
        Set TXT_Dosya = Dosya_Sistemi.CreateTextFile("D:\Deneme.txt", True)
        TXT_Dosya.Write ("Merhaba")
        TXT_Dosya.Close
    Else
        Open "D:\Deneme.txt" For Input As #1
            While EOF(1) = False
                Line Input #1, Kayitli_Veri
                Veri = Veri + Kayitli_Veri & vbCrLf
            Wend
            Veri = Veri + "Merhaba"
        Close #1
    
        Open "D:\Deneme.txt" For Output As #1
            Print #1, Veri
        Close #1
    End If
    
    MsgBox "İşleminiz tamamlanmıştır."
End Sub

 

[mozdem]

Aşağıdaki kod işinize yarayabilir.

Sub Makro()
    Set Dosya_Sistemi = CreateObject("Scripting.FileSystemObject")
    
    If Dir("D:\Deneme.txt") = "" Then
        Set TXT_Dosya = Dosya_Sistemi.CreateTextFile("D:\Deneme.txt", True)
        TXT_Dosya.Write ("Merhaba")
        TXT_Dosya.Close
    Else
        Open "D:\Deneme.txt" For Input As #1
            While EOF(1) = False
                Line Input #1, Kayitli_Veri
                Veri = Veri + Kayitli_Veri & vbCrLf
            Wend
            Veri = Veri + "Merhaba"
        Close #1
    
        Open "D:\Deneme.txt" For Output As #1
            Print #1, Veri
        Close #1
    End If
    
    MsgBox "İşleminiz tamamlanmıştır."
End Sub

Cevabınız için çok teşekkür ederim. Ancak vermiş olduğunuz cevaptaki kodları Excelde çalıştırırsam oluyor. Ben ise (VBScript) VBS uzantılı dosyada çalıştırmak istiyorum.
yardımınızı bekliyorum. Teşekkür ederim

 

[Korhan Ayhan]

Aşağıdaki kodu deneyiniz.

dim filesys, filetxt
Const ForReading = 1, ForWriting = 2, ForAppending = 8
Set filesys = CreateObject("Scripting.FileSystemObject")
Set filetxt = filesys.OpenTextFile("c:\somefile.txt", ForAppending, True)
filetxt.WriteLine("Your text goes here.")
filetxt.Close

 

[mozdem]

Aşağıdaki kodu deneyiniz.

Korhan bey,Teşekkür ederim
Cevabınız kadar Hızınız da mükemmel