<p>ASP文件操作(FSO)详解<br />
实例一：写入文件<br />
语法<br />
object.CreateTextFile([要建立的文件],[如存在，是否替代])<br />
<%<br />
Set fs<br />
=Server.CreateObject("Scripting.FileSystemObject") <br />
Set a =<br />
fs.CreateTextFile(server.MapPath("ss.txt"), True) <br />
’a =<br />
fs.CreateTextFile("e:\web\testfile.txt", True)<br />
a.WriteLine("我的文件写入")<br />
a.Close ’关掉a文件<br />
%></p>
<p><br />
实例二：复制文件<br />
语法<br />
object.CopyFile [复制路经], [粘贴路经][,<br />
如存在，是否替代]<br />
<%<br />
Set fs<br />
=Server.CreateObject("Scripting.FileSystemObject") <br />
fs.CopyFile<br />
"d:\ss.txt","e:\bb.txt",True ’用fs的CopyFile方法复制文件<br />
%></p>
<p><br />
实例三：复制文件夹<br />
语法<br />
object.CopyFolder [复制路经], [粘贴路经][,<br />
如存在，是否替代]<br />
<%<br />
Set fs<br />
=Server.CreateObject("Scripting.FileSystemObject") <br />
fs.CopyFolder<br />
"d:\哈哈","e:\呵呵",True ’用fs的CopyFolder方法复制文件夹<br />
%></p>
<p><br />
实例四：创建文件夹<br />
语法<br />
object.CreateFolder([文件])<br />
<%</p>
<p>Set fs =Server.CreateObject("Scripting.FileSystemObject") </p>
<p>fs.CreateFolder ("e:\呵呵",true) ’用fs的GreateFolder方法创建文件夹<br />
%></p>
<p><br />
实例五：删除文件<br />
语法<br />
object.DeleteFile [路经][, force] <br />
如果要删除只读文件，则force值为 True；否则为 False（默认）。<br />
<%<br />
Set fs<br />
=Server.CreateObject("Scripting.FileSystemObject") <br />
fs.DeleteFile<br />
"e:\ss.txt",true ’用fs的DeleteFile方法删除文件<br />
%></p>
<p><br />
实例六：删除文件夹<br />
语法<br />
object.DeleteFile [路经][, force] 如果要删除只读文件夹，则force值为 True；否则为 False（默认）。<br />
<%<br />
Set fs<br />
=Server.CreateObject("Scripting.FileSystemObject") <br />
fs.DeleteFolder<br />
"e:\呵呵",true ’用fs的DeleteFolder方法删除文件夹<br />
%></p>
<p><br />
实例七：移动文件<br />
语法<br />
object.MoveFile [路经],[移到路经]</p>
<p><%<br />
Set fs =Server.CreateObject("Scripting.FileSystemObject") </p>
<p>fs.MoveFile "D:\ss.txt","E:\bb.txt" ’用fs的MoveFile方法移动文件<br />
%></p>
<p><br />
实例七：移动文件夹<br />
语法<br />
object.MoveFolder [路经],[移到路经]</p>
<p><%<br />
Set fs =Server.CreateObject("Scripting.FileSystemObject") </p>
<p>fs.MoveFolder "D:\哈哈","E:\呵呵" ’用fs的MoveFolder方法移动文件夹<br />
%></p>
<p><br />
实例八：查看驱动器是否存在<br />
语法<br />
object.DriveExists([驱动器路径]) <br />
如果指定的驱动器存在，则返回 True；否则返回 False。<br />
<%<br />
dim a<br />
Set fs<br />
=Server.CreateObject("Scripting.FileSystemObject") <br />
a=fs.DriveExists("D:") ’用fs的DriveExists查找驱动器<br />
response.write a<br />
%></p>
<p>实例九：查看文件是否存在<br />
语法</p>
<p>object.FileExists([文件路经]) 如果指定的文件存在，则返回 True；否则返回 False。<br />
<%<br />
dim<br />
a<br />
Set fs =Server.CreateObject("Scripting.FileSystemObject")</p>
<p>a=fs.FileExists("D:\哈哈\ss.txt") ’用fs的FileExists查找文件<br />
response.write a<br />
%></p>
<p><br />
实例十：查看文件夹是否存在<br />
语法<br />
object.FolderExists([文件夹路经]) <br />
如果指定的文件夹存在，则返回 True；否则返回 False。<br />
<%<br />
dim a<br />
Set fs<br />
=Server.CreateObject("Scripting.FileSystemObject")</p>
<p>a=fs.FolderExists("D:\哈哈") ’用fs的FolderExists查找文件夹<br />
response.write a</p>
<p>%></p>
<p>实例十一：读取文件<br />
语法</p>
<p>object.OpenTextFile([文件路经],[打开类型]) //默认是只读打开<br />
<%<br />
dim a<br />
Set fs<br />
=Server.CreateObject("Scripting.FileSystemObject")<br />
Set<br />
a=fs.OpenTextFile("D:\哈哈\ss.txt")<br />
do while not a.AtEndOfStream <br />
’判断是否读到文件最后一行<br />
response.write a.readLine & "<br>" ’读取文件逐行输出</p>
<p>loop<br />
a.close<br />
set fs=nothing<br />
%></p>
<p><br />
实例十二：追加记录<br />
语法</p>
<p>object.OpenTextFile([文件路经],[打开类型][,如果文件不存在，是否自动建立])<br />
<%<br />
dim a</p>
<p>Set fs =Server.CreateObject("Scripting.FileSystemObject")<br />
Set<br />
a=fs.OpenTextFile("D:\哈哈\ss.txt",8,true) ’true 带表如果文件不存在就自动建立</p>
<p>a.WriteLine("我的文件写入")<br />
a.close<br />
set fs=nothing<br />
%></p>
<p><br />
实例十三：修改<br />
语法</p>
<p>object.OpenTextFile([文件路经],[打开类型][,如果文件不存在，是否自动建立])<br />
<%<br />
dim a</p>
<p>Set fs =Server.CreateObject("Scripting.FileSystemObject") ’用Server创建一个<br />
FSO Set a=fs.OpenTextFile("D:\哈哈\ss.txt",2,true) ’true 如果文件不存在就自动建立</p>
<p>a.WriteLine("我的文件写入")<br />
a.close<br />
set fs=nothing<br />
%></p>