Tag: fso预览模式: 普通 | 列表

Fso操作大全

FSO - FileSystemObject 或 Scripting.FileSystemObject 的缩写,为 IIS 内置组件,用于操作磁盘、文件夹或文本文件。FSO 的对象、方法和属性非常的多,这里用示例的方式列出常用的,如果您要查看更详尽的信息,请点击这里下载 FileSystemObject 参考,注意:《VBScript 语言参考》或《JScript 语言参考》中的:《FileSystemObject 用户指南》和《Scripting 运行时库参考》便是微软给出的 FileSystemObject 完整参考。

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

查看更多...

Tags: fso

分类:技术文章 | 固定链接 | 评论: 0 | 引用: 0 | 查看次数: 3041

fso中判断文件夹是否存在
set fso = server.createobject("scripting.filesystemobject")
if fso.FolderExists(server.mappath("../folderName"))=false then
REsponse.write("此文件夹不存在")
end if


fso中判断文件是否存在
set fso = server.createobject("scripting.filesystemobject")
if fso.fileexists(server.mappath("../folderName/fileName.htm")) = true then
Response.write("文件存在")
end if


fso中写文件
dim fileName,fileContent
fileName = replace(date(),"-","")
randomize
fileName = fileName & cstr(int(rnd(10)*100000)) & ".htm"
HtmlName = fileName 'HtmlName为数据库中的文件名
set fso = server.CreateObject("scripting.filesystemobject")
if fso.FolderExists(server.MapPath("./Files"))=false then '检查要生成的HTML文件夹是否存在
fso.CreateFolder(server.MapPath("../Files"))
end if
fileName = server.MapPath("../Files") & "/" & fileName
set MyFile = fso.opentextfile(fileName,2,true)
fileContent = "....(content)"
MyFile.write(fileContent)
MyFile.Close()
set MyFile = nothing


fso中删除文件
set fso = server.createobject("script.filesystemobject")
fileName = ..
fso.deletefile(fileName)
set fso = nothing

Tags: fso

分类:技术文章 | 固定链接 | 评论: 0 | 引用: 0 | 查看次数: 7406

FSO读取目录和文件列表

【摘要】
FSO读取目录和文件列表,用递归进行扩充,理论上可以读无究级目录。这里只写出了读取一级目录,再深层的请自行扩充。
【全文】

FSO读取目录和文件列表,用递归进行扩充,理论上可以读无究级目录。这里只写出了读取一级目录,再深层的请自行扩充。:

<title>读取目录和文件列表</title>
<style>
body
{font-size:9pt;
line-height:150%}
</style>
<%
'读取"D:\wwwroot"目录中的文件列表
set fso =  CreateObject("Scripting.FileSystemObject")
uploadPath = "D:\wwwroot"
Set uploadfolder = fso.GetFolder(uploadPath)

set objSubFolders=uploadfolder.Subfolders
for each objSubFolder in objSubFolders
 response.write "<font color=blue>" & objSubFolder.name & "</font><br>"
next

set allfiles = uploadfolder.Files
for each fileitem in allfiles
 sFileName = fileitem.Name
 response.write  sFileName&"<br>"
next
%>

Tags: fso

分类:技术文章 | 固定链接 | 评论: 0 | 引用: 0 | 查看次数: 3302

 广告位

↑返回顶部↑