Metin Dosyası İçeriğini Silmek

[serinci]

Merhabalar,

Bir metin dosyasına bazı ayarlar için profil yapılanadırması yapıyorum, Metin Dosyasına yazdırma ve Profil ayarlarını alma konusunda bir sıkıntım mevcut değil ancak,

Profil dosyasını güncellemek için kullandığım formda Kaydet seçeneğini kullandığımda, Yeni Profil bilgileri Alt satırlara eklenmekte, benim yapmak istediğim şey ise kaydete bastığımda profil dosyasının önce içeriğinin temizlenmesi ve yeni ayarların yazılması yani metin dosyasınadaki satırların artmadan sabit kalmasını sağlamam gerekiyor,

Bunu nasıl yapabilirim.

 

[Haluk]

Merhaba;

Aşağıdaki Test1 isimli kod her çalıştırıldığında D:\TestFolder\LogFile.txt dosyasının içeriği silinir, yerine MyVar değişkeni yazılır.

Sub Test1()
    Dim MyFile As String, MyVar As String
    MyFile = "[COLOR=Red][B]D:\TestFolder\LogFile.txt[/B][/COLOR]"
    MyVar = "Merhaba"
    Open MyFile For [COLOR=Blue][B]Output [/B][/COLOR]As #1
            Print #1, MyVar
    Close #1
End Sub

Aşağıdaki Test2 isimli kod her çalıştırıldığında ise; D:\TestFolder\LogFile.txt dosyasının içeriği silinmez,dosyadaki en son satırına altına MyVar değişkeni yazılır. Çünkü, dosya Append modunda açılmaktadır. Yani dosya içindeki verileri koruyarak, güncellenmek üzere açılmaktadır. Sizin kullandığınız herhalde, bunun gibi birşey idi.

Sub Test2()
    Dim MyFile As String, MyVar As String
    MyFile = "[COLOR=Red][B]D:\TestFolder\LogFile.txt[/B][/COLOR]"
    MyVar = "Merhaba"
    Open MyFile For [COLOR=Blue][B]Append [/B][/COLOR]As #1
            Print #1, MyVar
    Close #1
End Sub