列出文件夹内的所有文件或子文件夹
<%
Dim objFSO, objFolder, objFile
Set objFSO = Server.CreateObject(\
If objFSO.FolderExists(Server.MapPath(\
Set objFolder = objFSO.GetFolder(Server.MapPath(\ For Each objFile in objFolder.Files
Response.Write objFile.Name & \ Next Else
Response.Write \文件夹不存在无法显示内含的文件\ End If
Set objFolder = Nothing Set objFSO = Nothing %>
文件的建立、移动、重命名、删除和复制
（1）
<%
Dim objFSO
Set objFSO = Server.CreateObject(\ objFSO.CreateTextFile(Server.MapPath(\ Set objFSO = Nothing %> (2)
<%
Dim objFSO
Set objFSO = Server.CreateObject(\
If objFSO.FileExists(Server.MapPath(\
objFSO.MoveFile Server.MapPath(\Server.MapPath(\ Else
Response.Write \文件不存在无法进行移动\ End If
Set objFSO = Nothing %> (3)
<%
Dim objFSO
Set objFSO = Server.CreateObject(\
If objFSO.FileExists(Server.MapPath(\ objFSO.DeleteFile Server.MapPath(\ Else
Response.Write \文件不存在无法进行删除\ End If
Set objFSO = Nothing %>
取得文件的父文件夹路径、特殊文件夹路径、大小、属性、类型和日期信息
例：
<%
Dim objFSO, objFile
Set objFSO = Server.CreateObject(\
If objFSO.FileExists(Server.MapPath(\ Set objFile = objFSO.GetFile(Server.MapPath(\
Response.Write \文件夹的路径：\ Response.Write \文件夹的建立日期：\& \
Response.Write \文件夹的大小：\ Response.Write \文件夹的类型：\ Else
Response.Write \文件不存在无法显示相关信息\ End If
Set objFile = Nothing '释放File对象
Set objFSO = Nothing '释放FileSystemObject对象 %>
文件的打开、读取和写入
objFSO.OpenTextFile(filename,iomode,create,format)
iomode:为文字文件的打开方式，1－只读；2－可写（清除文字文件的原始内容）；3－表示附加到文字文件的后面（不清除文字文件的原始内容），默认值为“1”； create：表示文字文件不在时，是否要加以建立；默认值是：false
format：为文字文件的格式：1－文本；0－ASCII ;2－默认（一般不用）
从文件读取NUM个字符
例：
<%Dim objFSO, objTS, Chars
Set objFSO = Server.CreateObject(\ Set objTS = objFSO.OpenTextFile(Server.MapPath(\1)
Do While Not objTS.AtEndOfStream '检查是否到达文件结尾 Chars = objTS.Read(6) '读取6个字符，再指派给字符串变量Chars
Response.Write Chars & \ '输出Chars的值和强制换行标记
Loop
objTS.Close '关闭已打开的文件
Set objTS = Nothing '释放TextStream对象案例
Set objFSO = Nothing '释放FileSystemObject对象案例 %>
从文件读取一行
objTS.ResdLine
例：
<%
Dim objFSO, objTS, ALine
Set objFSO = Server.CreateObject(\ Set objTS = objFSO.OpenTextFile(Server.MapPath(\1)
Do While Not objTS.AtEndOfStream '检查是否到达文件结尾 ALine = objTS.ReadLine '读取一行，再指派给字符串变量Aline
Response.Write ALine '输出Aline的值 Response.Write \ '输出强制换行标记 Loop
objTS.Close '关闭已打开的文件 Set objTS = Nothing '释放TexStream对象
Set objFSO = Nothing '释放FileSystemObject对象 %>
从文件读取全部内容
<%
Dim objFSO, objTS, AllLines, Result
Set objFSO = Server.CreateObject(\ Set objTS = objFSO.OpenTextFile(Server.MapPath(\1)
'在读取文件内容之前先使用If语句检查是否到达文件结尾
If Not objTS.AtEndOfStream Then '读取全部内容，再指派给字符串变量AllLines
AllLines = objTS.ReadAll '使用Replace函数将字符串变量中的换行字符置换成强制换行标记
Result = Replace(AllLines, vbCrLf, \ Response.Write Result End If
objTS.Close '关闭已打开的文件 Set objTS = Nothing '释放TextStream对象
Set objFSO = Nothing '释放FileSystemObject对象 %>
写入文件
例：
<%
Dim objFSO, objTS, AllLines, Result
Set objFSO = Server.CreateObject(\ Set objTS = objFSO.OpenTextFile(Server.MapPath(\2, True)
'以只写模式打开Sample3.txt，若文件不存在，便建立 objTS.Write(\您学习电脑的最佳伙伴——\ objTS.WriteLine(\快快乐乐学系列\ objTS.WriteBlankLines(\
objTS.WriteLine(\◎E时代网页设计\
objTS.WriteLine(\◎Linux最新版快速入门\ objTS.WriteLine(\◎Flash 5.0网页高手\
objTS.WriteLine(\◎ASP与网页数据库设计\ objTS.Close '关闭已打开的文件 Set objTS = Nothing '释放TextStream对象
Set objFSO = Nothing '释放FileSystemObject对象 %>
作业
(1) 删除只读文件夹(Deletefolder path,Foece)force为TRUE表示删除只读
文件夹。
(2) 拷贝文件重命名
(3) 打开一个文件，一次读取一行，写入另一个文件
(4) 打开文件，一次读取一个字符，转换成大写字母写入另一个文件