fso操作函数

'==================================================
'
函数名:BuildFolder
'
作 用:创建文件夹
'
参 数:path ----------要创建的文件夹(路径)
'
==================================================
function BuildFolder(path)
Set fso = Server.CreateObject("Scripting.FileSystemObject")
    fso.CreateFolder(Server.MapPath(path))
    fso.Close
   
Set fso=Nothing
End Function
'==================================================
'
函数名:Buildfile
'
作 用:创建文件
'
参 数:Htmlcode ------要创建的文件信息
'
参 数:filex ----------要创建的文件名(路径)
'
==================================================
function Buildfile(filex,Htmlcode)
Set fso = Server.CreateObject("Scripting.FileSystemObject")
   
Set html = fso.CreateTextFile(Server.MapPath(filex))
        html.WriteLine Htmlcode
        html.close
   
Set html=Nothing
    fso.Close
   
Set fso=Nothing
End Function
'==================================================
'
函数名:Savefile
'
作 用:修改文件
'
参 数:file_body ------要创建的文件信息
'
参 数:file_name ------要创建的文件名(路径)
'
参 数:Cset -----------定义要创建的文件编码
'
==================================================
Function Savefile(file_body,file_name,Cset)
Set OS=Server.CreateObject("ADODB.Stream")
        OS.Type
=2
        OS.Open
        OS.Charset
= Cset
        OS.Position
=OS.Size
        OS.WriteText
=file_body
        OS.SaveToFile Server.MapPath(file_name),
2
        OS.Close
Set OS=Nothing
End Function

'==================================================
'
函数名:DelFolder
'
作 用:删除文件夹
'
参 数:FolderPath ------要删除的文件夹路径
'
==================================================
Function DelFolder(FolderPath)
   
dim path
    path
=FolderPath
   
Set fso = Server.CreateObject("Scripting.FileSystemObject")
   
Set DeleteFolder = FSO.GetFolder(Server.MapPath(path))
    DeleteFolder.Delete
    fso.Close
   
Set fso=Nothing
    Response.Write(
"<script language=""Javascript"">alert(""文件夹已删除"");history.go(-1);</script>")
End Function
'==================================================
'
函数名:ChkFile
'
作 用:检索文件是否存在
'
参 数:FilePath ------要检索的文件路径
'
==================================================
Function ChkFile(FilePath)
   
dim path
    path
=Server.MapPath(FilePath)
   
Set fso=Server.CreateObject("Scripting.FileSystemObject")
   
If fso.FileExists(path) then
       ChkFile
="OK!"
   
Else
       ChkFile
="文件不存在"
   
End IF
    fso.Close
   
Set fso=Nothing
End Function

'==================================================
'
函数名:DelFile
'
作 用:删除文件
'
参 数:FilePath ------要删除的文件的路径
'
==================================================
Function DelFile(FilePath)
dim path
    path
=Server.MapPath(FilePath)
Set fso = Server.CreateObject("Scripting.FileSystemObject")
   
'用两种方法删除文件
    fso.DeleteFile(path)'第一种方法
    Set File= FSO.GetFile(path)'第二种方法
        File.Delete
    fso.Close
   
Set fso=Nothing
End Function

阅读更多
个人分类: asp
想对作者说点什么? 我来说一句

FSO操作大全

2011年11月03日 12KB 下载

没有更多推荐了,返回首页

加入CSDN,享受更精准的内容推荐,与500万程序员共同成长!
关闭
关闭