ASP文件操作(FSO)详解

实例一：写入文件
语法

object.CreateTextFile([要建立的文件],[如存在，是否替代])
<%
Set fs
=Server.CreateObject("Scripting.FileSystemObject")  
Set a =
fs.CreateTextFile(server.MapPath("ss.txt"), True)  
’a =
fs.CreateTextFile("e:web estfile.txt", True)
a.WriteLine("我的文件写入")

a.Close                              ’关掉a文件
%>


实例二：复制文件
语法
object.CopyFile [复制路经], [粘贴路经][,
如存在，是否替代]
<%
Set fs
=Server.CreateObject("Scripting.FileSystemObject")  
fs.CopyFile
"d:ss.txt","e:b.txt",True    ’用fs的CopyFile方法复制文件
%>

实例三：复制文件夹
语法
object.CopyFolder [复制路经], [粘贴路经][,
如存在，是否替代]
<%
Set fs
=Server.CreateObject("Scripting.FileSystemObject")  
fs.CopyFolder
"d:哈哈","e:呵呵",True    ’用fs的CopyFolder方法复制文件夹
%>

实例四：创建文件夹
语法
object.CreateFolder([文件])
<%

Set fs =Server.CreateObject("Scripting.FileSystemObject")  

fs.CreateFolder ("e:呵呵",true)    ’用fs的GreateFolder方法创建文件夹
%>


实例五：删除文件
语法
object.DeleteFile [路经][, force]  
如果要删除只读文件，则force值为 True；否则为 False（默认）。
<%
Set fs
=Server.CreateObject("Scripting.FileSystemObject")  
fs.DeleteFile
"e:ss.txt",true    ’用fs的DeleteFile方法删除文件
%>


实例六：删除文件夹
语法
object.DeleteFile [路经][, force] 如果要删除只读文件夹，则force值为 True；否则为 False（默认）。
<%
Set fs
=Server.CreateObject("Scripting.FileSystemObject")  
fs.DeleteFolder
"e:呵呵",true    ’用fs的DeleteFolder方法删除文件夹
%>


实例七：移动文件
语法
object.MoveFile [路经],[移到路经]

<%
Set fs =Server.CreateObject("Scripting.FileSystemObject")  

fs.MoveFile "D:ss.txt","E:b.txt"    ’用fs的MoveFile方法移动文件
%>


实例七：移动文件夹
语法
object.MoveFolder [路经],[移到路经]

<%
Set fs =Server.CreateObject("Scripting.FileSystemObject")  

fs.MoveFolder "D:哈哈","E:呵呵"    ’用fs的MoveFolder方法移动文件夹
%>


实例八：查看驱动器是否存在
语法
object.DriveExists([驱动器路径])  
如果指定的驱动器存在，则返回 True；否则返回 False。
<%
dim a
Set fs
=Server.CreateObject("Scripting.FileSystemObject")  

a=fs.DriveExists("D:")   ’用fs的DriveExists查找驱动器
response.write a

%>

实例九：查看文件是否存在
语法

object.FileExists([文件路经])   如果指定的文件存在，则返回 True；否则返回 False。
<%
dim
a
Set fs =Server.CreateObject("Scripting.FileSystemObject")

a=fs.FileExists("D:哈哈ss.txt")   ’用fs的FileExists查找文件
response.write a

%>

实例十：查看文件夹是否存在
语法
object.FolderExists([文件夹路经])  
如果指定的文件夹存在，则返回 True；否则返回 False。
<%
dim a
Set fs
=Server.CreateObject("Scripting.FileSystemObject")

a=fs.FolderExists("D:哈哈")   ’用fs的FolderExists查找文件夹
response.write a

%>

实例十一：读取文件
语法

object.OpenTextFile([文件路经],[打开类型]) //默认是只读打开
<%
dim a
Set fs
=Server.CreateObject("Scripting.FileSystemObject")
Set
a=fs.OpenTextFile("D:哈哈ss.txt")
do while not a.AtEndOfStream    
’判断是否读到文件最后一行
response.write a.readLine & "<br>"    ’读取文件逐行输出

loop
a.close
set fs=nothing
%>


实例十二：追加记录
语法

object.OpenTextFile([文件路经],[打开类型][,如果文件不存在，是否自动建立])
<%
dim a

Set fs =Server.CreateObject("Scripting.FileSystemObject")
Set
a=fs.OpenTextFile("D:哈哈ss.txt",8,true)   ’true 带表如果文件不存在就自动建立

a.WriteLine("我的文件写入")
a.close
set fs=nothing
%>


实例十三：修改
语法

object.OpenTextFile([文件路经],[打开类型][,如果文件不存在，是否自动建立])
<%
dim a

Set fs =Server.CreateObject("Scripting.FileSystemObject")    ’用Server创建一个
FSO Set a=fs.OpenTextFile("D:哈哈ss.txt",2,true)   ’true 如果文件不存在就自动建立

a.WriteLine("我的文件写入")
a.close
set fs=nothing
%>