站内搜索

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

[wangjy17908]

添加时间：2009-02-22