fso操作函数
来源:互联网 发布:动易 安装创建数据库 编辑:程序博客网 时间:2024/06/08 05:48
'==================================================
'函数名: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
- 经典FSO操作函数
- fso操作函数
- asp中的fso操作函数集
- 一些常用的vb函数/过程[操作FSO方面]
- FSO操作文件的几个小函数(转)
- FSO操作示例
- FSO组件操作
- FSO组件操作
- FSO的简单操作
- 用fso 操作 xml
- FSO操作指南
- FSO组件操作
- FSO文件操作类
- fso使用操作
- FSO 操作大全
- ASP FSO文件操作
- ASP FSO文件操作
- FSO 操作大全
- 第一篇博客
- point
- regsvr32的妙用(解决电脑上网中常用的疑难杂症)
- 在招聘中如何面试
- 详解虚函数表
- fso操作函数
- dlgdata.cpp line 40 断言失败
- jar和javadoc命令的使用
- 看书计划
- 金山快盘
- 第06讲:Chapter 03--Managing an Oracle Instance
- URL的井号
- CSS+JavaScript面试题
- syslog应用详解