Duyuruyu Kapat
Facebook Gözat
Twitter Gözat

Fso ile txt dosyasına ardışık kayıt yapmak

Konu, 'ASP' kısmında gsyaso tarafından paylaşıldı.

  1. gsyaso

    gsyaso Üye

    Kayıt:
    21 Haziran 2004
    Mesajlar:
    28
    Beğenilen Mesajlar:
    0
    <%
    on error resume next
    set fso = createobject("scripting.filesystemobject")
    set act = fso.opentextfile(server.mappath("say.txt"))
    counter = clng(act.readline)
    counter = counter + 1
    act.close
    Set act = fso.CreateTextFile(server.mappath("say.txt"), true)
    act.WriteLine counter
    act.WriteLine date()
    act.WriteLine Request.ServerVariables("REMOTE_ADDR")
    act.Close
    set act = nothing
    set fso = nothing
    %>

    txt dosyasına yazdırıyorum fakat. bir önce ki kaydın üzerine değil altına yeni bir kayıt yapmak istiyorum.

    1
    11.06.2008
    85.16.255.12
    ----------------------
    2
    11.06.2008
    85.16.255.12

    gibi :) yardımınız için şimdiden teşekkürler.
     
  2. merakli

    merakli Daimi Üye

    Kayıt:
    28 Şubat 2007
    Mesajlar:
    2,004
    Beğenilen Mesajlar:
    1
  3. gsyaso

    gsyaso Üye

    Kayıt:
    21 Haziran 2004
    Mesajlar:
    28
    Beğenilen Mesajlar:
    0
    teşekkürler ama aradığım şeyi orada bulamadım
     
  4. her_mes

    her_mes Aktif Üye

    Kayıt:
    8 Nisan 2007
    Mesajlar:
    355
    Beğenilen Mesajlar:
    0
    Şehir:
    Girne-KKTC
    Aşağıdaki kodu deneyebilirsin. az önce yazdım ve denedim. sorunsuz çalışıyor
    Kod:
    <%
    dim Tarih, Isim
    Set FSOIslemlerim = CreateObject("Scripting.FileSystemObject")
    Tarih = now()
    Isim = "her_mes"
    set objLogFile = FSOIslemlerim.GetFile("c:\inetpub\wwwroot\log.txt")
    set objLogwrite = objLogFile.OpenAsTextStream(8,0)
    objLogwrite.WriteLine(Tarih & " - " & Isim)
    objLogwrite.close
    set objLogwrite = nothing
    set FSOIslemlerim = nothing
    %>