CreateTextFile

CreateTextFile
CreateTextFile

İstediğiniz dizinde adını belirleyebileceğiniz, içine yazı da yazabileceğimiz bir text dosyası yaratmamızı sağlar. Vereceğimiz örnekte yaratılacak text dosyasının uzantısını .txt olarak belirledik siz bunu .asp,.inc,.aspx vs.. olarak ta yapabilirsiniz hatta yarattığınız dosyanın içine asp kodları da yazdırabilirsiniz.

<%
Dim Dosya, Yazi
Set Dosya=CreateObject ("Scripting.FileSystemObject")
Set Yazi = Dosya.CreateTextFile ("c: netpubwwwroot spDeneme.txt", true)
Yazi.WriteLine ("ASPnedir?com - deneme mesajı.")
Yazi.WriteLine ("ASP ile text dosyasına mesaj yazdırıyoruz")
Yazi.Close
%>
Bu kodu yazıp çalıştırırsanız, belirlediğiniz dizinde Deneme.txt isminde bir yazı dosyası yaratılır. Ve içine bizim yazdırdığımız mesajlar yazılır.

Kodları denerken dikkat etmeniz gereken klasörün yolunu doğru vermektir.