处理FSO的函数,方便生成HML文件
2005-08-18 12:13
369 查看
处理FSO的函数,方便生成HML文件
--------------------------------------------------------------------------------
日期:2005-6-16 8:25:03 来源:来自网络 查看:[大 中 小] 作者:不详 热度:5
<%
'--------------------------------
'函数功能:将指定的文件内容读出
'相关参数:FileName
'返回值: 文件全部内容
Function readfilerecord(Filename)
if instr(filename,".")=0 then exit function
set ffso=server.createobject("scripting.filesystemobject")
if ffso.FileExists(server.mappath(filename))=false then exit function
set re_ffso=ffso.OpenTextFile(server.mappath(filename),1,0,0)
readfilerecord=re_ffso.readall
re_ffso.close
set ffso=nothing
end function
'---------------------------------
'函数功能:判断文件是否存在
'相关参数:FileName
'返回值: 如果存在返回True,否则返回False
Function Filehaveno(FileName)
set ffso=server.createobject("scripting.filesystemobject")
Filehaveno=ffso.FileExists(server.mappath(filename))
set ffso=nothing
End Function
'----------------------------------
'函数功能:把指定的字符串写到指定新文件中
'相关参数:String(字符串),FileName(文件名)
'返回值:无
Function WriteString(String,FileName)
if string="" then exit function
if filename="" then exit function
if instr(filename,".")=0 then exit function
set ffso=server.createobject("scripting.filesystemobject")
set wfso=ffso.CreateTextFile(server.mappath(filename))
wfso.Writeline(string)
wfso.close
set ffso=nothing
End Function
'-----------------------------------
'函数功能:把指定的文件或者文件夹删除
'相关参数:FileNameorFileFolder(文件名或者文件夹)
'返回值:无
Function DelFile(FileNameorFileFolder)
if FileNameorFileFolder="" then exit function
FileNameorFileFolder=server.mappath(FileNameorFileFolder)
set ffso=server.createobject("scripting.filesystemobject")
if instr(FileNameorFileFolder,".")<>0 then '注意对于文件夹名称中有"."会出错
if ffso.FileExists(FileNameorFileFolder) then
ffso.DeleteFile(FileNameorFileFolder)
else
Exit Function
end if
else
if ffso.FolderExists(FileNameorFileFolder) then
ffso.DeleteFolder(FileNameorFileFolder)
else
Exit Function
end if
end if
End Function
'-----------------------------------
'函数功能:把指定的文件或者文件复制到另外的文件夹
'相关参数:FileOrFolder01(文件名或者文件夹),FileOrFolder02(文件夹,如果不存在,则自动建立)
'返回值:无
Function CpFileorFolder(FileOrFolder01,FileOrFolder02)
if FileOrFolder02="" then Exit Function
set ffso=server.createobject("scripting.filesystemobject")
FileOrFolder02=server.mappath(FileOrFolder02)
if ffso.FolderExists(FileOrFolder02)=false then
ffso.CreateFolder(FileOrFolder02)
end if
if FileOrFolder01="" then Exit Function
if instr(FileOrFolder01,".")<>0 then
FileOrFolder01=server.mappath(FileOrFolder01)
if ffso.FileExists(FileOrFolder01) then
ffso.CopyFile FileOrFolder01,FileOrFolder02&"\"
else
Exit Function
end if
else
FileOrFolder01=server.mappath(FileOrFolder01)
if ffso.FolderExists(FileOrFolder01) then
ffso.CopyFolder FileOrFolder01,FileOrFolder02&"\"
else
Exit Function
--------------------------------------------------------------------------------
日期:2005-6-16 8:25:03 来源:来自网络 查看:[大 中 小] 作者:不详 热度:5
<%
'--------------------------------
'函数功能:将指定的文件内容读出
'相关参数:FileName
'返回值: 文件全部内容
Function readfilerecord(Filename)
if instr(filename,".")=0 then exit function
set ffso=server.createobject("scripting.filesystemobject")
if ffso.FileExists(server.mappath(filename))=false then exit function
set re_ffso=ffso.OpenTextFile(server.mappath(filename),1,0,0)
readfilerecord=re_ffso.readall
re_ffso.close
set ffso=nothing
end function
'---------------------------------
'函数功能:判断文件是否存在
'相关参数:FileName
'返回值: 如果存在返回True,否则返回False
Function Filehaveno(FileName)
set ffso=server.createobject("scripting.filesystemobject")
Filehaveno=ffso.FileExists(server.mappath(filename))
set ffso=nothing
End Function
'----------------------------------
'函数功能:把指定的字符串写到指定新文件中
'相关参数:String(字符串),FileName(文件名)
'返回值:无
Function WriteString(String,FileName)
if string="" then exit function
if filename="" then exit function
if instr(filename,".")=0 then exit function
set ffso=server.createobject("scripting.filesystemobject")
set wfso=ffso.CreateTextFile(server.mappath(filename))
wfso.Writeline(string)
wfso.close
set ffso=nothing
End Function
'-----------------------------------
'函数功能:把指定的文件或者文件夹删除
'相关参数:FileNameorFileFolder(文件名或者文件夹)
'返回值:无
Function DelFile(FileNameorFileFolder)
if FileNameorFileFolder="" then exit function
FileNameorFileFolder=server.mappath(FileNameorFileFolder)
set ffso=server.createobject("scripting.filesystemobject")
if instr(FileNameorFileFolder,".")<>0 then '注意对于文件夹名称中有"."会出错
if ffso.FileExists(FileNameorFileFolder) then
ffso.DeleteFile(FileNameorFileFolder)
else
Exit Function
end if
else
if ffso.FolderExists(FileNameorFileFolder) then
ffso.DeleteFolder(FileNameorFileFolder)
else
Exit Function
end if
end if
End Function
'-----------------------------------
'函数功能:把指定的文件或者文件复制到另外的文件夹
'相关参数:FileOrFolder01(文件名或者文件夹),FileOrFolder02(文件夹,如果不存在,则自动建立)
'返回值:无
Function CpFileorFolder(FileOrFolder01,FileOrFolder02)
if FileOrFolder02="" then Exit Function
set ffso=server.createobject("scripting.filesystemobject")
FileOrFolder02=server.mappath(FileOrFolder02)
if ffso.FolderExists(FileOrFolder02)=false then
ffso.CreateFolder(FileOrFolder02)
end if
if FileOrFolder01="" then Exit Function
if instr(FileOrFolder01,".")<>0 then
FileOrFolder01=server.mappath(FileOrFolder01)
if ffso.FileExists(FileOrFolder01) then
ffso.CopyFile FileOrFolder01,FileOrFolder02&"\"
else
Exit Function
end if
else
FileOrFolder01=server.mappath(FileOrFolder01)
if ffso.FolderExists(FileOrFolder01) then
ffso.CopyFolder FileOrFolder01,FileOrFolder02&"\"
else
Exit Function
相关文章推荐
- ASP FSO文件处理函数大全
- ASP FSO文件处理函数大全
- ASP FSO文件处理函数大全
- PHP ADODB生成HTML表格函数rs2html功能【附错误处理函数用法】
- PHP GD库相关图像生成和处理函数小结
- 图像处理时一些卷积核子函数的生成
- 随机生成一个 10 个元素的数组,找到 x 的倍数,并将其值修改成 0.(注意:修改数值使用回掉函数处理)
- 生成编码规则调整处理T-SQL语句的函数
- QTP_ASP FSO文件处理函数大全
- ASP FSO文件处理函数大全
- ASP FSO文件处理函数大全
- DELPHI字符串处理函数大全(收藏在此方便以后查找使用)
- 实现c++,java,lua 在c++编写后需要在 pkg 文件中添加新的函数 然后批处理下生成GamePlatformToLua
- VB 用Fso函数处理带有问号的Unicode文件名
- PHP GD库相关图像生成和处理函数
- matlab生成dll时子函数处理方法
- 方便又官方的字符串处理函数及内存函数的实现
- 【转】灵活运用 SQL SERVER FOR XML PATH。用于方便处理生成视图
- 自动检测创建多级目录, fso与stream生成文件函数