ASP CreateTextFile ·½·¨

¶¨ÒåºÍÓ÷¨

CreateTextFile ·½·¨ÔÚµ±Ç°Îļþ¼Ð´´½¨Ò»¸öеÄÎı¾Îļþ£¬²¢·µ»Ø¹©¶Áд´ËÎļþµÄÒ»¸ö TextStream ¶ÔÏó¡£

Óï·¨£º

FileSystemObject.CreateTextFile(filename[,overwrite[,unicode]])
FolderObject.CreateTextFile(filename[,overwrite[,unicode]])
²ÎÊý ÃèÊö
filename ±ØÐèµÄ¡£ÐèÒª´´½¨µÄÎļþµÄÃû³Æ¡£
overwrite ¿ÉÑ¡µÄ¡£Ö¸Ê¾ÊÇ·ñ¿É¸²¸ÇÒÑÓÐÎļþµÄ²¼¶ûÖµ¡£True ±íʾ¿É¸²¸Ç´ËÎļþ£¬¶ø False ±íʾ²»¿É¸²¸Ç´ËÎļþ¡£Ä¬ÈÏÊÇ True¡£
unicode ¿ÉÑ¡µÄ¡£Ö¸Ê¾ÒÔ Unicode ¸ñʽ»¹ÊÇ ASCII ¸ñʽ´´½¨Îļþ¡£True ָʾÒÔ Unicode ¸ñʽ´´½¨Îļþ£¬False ָʾÒÔ ASCII ¸ñʽ´´½¨Îļþ¡£Ä¬ÈÏÊÇ False¡£

ʵÀý

Õë¶Ô File ¶ÔÏóµÄÀý×Ó

<%
dim fs,tfile
set fs=Server.CreateObject("Scripting.FileSystemObject")
set tfile=fs.CreateTextFile("d:\somefile.txt")
tfile.WriteLine("Hello World!")
tfile.close
set tfile=nothing
set fs=nothing
%>

Õë¶Ô Folder ¶ÔÏóµÄÀý×Ó

<%
dim fs,fo,tfile
Set fs=Server.CreateObject("Scripting.FileSystemObject") 
Set fo=fs.GetFolder("d:\test") 
Set tfile=fo.CreateTextFile("somefile.txt",false)
tfile.WriteLine("Hello World!")
tfile.Close
set tfile=nothing
set fo=nothing
set fs=nothing
%>
VUE