ASP文件操作(FSO)详解

实例一：写入文件 
语法 

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

a.Close                              ’关掉a文件 
%> 


实例二：复制文件 
语法 
object.CopyFile [复制路经], [粘贴路经][, 
如存在，是否替代] 
<% 
Set fs 
=Server.CreateObject("Scripting.FileSystemObject")   
fs.CopyFile 
"d:\ss.txt","e:\bb.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:\bb.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 
%>