推荐订阅源

处理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