实例一：写入文件 
语法 

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 [复制路经], [粘贴路经][,如存在，是否替代]

<%@Language="vbscript" Codepage="65001"%> 
<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
<!--如果路径中包含汉字，一定要加上上面两行代码-->
<% 
Set fs = Server.CreateObject("Scripting.FileSystemObject")   
fs.CopyFile "f:\张\ss.txt","f:\张\bb.txt",True    '用fs的CopyFile方法复制文件 
%>

实例三：复制文件夹 
语法 
object.CopyFolder [复制路经], [粘贴路经][,如存在，是否替代] 

<%@Language="vbscript" Codepage="65001"%> 
<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
<!--如果路径中包含汉字，一定要加上上面两行代码-->
<% 
Set fs = Server.CreateObject("Scripting.FileSystemObject")   
fs.CopyFolder "f:\哈哈","f:\呵呵",True    '用fs的CopyFolder方法复制文件夹 
'文件夹里所有的东西都会被复制过去
%>

实例四：创建文件夹 
语法 
object.CreateFolder([文件]) 
如果文件夹已存在，再创建的话，会提示文件夹已存在

<%@Language="vbscript" Codepage="65001"%> 
<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
<!--如果路径中包含汉字，一定要加上上面两行代码-->
<%
Set fs =Server.CreateObject("Scripting.FileSystemObject")
fs.CreateFolder "f:\呵呵"   '用fs的GreateFolder方法创建文件夹 
%>

实例五：删除文件 
语法 
object.DeleteFile [路经][,force]如果要删除只读文件，则force值为True；否则为False（默认）。

删除只读文件，force值为false时，会提示“没有权限”

<% 
Set fs = Server.CreateObject("Scripting.FileSystemObject")   
fs.DeleteFile "f:\ss.txt",true    '用fs的DeleteFile方法删除文件 
%>

实例六：删除文件夹 
语法 
object.DeleteFile [路经][,force] 如果要删除只读文件夹，则force值为 True；否则为 False（默认）。 

<%@Language="vbscript" Codepage="65001"%> 
<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
<!--如果路径中包含汉字，一定要加上上面两行代码-->
<% 
Set fs = Server.CreateObject("Scripting.FileSystemObject")   
fs.DeleteFolder "f:\呵呵",true    '用fs的DeleteFolder方法删除文件夹 
%> 

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

<% 
Set fs =Server.CreateObject("Scripting.FileSystemObject")
fs.MoveFile "f:\ss.txt","f:\bb.txt"    '用fs的MoveFile方法移动文件 
%>

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

<% 
Set fs =Server.CreateObject("Scripting.FileSystemObject")
fs.MoveFolder "f:\haha","f:\hehe"    '用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("f:\hehe\bb.txt")   '用fs的FileExists查找文件 
response.write a 
%>

实例十一：查看文件夹是否存在 
语法 
object.FolderExists([文件夹路经])   
如果指定的文件夹存在，则返回 True；否则返回 False。

<% 
dim a 
Set fs = Server.CreateObject("Scripting.FileSystemObject")
a=fs.FolderExists("f:\hehe")   '用fs的FolderExists查找文件夹 
response.write a 
%> 

实例十二：读取文件 
语法 
object.OpenTextFile([文件路经],[打开类型]) //默认是只读打开

<% 
dim a 
Set fs = Server.CreateObject("Scripting.FileSystemObject") 
Set a=fs.OpenTextFile("f:\hehe\bb.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("f:\hehe\bb.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("f:\hehe\bb.txt",2,true)   'true 如果文件不存在就自动建立
a.WriteLine("我的文件写入") 
a.close 
set fs=nothing 
%>