实例一:写入文件
语法
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
%>
FSO 不能操作二进制文件,要操作二进制文件,请使用:ADODB.Stream。
创建文件
dim fso, f
set fso = server.CreateObject("Scripting.FileSystemObject")
set f = fso.CreateTextFile("C:\test.txt", true) '第二个参数表示目标文件存在时是否覆盖
f.Write("写入内容")
f.WriteLine("写入内容并换行")
f.WriteBlankLines(3) '写入三个空白行(相当于在文本编辑器中按三次回车)
f.Close()
set f = nothing
set fso = nothing
打开并读文件
dim fso, f
set fso = server.CreateObject("Scripting.FileSystemObject")
set f = fso.OpenTextFile("C:\test.txt", 1, false) '第二个参数 1 表示只读打开,第三个参数表示目标文件不存在时是否创建
f.Skip(3) '将当前位置向后移三个字符
f.SkipLine() '将当前位置移动到下一行的第一个字符,注意:无参数
response.Write f.Read(3) '从当前位置向后读取三个字符,并将当前位置向后移三个字符
response.Write f.ReadLine() '从当前位置向后读取直到遇到换行符(不读取换行符),并将当前位置移动到下一行的第一个字符,注意:无参数
response.Write f.ReadAll() '从当前位置向后读取,直到文件结束,并将当前位置移动到文件的最后
if f.atEndOfLine then
response.Write("一行的结尾!")
end if
if f.atEndOfStream then
response.Write("文件的结尾!")
end if
f.Close()
set f = nothing
set fso = nothing
打开并写文件
dim fso, f
set fso = server.CreateObject("Scripting.FileSystemObject")
set f = fso.OpenTextFile("C:\test.txt", 2, false) '第二个参数 2 表示重写,如果是 8 表示追加
f.Write("写入内容")
f.WriteLine("写入内容并换行")
f.WriteBlankLines(3) '写入三个空白行(相当于在文本编辑器中按三次回车)
f.Close()
set f = nothing
set fso = nothing
判断文件是否存在
dim fso
set fso = server.CreateObject("Scripting.FileSystemObject")
if fso.FileExists("C:\test.txt") then
response.Write("目标文件存在")
else
response.Write("目标文件不存在")
end if
set fso = nothing
移动文件
dim fso
set fso = server.CreateObject("Scripting.FileSystemObject")
call fso.MoveFile("C:\test.txt", "D:\test111.txt") '两个参数的文件名部分可以不同
set fso = nothing
复制文件
dim fso
set fso = server.CreateObject("Scripting.FileSystemObject")
call fso.CopyFile("C:\test.txt", "D:\test111.txt") '两个参数的文件名部分可以不同
set fso = nothing
删除文件
dim fso
set fso = server.CreateObject("Scripting.FileSystemObject")
fso.DeleteFile("C:\test.txt")
set fso = nothing
创建文件夹
dim fso
set fso = server.CreateObject("Scripting.FileSystemObject")
fso.CreateFolder("C:\test") '目标文件夹的父文件夹必须存在
set fso = nothing
判断文件夹是否存在
dim fso
set fso = server.CreateObject("Scripting.FileSystemObject")
if fso.FolderExists("C:\Windows") then
response.Write("目标文件夹存在")
else
response.Write("目标文件夹不存在")
end if
set fso = nothing
删除文件夹
dim fso
set fso = server.CreateObject("Scripting.FileSystemObject")
fso.DeleteFolder("C:\test") '文件夹不必为空
set fso = nothing
实例:文件删除
SUB DelFile(filename)
dim fo,filenamestr
set fo=Server.Createobject("Scripting.FileSystemObject")
filenamestr=Server.MapPath(filename)
if fo.FileExists(filenamestr) then
fo.DeleteFile filenamestr
end if
set fo=nothing
END SUB