www.gusucode.com > 在线影院小偷程序联盟多风格后台版 3.2源码程序 > inc/fso.asp
<%'----------------FSO操作------------------------------ '读取文件 Function FSOFileRead(Template_Name) Dim objFSO,objCountFile,FiletempData Set objFSO = Server.CreateObject("Scripting.FileSystemObject") Set objCountFile = objFSO.OpenTextFile(Server.MapPath(Template_Name),1,True) If objCountFile.AtEndOfStream = false Then FSOFileRead = objCountFile.ReadAll objCountFile.Close Set objCountFile=Nothing Set objFSO = Nothing End Function '创建文件夹 Function CreateFolder(fldr) on error resume next Dim fso, f Set fso = CreateObject("Scripting.FileSystemObject") Set f = fso.CreateFolder(Server.MapPath(fldr)) CreateFolder = f.Path Set f=nothing Set fso=nothing End Function '创建文件 Function createhtml(path,str) GetFold=split(path,"/") For e=0 to Ubound(GetFold)-1 if fldr="" then fldr=GetFold(e) else fldr=fldr&"/"&GetFold(e) end if If IsFolder(fldr)=false then CreateFolder fldr End if Next Set fso = Server.CreateObject("Scripting.FileSystemObject") Set fout = fso.CreateTextFile(server.mappath(path)) fout.Write str fout.close set fso = nothing End Function '删除文件夹 Function delfolder(path) If IsFolder(path)=True Then Set fso = CreateObject("Scripting.FileSystemObject") fso.DeleteFolder(server.mappath(path)) set fso = Nothing End If End Function '删除文件 Function delfile(path) If IsExists(path)=True Then set fso = server.CreateObject("Scripting.FileSystemObject") fso.DeleteFile(server.mappath(path)) set fso = nothing End If End Function '检测文件是否存在 Function IsExists(filespec) Dim fso Set fso = CreateObject("Scripting.FileSystemObject") If (fso.FileExists(server.MapPath(filespec))) Then IsExists = True Else IsExists = False End If Set fso=nothing End Function '检测文件夹是否存在 Function IsFolder(Folder) Set fso = CreateObject("Scripting.FileSystemObject") If FSO.FolderExists(server.MapPath(Folder)) Then IsFolder = True Else IsFolder = False End If Set fso=nothing End Function %>