Thursday, 26 May 2011

Text Dosyaya Yazdırma

Text Dosyaya Yazdırma

Text dosyasına istediğiniz veriyi girebilir. Veri depolama işlemlerinizi bu şekilde kolaylıkla halledebilirsiniz.

<center>ÖRNEK</center>
<%
'-- Öncelikle FileSystemObject nesnesi DosyaNesnesi isimli değişkene aktarıldı.
Set DosyaNesnesi=CreateObject("Scripting.FileSystemObject")
'-- Server'ın kök klasörü altında ornek.txt isimli dosya açıldı.
Set Dosya=DosyaNesnesi.OpenTextFile(server.mappath("\ornek.txt"),1,False,False)
'-- ornek.txt içerisine Merhaba yazılı bir satır ekler.
Dosya.writeLine("Merhaba")
'-- Dosya değişkeni server'ın belleğinden atıldı.
Dosya.close
'-- DosyaNesnesi değişkeni server'ın belleğinden atıldı.
Set Dosya=Nothing
Set DosyaNesnesi=Nothing
%>

0 comments: