ASP FSO文件处理函数大全

　　复制代码 代码如下:
<%
建立文件夹函数
FunctionCreateFolder(strFolder)参数为相对路径
首选判断要建立的文件夹是否已经存在
DimstrTestFolder,objFSO
strTestFolder=Server.Mappath(strFolder)
SetobjFSO=CreateObject(Scripting.FileSystemObject)
检查文件夹是否存在
IfnotobjFSO.FolderExists(strTestFolder)Then
如果不存在则建立文件夹
objFSO.CreateFolder(strTestFolder)
EndIf
SetobjFSO=Nothing
Endfunction

删除文件夹
FunctionDelFolder(strFolder)参数为相对路径
strTestFolder=Server.Mappath(strFolder)
SetobjFSO=CreateObject(Scripting.FileSystemObject)
检查文件夹是否存在
IfobjFSO.FolderExists(strTestFolder)Then
objFSO.DeleteFolder(strTestFolder)
endif
SetobjFSO=Nothing
Endfunction

创建文本文件
FunctionCreatetextfile(fileurl,filecontent)参数为相对路径和要写入文件的内容
SetobjFSO=Server.CreateObject(Scripting.FileSystemObject)
Setfout=objFSO.CreateTextFile(Server.MapPath(fileurl))
fout.WriteLinefilecontent
fout.close
SetobjFSO=Nothing
EndFunction

删除文件（适合所有文件）
FunctionDeltextfile(fileurl)参数为相对路径
SetobjFSO=CreateObject(Scripting.FileSystemObject)
fileurl=Server.MapPath(fileurl)
ifobjFSO.FileExists(fileurl)then检查文件是否存在
objFSO.DeleteFile(Server.mappath(fileurl))
endif
SetobjFSO=nothing
EndFunction

建立图片文件并保存图片数据流
FunctionCreateimage(fileurl,imagecontent)参数为相对路径和文件内容
SetobjStream=Server.CreateObject(ADODB.Stream)建立ADODB.Stream对象，必须要ADO2.5以上版本
objStream.Type=1以二进制模式打开
objStream.Open
objstream.writeimagecontent将字符串内容写入缓冲
objstream.SaveToFileserver.mappath(fileurl),2-将缓冲的内容写入文件
objstream.Close()关闭对象
setobjstream=nothing
EndFunction

远程获取文件数据
FunctiongetHTTPPage(url)
OnErrorResumeNext
dimhttp
sethttp=Server.createobject(Microsoft.XMLHTTP)
Http.openGET,url,false
Http.send()
ifHttp.readystate<>4then
exitfunction
endif
getHTTPPage=bytesToBSTR(Http.responseBody,GB2312)
sethttp=nothing
IfErr.number<>0then
getHTTPPage=服务器获取文件内容出错
Err.Clear
EndIf
Endfunction

FunctionBytesToBstr(body,Cset)
dimobjstream
setobjstream=Server.CreateObject(adodb.stream)
objstream.Type=1
objstream.Mode=3
objstream.Open
objstream.Writebody
objstream.Position=0
objstream.Type=2
objstream.Charset=Cset
BytesToBstr=objstream.ReadText
objstream.Close
setobjstream=nothing
EndFunction

获取图片数据流
Functiongetpic(url)
onerrorresumenext
dimhttp
sethttp=server.createobject(MSXML2.XMLHTTP)使用xmlhttp的方法来获得图片的内容
Http.openGET,url,false
Http.send()
ifHttp.readystate<>4then
exitfunction
endif
getpic=Http.responseBody
sethttp=nothing
iferr.number<>0then
getpic=服务器获取文件内容出错
err.Clear
Endif
EndFunction

打开文件（文本形式）
FunctionOpenFile(fileurl)文件相对路径
DimFilename,fso,hndFile
Filename=fileurl
Filename=Server.MapPath(Filename)
Setobjfso=CreateObject(Scripting.FileSystemObject)
Ifobjfso.FileExists(Filename)Then
sethndFile=objfso.OpenTextFile(Filename)
OpenFile=hndFile.ReadAll
Else
OpenFile=文件读取错误
EndIf
SethndFile=Nothing
Setobjfso=Nothing
EndFunction

获得文件的后缀名
functiongetFileExtName(fileName)
dimpos
pos=instrrev(filename,.)
ifpos>0then
getFileExtName=mid(fileName,pos+1)
else
getFileExtName=
endif
endfunction
%>